Добавлен: 02.12.2023
Просмотров: 45
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
М инистерство образования и науки Алтайского краяКГБПОУ "Волчихинский политехнический колледж"Специальность 09.02.07Отчет по лабораторной работе № 14-15Тема «Организация процедур и функций»Вариант 6Дисциплина ОП.04 Основы алгоритмизации и программирования
Выполнил(-а):
Студент группы 28-тп
Светочев В.А.
Принял:
преподаватель Дворцова М.Н.
Волчиха 2023 г.Код программы:program z1;varg,t,s:real;Procedure Res;begins:=g*sqr(t);end;beging:=9.81;Write('Введите t: ');Readln(t);Res;Writeln('s = ',s);end.Результат:Рисунок 1 – Пример 1Код программы:program z2;varh:integer;g,v:real;Procedure Res;beginv:=sqrt(2*g*h);end;beging:=9.81;Write('Введите h: ');Readln(h);Res;Writeln('v = ',v:2:2);end.Результат:Рисунок 2 – Пример 2Код программы:program z3;varp,n,k,T:integer;Procedure Res;beginp:=n*k*T;end;beginWrite('Введите n: ');Readln(n);Write('Введите k: ');Readln(k);Write('Введите T: ');Readln(T);Res;Writeln('p = ',p);end.Результат:Рисунок 3 – Пример 3Код программы:program z4;varE,R,rad:integer;l:real;Procedure Res;beginl:=E/(R + rad);end;beginWrite('Введите E: ');Readln(E);Write('Введите R: ');Readln(R);Write('Введите r: ');Readln(rad);Res;Writeln('l = ',l:2:2);end.Результат:Рисунок 4 – Пример 4Код программы:program z5;varm,v:integer;E:real;Procedure Res;beginE:=m*sqr(v)/2;end;beginWrite('Введите m: ');Readln(m);Write('Введите v: ');
Readln(v);Res;Writeln('E(к) = ',E:2:2);end.Результат:Рисунок 5 – Пример 5Код программы:program z6;varm,h:integer;E,g:real;Procedure Res;beginE:=m*g*h;end;beging:=9.81;Write('Введите m: ');Readln(m);Write('Введите h: ');Readln(h);Res;Writeln('E(п) = ',E:2:2);end.Результат:Рисунок 6 – Пример 6Код программы:program z7;vark,T,m:integer;v:real;Procedure Res;beginv:=sqrt(k*T/m);end;beginWrite('Введите m: ');Readln(m);Write('Введите k: ');Readln(k);Write('Введите T: ');Readln(T);Res;Writeln('v = ',v:2:2);end.Результат:Рисунок 7 – Пример 7Код программы:program z8;varE,c,m:integer;Procedure Res;beginE:=m*sqr(c);end;beginWrite('Введите m: ');Readln(m);Write('Введите c: ');Readln(c);Res;Writeln('E = ',E);end.Результат:Рисунок 8 – Пример 8
Выполнил(-а):
Студент группы 28-тп
Светочев В.А.
Принял:
преподаватель Дворцова М.Н.
Волчиха 2023 г.Код программы:program z1;varg,t,s:real;Procedure Res;begins:=g*sqr(t);end;beging:=9.81;Write('Введите t: ');Readln(t);Res;Writeln('s = ',s);end.Результат:Рисунок 1 – Пример 1Код программы:program z2;varh:integer;g,v:real;Procedure Res;beginv:=sqrt(2*g*h);end;beging:=9.81;Write('Введите h: ');Readln(h);Res;Writeln('v = ',v:2:2);end.Результат:Рисунок 2 – Пример 2Код программы:program z3;varp,n,k,T:integer;Procedure Res;beginp:=n*k*T;end;beginWrite('Введите n: ');Readln(n);Write('Введите k: ');Readln(k);Write('Введите T: ');Readln(T);Res;Writeln('p = ',p);end.Результат:Рисунок 3 – Пример 3Код программы:program z4;varE,R,rad:integer;l:real;Procedure Res;beginl:=E/(R + rad);end;beginWrite('Введите E: ');Readln(E);Write('Введите R: ');Readln(R);Write('Введите r: ');Readln(rad);Res;Writeln('l = ',l:2:2);end.Результат:Рисунок 4 – Пример 4Код программы:program z5;varm,v:integer;E:real;Procedure Res;beginE:=m*sqr(v)/2;end;beginWrite('Введите m: ');Readln(m);Write('Введите v: ');
Readln(v);Res;Writeln('E(к) = ',E:2:2);end.Результат:Рисунок 5 – Пример 5Код программы:program z6;varm,h:integer;E,g:real;Procedure Res;beginE:=m*g*h;end;beging:=9.81;Write('Введите m: ');Readln(m);Write('Введите h: ');Readln(h);Res;Writeln('E(п) = ',E:2:2);end.Результат:Рисунок 6 – Пример 6Код программы:program z7;vark,T,m:integer;v:real;Procedure Res;beginv:=sqrt(k*T/m);end;beginWrite('Введите m: ');Readln(m);Write('Введите k: ');Readln(k);Write('Введите T: ');Readln(T);Res;Writeln('v = ',v:2:2);end.Результат:Рисунок 7 – Пример 7Код программы:program z8;varE,c,m:integer;Procedure Res;beginE:=m*sqr(c);end;beginWrite('Введите m: ');Readln(m);Write('Введите c: ');Readln(c);Res;Writeln('E = ',E);end.Результат:Рисунок 8 – Пример 8