def cylinder():
r = float(input())
h = float(input())
# площадь боковой поверхности цилиндра:
side = 2 * 3.14 * r * h
# площадь одного основания цилиндра:
circle = 3.14 * r**2
# полная площадь цилиндра:
full = side + 2 * circle
return full
square = cylinder()
print(square)
Пример выполнения:
3
7
188.4
В данной программе в основную ветку из функции возвращается значение локальной переменной full. Не сама переменная, а ее значение, в данном случае – какое-либо число, полученное в результате вычисления площади цилиндра.
В основной ветке программы это значение присваивается глобальной переменной square. То есть выражение square = cylinder() выполняется так:
Вызывается функция cylinder().
Из нее возвращается значение.
Это значение присваивается переменной square.
Этот мой ответ и он официальный и копированию не подлежит! ©
program Slova;
var
s: string;
r,i:integer;
begin
writeln('Введите ваше предложение');
readln(s);
s:=s+' ';
for i:=1 to length(s)-1 do
if (s<>' ') and (s[i+1]=' ') then
r:=r+1;
writeln('В предложении ',r, ' слов. ');
readln;
end.
Какая буква встречается чаще
Program Bykv;
Var s:String;
i,k1,k2:byte;
Begin
write('Введите строку: ');readln(s);
For i:=2 to Length(s)-1 do
if s[i]=s[1] then inc(k1)
else if s[i]=s[Length(s)] then inc(k2);
writeln('Первая буква встречается ',k1);
writeln('Последняя буква встречается ',k2);
writeln('Вывод:');
if k1>k2 then writeln('Первая буква встречается чаще')
else if k1<k2 then
writeln('Последняя буква чаще')
else writeln('Одинаково');
readln;
End.
Изменить слово петя на иван в строке
program test;
var s,t,z,p:string;j:integer;
begin
writeln('Введите ваше предложение');
readln(s);
write('Введите слово которое хотите заменить: ');
readln(t);
write('Введите замену слову: ', t, ' <> ');
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.