Program myach; uses crt,graphabc; var x:integer; begin x:=1; for x:=190 to 465 do begin clrscr; circle(150,150,15); line(150,165,150,250); line(150,250,130,270); line(150,250,170,270); line(150,180,180,175); line(150,180,180,180); circle(500,150,15); line(500,165,500,250); line(500,250,480,270); line(500,250,520,270); line(500,180,470,175); line(500,180,470,180); circle(x,170,10); Delay(5); end;
for x:=465 downto 190 do begin clrscr; circle(150,150,15); line(150,165,150,250); line(150,250,130,270); line(150,250,170,270); line(150,180,180,175); line(150,180,180,180); circle(500,150,15); line(500,165,500,250); line(500,250,480,270); line(500,250,520,270); line(500,180,470,175); line(500,180,470,180); circle(x,170,10); Delay(5); end; end.
Program Task; Var a, b, c, d: Integer; Function Max(a, b: Integer): Integer; Begin If a > b Then Result := a Else Result := b; End; Function Min(a, b: Integer): Integer; Begin If a < b Then Result := a Else Result := b; End; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('c = '); ReadLn(c); Write('d = '); ReadLn(d); WriteLn('max(a, b) + min(a, b) + min(c,d) = ', Max(a, b) + Min(a, b) + Min(c,d)); WriteLn('max(a, b, c, d) + min(a, b, c) = ', Max(Max(a, b), Max(c, d)) + Min(Max(a, b), c)); ReadLn; End.