// Программа выводит по 10 раз имя и фамилию тремя разными циклами for while
// repeat until
Program LoopName;
Uses Crt;
var name,s_name:string;
i:integer;
begin
clrscr;
write('Введите имя: ');
readln(name);
write('Введите фамилию: ');
readln(s_name);
writeln('Цикл For');
for i:=1 to 10 do writeln(name,' ',s_name );
writeln;
writeln('Цикл while');
i:=1;
while (i<=10) do
begin
writeln(name,' ',s_name );
i:=i+1;
end;
writeln;
writeln('Цикл repeat until');
i:=0;
repeat
writeln(name,' ',s_name );
i:=i+1;
until(i=10);
readkey;
end.
Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name); {считываем имя в переменную first_name}
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name); {В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}
end.
Формулы: r=a/2tg(360/2n)
R=a/2sin(360/2n)
1 случай:
n=6 r=9
a=2tg(360/2n)*r=2tg30*9=6√3
P=a*6=36√3
R=6√3/2sin30=6√3
2 случай:
n=3 r=5√3
a=2tg(360/2n)*r=2tg60*5√3=√3*2*5√3=30
P=a*6=30*6=360
R=30/2sin60=30/√3=10√3
Комментарии