1)Найти наибольшее из пяти заданных чисел используя вспомогательный алгоритм нахождения большего из двух
2) Подсчитать количество слов в тексте, используя алгоритм нахождения пробелов в строке
3) Составить программу для вычисления значения выражения :a в степени b
4) Найти площадь круга с использованием процедуры которая производит только вычисления, но не отображает результата на экране
Ответы
Решение:
Решено на Pascal и Python
Pascal
1.
program ru;
var a,b,c,d,e,max:integer;
begin
writeln('Введите пять целых чисел через пробел: ');
readln(a,b,c,d,e);
max:=a;
if b>max then
max:=b;
if c>max then
max:=c;
if d>max then
max:=d;
if e>max then
max:=e;
writeln('Наибольшее число равно: ', max);
end.
2.
var
str, s: string;
arr: array[1..255] of string;
n,i,l: byte;
begin
readln(str);
l := length(str);
n := 0;
s := '';
for i:=1 to l do
if ((str[i] = ' ') or (i = l)) and (s <> '') then begin
n := n + 1;
if (i = l) and (str[i] <> ' ') then s := s + str[i];
arr[n] := s;
s := '';
end
else
if str[i] <> ' ' then
s := s + str[i];
writeln('Количество слов: ', n);
end.
3.
var a,n:integer;
s:real;
begin
write('Введите число: ');
readln(a);
write('Введите степень: ');
readln(n);
s:=exp(ln(a)*n);
write('Ответ= ',s);
end.
4.
var
s, r: real;
procedure sq(var a,b: real);
begin
b := pi * a * a;
end;
begin
writeln('Введите радиус: ');
readln(r);
sq(r,s);
writeln('Площадь: ', s);
end.
Python
1.
spisok_chisel = []
while True:
chislo = int(input('Введите число: '))
spisok_chisel.append(chislo)
if len(spisok_chisel) == 5:
break
print('Максимальное число: ', max(spisok_chisel))
2.
text = input('Введите слова: ')
text = text.split(' ')
print('Количество слов в тексте ', len(text))
3.
a = int(input('Введите число: '))
b = int(input('Введите степень: '))
print('{} в {}-ой степени равно = '.format(a, b), a ** b)
4.
import math
r = float(input('Введите радиус: '))
S = math.pi * (r ** 2)
print('S = ', S, 'см^2')