Информация с сайта: learnpascal.ru Уроки Pascal. от новичка до победителя
Задача №1: Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.
Задача №2: Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).
Информация с сайта: learnpascal.ru Уроки Pascal. от новичка до победителя
Алгоритм решения задач:
Информация с сайта: learnpascal.ru Уроки Pascal. от новичка до победителя
program Begin4;
const pi = 3.14;
var d, L: real;
begin
write('Введите диаметр окружности : ');
readln(d); L := pi * d;
write('Длина окружности -- ', L);
end.
Информация с сайта: learnpascal.ru Уроки Pascal. от новичка до победителя
program Begin6;
var v, a, b, c, s: real;
begin write('Введите значения a, b, c: ');
readln(a, b, c);
v := a * b * c;
s := 2 * (a * b + b * c + a * c);
writeln('Объем параллелепипеда -- ', v);
writeln('Площадь поверхности параллелепипеда -- ', s);
end.
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть