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

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

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

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

//Расстояния между двумя городами 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.

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

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

Велосипедист едет с постоянной скоростью v км/ч. За сколько минут он проедет расстояние в s км?
Автомобиль проходит первую часть пути длиной s1 км за t1 мин, участок пути длиной s2 км за t2 мин и участок длиной s3 км за t3 мин. Найдите среднюю скорость автомобиля, выраженную в км/ч.

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