Презентация, доклад по информатике на тему Циклы в программировании

a/b
Функция. Ее объявление на Паскале
Квадратичная sqr(x)
Абсолютная величина|x| abs(x)
Квадратный корень sqrt(x)
Синус sinx sin(x)
Косинус cosx cos(x)
Арктангенс arctgx arctan(x)
Натуральный логарифм lnx ln(x)
Показательная функция (экспонента) exp(x)

c = 0.

значений коэффициентов.
3. Вычисление значения дискриминанта (d).
Если d < 0, тогда уравнение не имеет корней,
иначе,
если d = 0,
тогда уравнение имеет один корень,
вычислить значение этого корня и выдать его на экран,
иначе, уравнение имеет два корня,
вычислить их и выдать на экран.
4. Конец.

a, b, c, d, x1, x2 : real;
begin
write('Введите коэффициенты уравнения ');
readln(a, b, c);
d := b*b - 4*a*c;
if d < 0 then writeln('Уравнение не имеет корней')
else
if d=0
then
writeln('Уравнение имеет один корень ',-b/(2*a))
else
begin
x1 := (-b - sqrt(d))/(2*a);
x2 := (-b + sqrt(d))/(2*a);
write('Уравнение имеет два различных корня ');
writeln('x1 = ', x1, ' x2 = ', x2)
end
end.

имя переменной, значение которой выводится (в данном случае - x1 или x2), формат f1 указывает, сколько позиций нужно для всего числа, включая знак числа, целую часть, точку и дробную часть числа; f2 - число позиций дробной части числа (после точки).

', -b/(2*a):6:3) и
writeln('x1 = ', x1:6:3, ' x2 = ', x2:6:3)
Теперь понятно, что для выводимых результатов отведено 6 позиций, а для дробной части - 3 позиции, т.е. до тысячных долей (думается этого достаточно для школьных задач).

затем измените ее, применив форматированный вывод результата, и выполните еще раз. Сравните результаты.
2. Составьте программу решения линейного уравнения ax = b и выполните ее.