Основные приемы работы в среде ТР

Актюбинский Политехнический колледж

Отчет

по учебной практике

по программированию

Выполнила:

Волоснова А.С

учащаяся

группы 202АС

Проверила:

Гайсагалеева Б.М

Актобе 2010

ДНЕВНИК.

СОДЕРЖАНИЕ.

1. Линейная программа на Паскаль.

2. Программа с ветвлениями.

3. Циклическая программа.

4. Массивы.

5. Процедуры и функции.

6. Файловые данные в Паскале.

7. Записи в Паскале.

8. Строки.

9. Графика в Турбо-Паскале.

Раздел: Линейные алгоритмы

1.Описание: Программа вычисления периметра треугольника.

program one;

uses crt;

var a,b,P:integer;

begin clrscr;

writeln ('a=');

readln (a);

writeln ('b=');

readln (b);

P:=(a+b)*2;

writeln ('P=',P);

end.

2.Описание: Программа вычисления площади треугольника.

program one;

uses crt;

var a,b,h,s:real;

begin clrscr;

writeln('A= B= H= ');

readln(a,b,h);

s:=h*(a+b)/2;

writeln('S=',s:0:4);

readln;

end.

3.Описание: Программа вычисления количества теплоты по формуле 'Q=c*m*(t2-t1)

program one;

uses crt;

var Q,c,m,t2,t1:integer;

begin clrscr; textcolor(10);

writeln ('c=');

readln (c);

writeln ('m=');

readln (m);

writeln ('t2=');

readln (t2);

writeln ('t1=');

readln (t1);

Q:=c*m*(t2-t1);

writeln('Q=c*m*(t2-t1)=',Q);

end

4.Описание: Программа вычисления величины силы тока I на участке цепи с R Ом и U В.

program one;

uses crt;

var I,U,R:real;

begin clrscr; textcolor(10);

writeln ('U='); readln (U);

writeln ('R=');

readln (R);

I:=U/R;

writeln('I=',I:5:0);

end.

5.Описание: Программа вычисления расстояния между двумя точками с данными координатами x1,y1,x2,y2

program one;

uses crt;

var r:real; x1,x2,y1,y2:integer;

begin clrscr;

writeln ('znachenie x1=');

readln (x1);

writeln ('znachenie x2=');

readln (x2);

writeln ('znachenie y1=');

readln (y1);

writeln ('znachenie y2=');

readln (y2);

r:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln ('rasstoyanie=',r);

end.

6.Описание: Известна сумма денег,имеющаяся у покупателя и стоимость одной ед. товара. Сколько ед. товара может купить покупатель и какова его сдача?

program one;

uses crt; var a,b,c:real; begin clrscr;

writeln ('summa deneg=');

readln (a);

writeln ('cena ed.tovara=');

readln (b);

c:=a/b;

writeln ('ostatok=',c);

end.7.Описание: Сумма цыфр введенного трехзначного натурального числа.

program one;

uses crt;

var a:integer; s,d,e,f:real;

begin clrscr;

writeln ('vvedi 3-hznachnoe chislo');

readln (a);

s:=a div 100;

d:=a mod 100 div 10;

e:=a mod 100 mod 10;

writeln (d:5:0); writeln (s:5:0); writeln (e:5:0);

f:=d+s+e; writeln (f:5:0);

end.

8.Описание: Найти площадь по известной стороне равностороннего треугольника.

program one;

uses crt;

var a,S:real;

begin clrscr;

writeln('Vvedite storonu treugolnika');

readln(a);

S:=0;

S:=a*a*sqrt(3)/4;

writeln ('Ploshad ravna:', S:3:1);

readln;

end.

9.Описание: Бабушка вяжет в неделю 3 пары детских носков, пару женских и пару мужских и продает их. Считая, что в месяце 4 недели,определить,какую прибыль бабушка имеет за месяцю.

program one;

uses crt; var det,jen,muj,ned,mes:integer;

begin clrscr;

writeln ('det:=');

readln (det);

writeln ('jen:=');

readln (jen);

writeln ('muj:=');

readln (muj);

ned:=muj+jen+det;

mes:=4*ned;

writeln('dohod=',mes);

end

10.Описание: Пирамида из звездочек

program one;

uses crt;

var j,i:integer;

begin clrscr;textcolor(9+5);

