Нарисуйте блок-схему и напишите программу для исполнителя, которая вычисляет значение функции. выполните 2-мя с неполного условия и вложенного ветвления.
Var k:integer; a,b,s:real; begin writeln('Введите цифровой код (1 или 2):'); readln(k); case k of 1: begin write('Длина ребра куба a = '); readln(a); s:=6*a*a; writeln('Общая площадь поверхности = ',s); end; 2: begin write('Катеты прямоугольного треугольника a, b = '); readln(a,b); s:=a*b/2; writeln('Площадь треугольника = ',s); end; else writeln('Ошибка ввода'); end; end.
Пример: Введите цифровой код (1 или 2): 2 Катеты прямоугольного треугольника a, b = 3 4 Площадь треугольника = 6
1 - сумма двух чисел, 8 - сумма одного из слагаемых первого числа, а также нового, третьего числа. Так как 1 - сумма двух натуральных чисел, легко сделать вывод, что это числа 1 и 0. Значит 8 - сумма чисел либо 8 и 0, либо 7 и 1. Комбинируем числа из 0, 7 и 1, так как это число точно будет меньше, чем состоящее из 1, 0 и 8. Пусть 1 и 0 - первое и второе числа, тогда... ошибка. 8 - сумма 2-го и 3-го чисел. А 0 не может стоять в разряде сотен. Значит комбинируем из 0, 1 и 8: 1 - первое, 0 - второе и 8 - третье; 1+0=1, 0+8=0, вместе 81. ответ: 108.
begin
writeln('Введите цифровой код (1 или 2):');
readln(k);
case k of
1: begin
write('Длина ребра куба a = ');
readln(a);
s:=6*a*a;
writeln('Общая площадь поверхности = ',s);
end;
2: begin
write('Катеты прямоугольного треугольника a, b = ');
readln(a,b);
s:=a*b/2;
writeln('Площадь треугольника = ',s);
end;
else writeln('Ошибка ввода');
end;
end.
Пример:
Введите цифровой код (1 или 2):
2
Катеты прямоугольного треугольника a, b = 3 4
Площадь треугольника = 6