Программирование алгоритмов линейной структуры (Лабораторная работа № 2)

                                ЛАБОРАТОРHАЯ РАБОТА 2

       ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ ЛИНЕЙНОЙ СТРУКТУРЫ

Цель работы: овладение навыками pазpаботки и пpогpаммиpования вычислительного процесса линейной стpуктуpы и навыками по отладке и тестированию пpогpамм.

Program lab2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

{Лабораторная работа 1.

  Изучение интегрированной среды Турбо-Паскаль.

  Задача 1.Определить время, через которое встретятся два тела, равно ускорению движущегося навстречу друг другу, если известны их начальный скорости, ускорения и начальное расстояние между ними. Рассмотреть ситуации:

1)v01=2.1, v02=1.4; S=200; a1=0.3, a2=1.2.

2)v01=2.8, v02=0.4; S=600; a1=0.9, a2=0.2.

  Сделала Чернявская Ю.А.

  Группа Ф-15. 20.09.2011}

  var

  v01,v02,S,a1,a2: real;

t: real;

  Begin

  (*vvod ishodnyh dannyh*)

  Writeln('Programma vychisliaet vremia');

  Writeln (' zadaite skorost 1-go tela');

  Readln (v01);

  Writeln (' zadaite skorost 2-go tela');

  Readln(v02);

  Write('Zadaite pastoianie (Om)');

  Readln(S);

  Writeln (' zadaite yskorenie 1-go tela');

  Readln (a1);

  Write('zadaite yskorenie 2-go tela');

  Readln (a2);

  (*vypolnenie vychisleniy*);

  t:=-(v01+v02)+(v01*v01+v02*v02+2*v01*v02+4*a1*s+4*a2*s/8*s)/2*s;

  Writeln ('vyvod rezultatov vremeni=',t);

  Readln;

end.

Вывод: В ходе данной работы я овладение навыками pазpаботки и пpогpаммиpования вычислительного процесса линейной стpуктуpы и навыками по отладке и тестированию пpогpамм.