Програмування на мові Pascal

Задача 1

3апишіть програму обчислення площі поверхні паралелепіпеда (площа розгортки), користувач вводить розміри паралелепіпеда a, b і h - речові числа. формулу напишіть самостійно.

var

a,b,c,S: real;

begin

// Приглашаем пользователя ввести данные (или просто печатаем эту строку)

write('Введите стороны а, b, c через пробел: ');

// считываем данные

readln(a,b,c);

  S:=2*(a*b+b*c+c*a);

writeln('Площадь прямоугольного параллелепипеда = ',S);

end.

Program p1;

var

a, b, c, s: real;

begin

Writeln('Вычислите S поверхности параллелепипеда.');

Writeln('Введите исходные данные:');

Write('Длина(см) '); Readln(a);

Write('Ширина(см) '); Readln(b);

Write('Высота(см)'); Readln(c);

s := 2 * (a * b + b * c + c * a);

Writeln('Площадь поверхности: ', s, ' кв.см.')

end.

Задача 2

Напишіть програму для перерахунку величини тимчасового інтервалу, заданого в хвилинах - в величину, виражену в годинах і хвилинах. Використовуйте операції div і mod.

Program p1;
var a,b,c: integer;
begin
writeln ('Введите количество минут');
readln (a);
b:=a div 60;
c:=a mod 60;
writeln ('в часах: ',b,', в минутах: ',c);
end.

Задача 3

Написати програму перевірки знання дати початку Другої світової війни. У разі невірної відповіді користувача програма повинна виводити правильну відповідь.

program data;

uses crt;

var a :integer;

begin

clrscr;

writeln('vvdatunach');

readln(a);

if a=1939 then writeln('правильно')

else writeln('правильный ответ 1939');

readln

end.

Задача 4

Скласти програму знаходження площі трикутника за формулою Герона.

Вхідні дані довжини сторін трикутника.

Вихідні дані периметр трикутника, площа трикутника.

program abc;

uses crt;

var a,b,c,P,S,P2:real;

begin

writeln('Введите первую сторону: ');

readln(a);

writeln('Введите вторую сторону: ');

readln(b);

writeln('Введите третью сторону: ');

readln(c);

if(a+b<c) or (a+c<b) or (b+c<a) then

writeln('Ваш треугольник не существует')

else

P:=a+b+c;

P2:=P/2;

S:=sqrt(P2*(P2-a)*(P2-b)*(P2-c));

writeln('Периметр = ',P);

writeln('Площадь = ',S);

end.

Задача 5

Program esep;

var hour : byte;

begin

Repeat

Write('Часы: ');

Readln(hour);

until hour in [1..24];

case

hour of 8..11 : Writeln('Доброеутро!');

12..16: Writeln('Добрыйдень');

17..23: Writeln('Добрыйвечер');

else Writeln('Добройночи!');

end;

Readln;

end.