Данил Душистов: «Решение 50 типовых задач по программированию на языке Pascal»
16
writeln('x = ', x1:4:2)
end;
Код:
1.
program QuadraticEquation;
2.
3.
var
4.
a, b, c, d, x1, x2: real;
5.
6.
begin
7.
readln(a, b, c);
8.
d := b * b - 4 * a * c;
9.
if d >= 0
then begin
10.
if d <> 0 then begin
11.
x1 := (-b + sqrt(d)) / 2 * a;
12.
x2 := (-b - sqrt(d)) / 2 * a;
13.
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
14.
end
15.
else begin
16.
x1 := -(b / 2 * a);
17.
writeln('x = ', x1:4:2)
18.
end
19.
end
20.
else begin
21.
writeln('No real solutions!');
22.
end
23.
end.
Глава 3. Циклы
Задача № 13. Вывести на экран все натуральные числа до заданного
Формулировка. Дано натуральное число. Вывести на экран все натуральные числа до задан-
ного включительно.
Решение. Данная задача решается с использованием оператора цикла
for. Напомним, что с
помощью цикла
for можно совершить заданное количество итераций (повторений) некоторых опе-
раторов, которые синтаксически заключены в содержимое его тела (так называемого тела цикла).
При этом некоторая целочисленная переменная изменяется от некоторого стартового значения до
некоторого конечного (оба значения включительно), увеличиваясь на единицу с каждым повторе-
нием тела цикла.
Так как нам необходимо выводить натуральные числа, это означает, что вывод должен всегда
начинаться с единицы, и при этом выводятся все следующие за ней натуральные числа до тех пор,
пока значение переменной цикла (обычно используют переменную
i) не достигнет конечного
n (на
последнем шаге значение переменной цикла будет равно
n). После этого цикл завершится, и будут
выполнены те операторы, которые следуют непосредственно за ним. Кстати, не стоит забывать, что
после выхода из цикла
for его переменная цикла считается неопределенной!
Код:
1.
program FromOneToN;
2.
3.
var
