признаком разветвляющегося алгоритма является наличие операций проверки условия. различают два вида условий – простые и составные.
простым условием (отношением) называется выражение, составленное из двух арифметических выражений или двух текстовых величин (иначе их еще ), связанных одним из знаков:
< - меньше,
> - больше,
< = - меньше, или равно
> = - больше, или равно
< > - не равно
= - равно
например, простыми отношениями являются следующие:
x-y> 10; k< =sqr(c)+abs(a+b); 9< > 11; ‘мама’< > ‘папа’.
в примерах первые два отношения включают в себя переменные, поэтому о верности этих отношений можно судить только при подстановке некоторых значений:
если х=25, у=3, то отношение x-y> 10 будет верным, т.к. 25-3> 10
если х=5, у=30, то отношение x-y> 10 будет неверным, т.к. 5-30< 10
проверьте верность второго отношения при подстановке следующих значений:
а) k=5, a=1, b=-3, c=-8
b) k=65, a=10, b=-3, c=2
Первая задача:
var digs:String;
sum, sr:Real;
i:Integer;
begin
writeln('Введите 5 чисел через пробел');
readln(digs);
digs := digs.Replace(' ', '');
sum := 0;
for i := 1 to 5 do
sum := sum + strToInt(digs[i]);
sr := sum / 5;
writeln('Сумма: ' + sum);
writeln('Сред. арифметическое: ' + sr);
end.
Ввод:
1 2 3 4 5
Вывод:
Сумма: 15
Сред. арифметическое: 3
Вторая задача:
var i:Integer;
begin
for i := 0 to 10 do
writeln(i + '^3=' + i**3);
end.
Вывод:
0^3=0
1^3=1
2^3=8
3^3=27
4^3=64
5^3=125
6^3=216
7^3=343
8^3=512
9^3=729
10^3=1000
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln('Наибольшее число',' ',a)
else writeln('Наибольшее число',' ',b);
end.