for i:=1 to 25 do begin gotoxy(40-i,i);

for j:=2 to 2*i do write('*');

end;

readln;

end.

11.Описание:Вычислить произведение

Program one;

Uses crt;

Var a,b,p:integer;

begin clrscr;textcolor(9+5);

writeln ('a= b=');

readln (a,b);

p:=a*b;

textcolor (9+16);

writeln (`p=,p');

end.

12.Описание: Вычисление радиуса

Program one;

Uses crt;

Var l:real; r:integer;

begin clrscr;textcolor(5);

writeln ('R=');

readln (r);

l:=2*pi*r;

writeln (`radius=,r');

end.

13.Описание: Вычисление периметра квадрата

Program one;

Uses crt;Var а:integer;

begin clrscr;textcolor(5);

writeln ('a=');

readln (a);

p:=4*a;

writeln (`perimetr=,р');

end.

14.Описание: Выведение введенного числа

Program one;

Uses crt;Var s:integer;

begin clrscr;textcolor(5);

writeln ('s=');

readln (s);

writeln (`вы ввели число,s');

end.

15.Описание: Вычисление плотности по количеству жителей и площади.

Program one;

Uses crt;Var k,s:integer; p:real;

begin clrscr;textcolor(5);

writeln ('число жителей=');

readln (k);

writeln (`plosh=');

readln (s);

p:=s/k;

writeln (`plotnost=',p);

end.

Раздел: Разветвляющиеся алгоритмы

1.Описание: Вычисление уравнения

program one;

var x,y:integer;; begin write('x='); readln(x); if x>0 then y:=sqr(sin(x)) else y:=1-2*sin(sqr(x)); writeln (y); end.

2.Описание: Деление нацело

Program ch;

Uses crt;

Var a,m,n:integer;

Begin clrscr;

Writeln (`m= n=');

Readln (m,n);

a:=m mod n;

If a=0 then write (m div n)

Else write(`net resh')

End.

3 .Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x - известные величины.

program one;

var x,y:real;

begin writeln('');

write('Vvedite x=');

readln(x); if x<=0.8 then

y:=exp(x-1)+3.14 else if (0.8<x) and (X<=5.27) then

y:=ln(x+5.96) else y:=2*x;

writeln('y=',y:4:2); readln;end.

4. Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x - известные величины.

program one; var x,y,z:real; begin writeln(''); write('Vvedite x='); readln(x); write('Vvedite y='); readln(y);

if x-y>0 then z:=1/(x*y) else z:=sqr(x)*sqr(y); writeln('z=',z:4:2); readln; end.

5 .Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x=ln a2, y=1/arctg b; a,b - известные величины. program one; var x,y,z,a,b:real; begin writeln(''); write('Vvedite a='); readln(a); write('Vvedite b='); readln(b); x:=ln(sqr(a)); y:=1/arctan(b); if x-y>0 then z:=1/(x*y) else z:=sqr(x)*sqr(y); writeln('z=',z:4:2); readln; end.

6. Описание: Заданы два прямоугольных параллелепипеда. Можно ли разместить их один в другом?program one; var a1,a2,b1,b2,c1,c2:integer; begin writeln('vvedite shiriny, dliny, vusoty 1');

readln(a1,b1,c1); writeln('vvedite shiriny, dliny, vusoty 2'); readln(a2,b2,c2); if ((a1<=a2) and (b1<=b2) and (c1<=c2)) or ((a1>a2) and (b1>b2) and (c1>c2)) then writeln('mogno') else writeln('nelzya'); readln; end.

7. Описание: номер клетки на шахматной доске 8х8 определяется двумя целыми числами - номер вертикали и номер горизонтали. Даны 4 целых положительных числа a,b,c,d. Выяснить, бьет ли ферзь, находящийся на клетке (a,b) клетку(c,d)

program one; var a,b,c,d:integer; begin read(a,b); read(c,d); if (a=c) or (b=d) or (abs(c-a)=abs(d-b))

then write('ga') else write('HeT');

readln

end

8. Описание: Возможно, ли построить треугольник с данными сторонами

program one;

uses crt;

var a,b,c:real;

begin clrscr;

writeln('Стороны треугольника= ');

readln(a,b,c);

if (a<b+c) and (b<a+c)

and(c<a+b) then write('можно')

else write('невозможно');

readkey;

end.

9 .Описание: Даны три неравных числа a, b, c. Составить программу нахождения квадрата большего из этих чисел.

program one; var a,b,c:real; begin read(a,b,c); if (a>b) and (a>c) then write('a^2= ',a*a:1:4); if (b>a) and (b>c) then write('b^2= ',b*b:1:4); if (c>a) and (c>b) then write('c^2= ',c*c:1:4); readln end.

10.Описание:Вычисление большего из двух чиселProgram b_ch;

Uses crt;

Var a,b:integer;

Max:integer;

Begin clrscr;

Writeln (`a= b=');

Readln (a,b);

If a>b then max:=a else max:=b

Writeln (`max=',max);

End.

11.Описание:Вычисление меньшего из двух чисел

Program m_ch;

Uses crt;

Var a,b:integer;

Min:integer;

Begin clrscr;

Writeln (`a= b=');

Readln (a,b);

If a<b then min:=a else min:=b

Writeln (`min=',min);

End.

12.Описание:Деление нацело

Program ch;

Uses crt;

Var a,b,c:integer;

Begin clrscr;

Writeln (`a= b=');

Readln (a,b);

C:=a mod b;

If c=0 then write (a div b)

Else write(`net resh')

End.

13.Описание: Сравнение чисел трехзначного числа

Program ch;

Uses crt;

Var a,b,c,d,e,i:integer;

Begin clrscr;

Writeln (`a=');

Readln (a);

D:=a div 100;

E:=b mod 100 div 10;

C:=I mod 10;

writeln(d,e,c);

if (a<b) and (b<i) then writeln (`ravny')

else writeln (`ne ravny');

End.

14.Описание: Принадлежит ли число интервалу

Program ch;

Uses crt;

Var a:integer;

Begin clrscr;

Writeln (`a=');

Readln (a);

if (a>=(-5)) and (a<=3) then writeln (`prinadl')

else writeln (` ne prinadl');

End.

15.Описание:Сравнить 3 стороны треугольника

Program ch;

Uses crt;

Var a,b,c:integer;

Begin clrscr;

Writeln (`a= b= c=');

Readln (a,b,c);

if (a=c) or (a=b) then writeln (`ravnobedr')

else writeln (` ne ravnobedr');

End.

Раздел: Алгоритмы циклической структуры:

1.Описание: Написать программу на языке Pascal для реализации циклического алгоритма n, х - известные величины.

var i,j,fact,n:integer;

s,x:real;

begin

writeln;

write('Vvedite n=');

readln(n);

write('Vvedite x=');

readln(x);

s:=0;

for i:=1 to n do begin fact:=1;

for j:=1 to i do Fact:=fact*j;

s:=s+(1/fact+sqrt(abs(x)));

end;

writeln('s=',s:4:2);

readln;

end.

2.Описание: Написать программу на языке Pascal для реализации циклического алгоритма

n - известные величины. program one;

var i,j,n,zn,factorial:integer; s,x:real; begin writeln; write('Vvedite n='); readln(n); s:=0; factorial:=1; zn:=1; for i:=1 to n do begin zn:=zn*(-1); factorial:=factorial*i; s:=s+(zn*(i+1)/factorial); end; writeln('s=',s:4:3); readln; end.

3.Описание: Написать программу на языке Pascal для реализации циклического алгоритма

s=1/1*2-1/2*3+…+(-1)n+1/n(n+1) n - известные величины.

program one;

var i,j,n,zn:intege r; s,x:real; begin writeln; write('Vvedite n='); readln(n); s:=0; zn:=-1; for i:=1 to n do begin zn:=zn*(-1); s:=s+zn/(i*(i+1)); end; writeln('s=',s:4:2); readln; end.

4.Описание: Написать программу на языке Pascal для реализации циклического алгоритма

n - известные величины. program one;

var i,j,n:integer; stepen:integer; s:real; begin writeln; write('Vvedite n='); readln(n); s:=0; for i:=1 to n do begin stepen:=1; for j:=1 to 5 do begin stepen:=stepen*i; end; s:=s+1/stepen; end; writeln('s=',s:4:2); readln; end.

5. Описание: Написать программу, которая выводит целые четные числа с клавиатуры и складывает их , пока не будет введено число 0.

Program 5;

Uses crt;

Var n,s:integer.;

Begin clrscr;

S:=0;

Repeat;

Writeln(vvedi chislo);

Readln(n);

S:=s+n;

Until n=0;

Writeln(s=,s);

Readln;

End.

6. Описание: Составить программу, подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+…+1/N

Program 1;

Uses crt;

Var s:real; n;integer;

Begin clrscr;

S:=0; n:=0;

Repeat;

N:=n+1;

S:=s+1/n;

Until n=1000;

Writeln(s);

End.

7. Описание: Напечатать 20 первых степеней числа 2.

Program 2;

Uses crt;

Var n,s:longint;

Begin clrscr;

S:=1;

N:=1;

Repeat S:=s*2;

Writeln(s,);

N:=n+1;

Until n>20; Readln;

End.

8. Описание:Известны оценки по информатике каждого из 20 учеников класса. В начале списка Перечислены все «5»,затем остальные оценки. Сколько учеников имеют оценку «5»?

Program 5;

Uses crt;

Var x,n:word;

Begin clrscr;

Writeln(vvedi ocenki);

Readln(x);

N:=0;

While x=5 do begin n:=n+1;

Writeln(vvedi ocenki);

Readln(x);

End;

Writeln(imeyut 5,n,uchenikov);

Readln;

End.

9. Описание: Вычислить наибольший общий делитель двух натуральных чисел А и В, использую для этого алгоритм Евклида. Будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равными.

Program nod;

Uses crt;

Var a,b:integer;

Begin clrscr;

Writeln(vvedi 2 chisla);

Readln(a,b);

While a<>b do if a>b then a:=a-b else b:=b-a;

Writeln(nod=,a);Readln;

End.

10.Описание: Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+…+1/N

Program S;

Uses crt;

Var s:real;n:integer;

Begin clrscr;

S:=0; N:=0;

While n<1000 do begin N:=n+1;

S:=s+1/n;

End;

Writeln(s);

Readln;

End.

11.Описание:Имеется четыре (A, B, C, D) числа. Необходимо ответить на вопрос:«Правда ли что все среди этих чисел есть равные?»Ответ вывести в виде текста:«Правда», или «Неправда».

Program z1;

var a,b,c,d:integer; {описываем имеющиеся переменные}

begin writeln('vvedite chislo a'); {вводим все числа по очереди}

readln(a);

writeln('vvedite chislo b');

readln(b);

writeln('vvedite chislo c');

readln(c);

writeln('vvedite chislo d');

readln(d);

if (a=b)or (a=c) or (a=d)or (b=c) or (b=d) or (d=c) then writeln ('pravda') else writeln ('nepravda');

readln;

end.

12.Описание: Составить программу вычисления и выдачи на печать суммы (произведения) N элементов бесконечного ряда. Оформить проверку задания. Y=(-512)*256*(-128)*64…… Общая формула имеет вид: y=210-i

program z2;

var i,j,zn,n:integer; s:real;

begin writeln;

writeln('vvedite kolichestvo elementov ryada');

write('N='); {вводим количество элементов ряда}

readln(n);

s:=1;

for i:=1 to n do begin zn:=1;

for j:=1 to i+1 do begin zn:=zn*(-1);

end;

s:=s*(-zn)*(exp((10-i)*ln(2))); {вводим формулу}

end;

writeln('s=',s:4:2);

readln;

end.

13.Описание: Дана функция Y=1-[x-2]^2/10 вычислить и напечатать значения этой функции для последовательных значений x=c,x=c+(b+1), x=c+2(b+1),x=c+3(b+1) где а=1; b=9;с=2. Считать до тех пор пока сумма Y+6 не станет отрицательной.

program zad3;

const b=9; c=2;

var x,n:integer; f,s:real; function y(x:integer):real;

begin y:=1-(sqr(x-c)) / (b+1);

end;

begin writeln('Y=1-[x-2]^2/10');

n:=0;

repeat x:=c+n*(b+1);

inc(n);

f:=y(x);

write('x',n,'= ',x,' ');

writeln('y',n,'= ',f:6:5)

until f+6<0;

readln

end.

14.Описание: Имеется массив А из N произвольных чисел (A(n)), среди которых есть положительные, отрицательные и равные нулю. Напечатать только те числа из массива которые больше предыдущего числа.

program z4;

uses Crt;

const MAX = 100;

var mas : array[1..MAX] of integer; n,i : byte; k,p: integer;

Страницы: 1, 2, 3