2д графика состоит и пикселей и она менее требовательная и легкая по создаваемости. а рисунки зделанные от руки более требовательны и трудны по создоваемости
uses graphabc; var a:array[1..5] of record x,y,x0,y0,g:real; end; i,c:integer; begin setwindowsize(800,600); setpenwidth(2); a[1].x:=400+150*cos(a[1].g/180*pi); a[1].y:=300+150*sin(a[1].g/180*pi); a[1].x0:=a[1].x; a[1].y0:=a[1].y; a[1].g:=a[1].g+1-(trunc(a[1].g) div 360)*360; for i:=2 to 5 do begin a[i].x:=a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi); a[i].y:=a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi); a[i].x0:=a[i].x; a[i].y0:=a[i].y; a[i].g:=a[i].g+power(10,i-1)-(trunc(a[i].g) div 360)*360; end; for c:=1 to 360 do begin a[1].x:=400+150*cos(a[1].g/180*pi); a[1].y:=300+150*sin(a[1].g/180*pi); line(round(a[1].x0),round(a[1].y0),round(a[1].x),round(a[1].y)); a[1].x0:=a[1].x; a[1].y0:=a[1].y; a[1].g:=a[1].g+1-(trunc(a[1].g) div 360)*360; for i:=2 to 5 do begin a[i].x:=a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi); a[i].y:=a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi); line(round(a[i].x0),round(a[i].y0),round(a[i].x),round(a[i].y)); a[i].x0:=a[i].x; a[i].y0:=a[i].y; a[i].g:=a[i].g+power(10,i-1)-(trunc(a[i].g) div 360)*360; end; end; end.
Type str = array [1..100] of char; var maxs, tmps : str; count, max, tmp, ctmp : integer;
procedure reads (var s : str; var len, val : integer); var b : boolean; c : char; i : integer; begin i := 0; b := false; repeat read (c); if not b or (c <> ' ') then begin if c = ' ' then b := true; inc (i); s[i] := c; c := '1'; end; until b and (c = ' '); len := i; readln (val); end; begin assign (input, 'input.txt'); reset (input); reads (maxs, count, max); while not eof do begin reads (tmps, ctmp, tmp); if tmp > max then begin max := tmp; count := ctmp; maxs := tmps; end; end; for tmp := 1 to count do write (maxs[tmp]); end.
2д графика состоит и пикселей и она менее требовательная и легкая по создаваемости. а рисунки зделанные от руки более требовательны и трудны по создоваемости