программы на паскале с ветвлением

Использование материалов данного сайта разрешено только с обязательным указанием ссылки на данный ресурс. Copyright Y 2012, Help-Informatika.ru 

  Нажимаем клавиши CTRL+F9 для компиляции и запуска на выполнение программы. Получаем результат:

Uses crt;Var A,t,t2,v1,v2: Real;  // объявление вещественных переменныхbegin     // начало программы Clrscr;   // очистка экрана writeLn('Vvedite A, t, t2'); readLn(A, t, t2);   // Ввод А, T и t2 v1:=20/t;  // вычисление скорости до обеда v2:=(A-20)/t2;   // скорость после обеда if v1>v2 then  // проверка, какая скорость больше writeLn('Do obeda skorost vishe')  // вывод данного сообщения, если скорость до обеда больше else writeLn('Posle obeda skorost vishe');  // вывод сообщения, что скорость после обеда большеreadLn END.   // конец программы

В среде программирования на языке Pascal, например,  Borland Pascal 7.0 вводим текст программы:

Текст программы  на языке Pascal

Разработаем алгоритм программы в  виде блок-схемы:

Блок-схема программы.

Ввод переменных A, t и t2 будет осуществляться с клавиатуры. Проверка условия, какая скорость больше, выполняется с помощью оператора ветвления IF

В начале программы объявляются действительные переменные  A, t, t2, v1, v2.

Турист за день прошел А км. До обеда он шел t часов и прошел 20 км. Еще t2 часа он шел после обеда. Когда скорость туриста была выше: до обеда или после обеда?

Составить программу на языке программирования Pascal и блок-схему для решения следующей задачи:

Пример программы с ветвлением на языке программирования Pascal

Пример программы с ветвлением на языке программирования Pascal