Напишите программу которая вычесляет(а)дискриминант квадратного уравнения (б)площадь кольца,если его толщина t см,а диаметрвнутреннего
1) Для решения поставленной задачи вычисления дискриминанта составим программу на языке программирования Паскаль:
var a, b, c D: integer;
writeln (‘Введите значение коэффициента, стоящего перед x^2’);
writeln (‘Введите значение коэффициента, стоящего перед x’);
writeln (‘Введите значение свободного коэффициента’);
D:= sqr(b) — 4 * a * c;
writeln (‘Дискриминант квадратного уравнения равен’, D);
2) Для решения поставленной задачи вычисления площади кольца составим программу на языке программирования Паскаль:
Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)
Var a,b,c,d:integer;
begin
writeln(‘Введите коэффициенты a, b, c:’);
readln(a,b,c);
d:=b*b-4*a*c;
writeln(‘D = ‘,d);
end.
Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156
У тебя написано только дискриминант. Я написал, но мне кажется тебе нужны были корни
Напишите программу, которая вычисляет дискриминант квадратного уравнения
Рабочая тетрадь по Информатике 8 класс Босова
of your page —>
Задание 178. Напишите программу, которая вычисляет: а) дискриминант квадратного уравнения:
program disc;
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 = ‘, d);
end.
б) площадь кольца, если его толщина t см, а диаметр внутреннего круга — d см:
program disc;
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 = ‘, s);
end.