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