Номер 202, страница 58, часть 2 - гдз по информатике 8 класс рабочая тетрадь Босова, Босова

Задания к § 4.3 (5.3). Программирование линейных алгоритмов. Главы 4-5. Начала программирования. Часть 2 - номер 202, страница 58.

Условие.

202.Напишите программу, которая вычисляет:

а) дискриминант квадратного уравнения

б) площадь кольца, если его толщина t см, а диаметр внутреннего круга — d см:

Решение.

а)
var a, b, c, d: real;
begin
writeln (‘a = ‘);
read (a);
writeln (‘b = ‘);
read (b);
writeln (‘c = ‘);
read (c);
d:=b*b-4*a*c;
writeln (‘Дискриминант равен ‘, d);
end.

б)
var d, t, s: real;
begin
writeln (‘d = ‘);
read (d);
writeln (‘t = ‘);
read (t);
s:=3.14*sqr(d/2+t)-3.14*sqr(d/2);
writeln (‘Площадь равна ‘, s);
end.