Лабораторная работа №1
По курсу программирования
«Основы программирования на языке PASCAL в инструментальной среде DELPHI.
Разработка алгоритмов линейной структуры»
Вариант
Выполнила: студенткаΙкурса
инженерно-экономического факультета
специальность «ИВТ-12»
Рощина Татьяна
Проверил: ст. преподаватель Гайдамак Д.С.
Подпись:_____________________
Программа №1
Листинг:
program Program1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var S,V,a:real;
t:integer;
begin
{ввод данных}
Write('Vvedite znachenie uskoreniya=');
Readln(a);
Write('Vvedite nachalnoe znachenie skorosti=');
Readln(V);
Write('Vvedite znachenie vremeni v sec.=');
Readln(t);
{вычисление результата}
S:=V*t+(a*sqr(t))/2;
{Вывод на печать}
Writeln('Znachenie rasstoyaniya=',S:7:2);
Readln;
end.
Тестовые значения:
Дано:
a=4m/c2; t=5c;
V0=0m/c
Решение:
;
Результат:
