Уроки информатики - Организация вычислений

Организация вычислений

Программа с комментариями и отформатированным кодом.

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

//Расстояния между двумя городами s км.

//Самолет пролетает этот путь за t часов.

//Определите скорость самолета.

var s, t, v: real;

begin

  write('Введите s = ');

  read(s);

  write('Введите t = ');

  read(t);

  v := s / t;

  writeln('скорость = ', v);

end.

Даны x, y, z. Напишите программу для вычисления значения арифметического выражения:

varx,y,z:real;beginWrite('Введите значения x,y,z:');Read(x,y,z);a:=(x+y+-z)/(x*x+2);Writeln('a=',a);end.

Составьте алгоритмы решения второго и третьего примеров.

Найдите длину окружности и площадь круга заданного радиуса.
Найдите угол при основании равнобедренного треугольника, если известен угол при вершине.

Велосипедист едет с постоянной скоростью v км/ч. За сколько минут он проедет расстояние в s км?
Автомобиль проходит первую часть пути длиной s₁ км за t₁ мин, участок пути длиной s₂ км за t₂ мин и участок длиной s₃ км за t₃ мин. Найдите среднюю скорость автомобиля, выраженную в км/ч.

В организме человека на долю атомов кислорода приходится 65% от массы тела. Найдите массу атомов кислорода для своей массы тела.
Масса одного атома кислорода равна 26.56∙10⁻²⁷ (это число в программе на языке Pascal записывается так: 26.56E-27, буква E — английская). Определите, сколько атомов кислорода содержится в вашем теле.