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

Актюбинский Политехнический колледж Отчет по учебной практике по программированию Выполнила: Волоснова А.С учащаяся группы 202АС Проверила: Гайсагалеева Б.М Актобе 2010 ДНЕВНИК. Редактирование текста программы, процесс отладки. Изучили основные виды загрузки и приемы работы в ТР и процесс отладки. 14.06.10 Изучение команд редактирования отладки программ с помощью командного меню Pascal. Изучили составные условия их оформление и применение. 17.06.10 Решение задач по выбору функции по значению аргумента. Изучили синтаксис регулярного типа 22.06.10 Двумерный массивы. Изучили оператор присоединения. 28.06.10 Обозначение множеств в Паскале. Изучили процедуры работы с множествами. 28.06.10 Примеры использования множественного типа Рассмотрели примеры множественного типа 29.06.10 Файлы и работа с ними. Раздел: Линейные алгоритмы 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.Описание: Известна сумма денег,имеющаяся у покупателя и стоимость одной ед. товара. Раздел: Разветвляющиеся алгоритмы 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 x0 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; uses crt; var a,b,c,d,z,x,y,x1,y1:integer; function max(x,y:integer):integer; begin if x>y then max:=x else max:=y; end; begin clrscr; writeln(Vvedite chisla); readln(a,b,c,d); x1:=max(a,b); y1:=max(c,d); z:=max(x1,y1); writeln(max=,z); readkey; end. 6.Описание: Вычислить день недели по дате program Kalendar; uses crt; var y,d,m,c,w: integer; {m-mesiac,d-den, y-god }Procedure WriteDay(d,m,y:Integer); constDays_of_week: rray [0..6] of String [11] =(Voskresen`e,Ponedelnik,Vtornik, Sreda, Chetverg, Piatnica, Subbota) ; Begin if m =1)and (d=1) and (m=1582) and (y 0 Then R := Exp(B*Ln(T)) else R:=0; L := round(B); If (L mod 2 = 0) Then R:=Abs(R); If (B=0) Then R:=1; Pow:=R; End; BEGIN clrscr; Writeln(vvedite chislo:); readln(x); Writeln(vvedite stepen:); readln(y); z:=Pow(x,y); Writeln(z:0:2); readkey; END. 10.