Задача на пайтон: Збудувати дім з панелей на основі функцій попереднього прикладу. Попередній приклад: def panel1(n): print("+"+"-"*n+"+") def panel2(n): print("|"+" "*n+"|") def panel(n): panel1(n) for i in range(n): panel2(n) panel1(n)
Var i,j,s,k:integer; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2); end.
Результат: s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то: помещаете на форме командную кнопку (Button) и статичный текст (StaticText). В обработчик кнопки добавляете код: procedure TForm1.Button1Click(Sender: TObject); var i,j,s,k:integer; s:string; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k); StaticText1.Caption := s; end;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.
Результат:
s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
StaticText1.Caption := s;
end;
1)x = (input('x= '))
y = (input('y= '))
z = (input('z= '))
c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))
print(
else:
print
2)uses crt;
var x,y:real;
f1,f2:boolean;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
f1:=(x>2)and(y>3);
f2:=(x>1)and(y>-2);
writeln(f1);
write(f2);
readln
end.
3)uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
5)uses crt;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=40 to 140 do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.