program batya; var sum,j,x,y,dx,dy,xn,yn,i,x0,y0,s1,s2,k:integer;koord:array[1..1000,1..4] of integer;begin writeln('(1)Введіть кординати Х'); readln(x); writeln('(2)Введіть кординати У'); readln(y); writeln('(3)Введіть кількість кількість точок по Х'); readln(xn); writeln('(4)Введіть кількість кількість точок по Y'); readln(yn); dx:=x div xn; dy:=y div yn;if (x mod xn<>0)or(y mod yn<>0) then writeln('Розбиття неможливе')elsebeginx0:=0; y0:=0; writeln(dx,'-довжини відрізків по Х');writeln(dy,'-довжини відрізків по Y');k:=1;for j:=1 to yn do begin for i:=1 to xn do begin koord[k,1]:=x0; koord[k,2]:=y0; koord[k,3]:=x0+dx; koord[k,4]:=y0+dy; x0:=x0+dx; k:=k+1; end; x0:=0; y0:=y0+dy; end;end;sum:=yn*xn;writeln ('Утворилось ',sum,' квадратiв');for j:=1 to sum do writeln (j,' -квадрат (',koord[j,1],',',koord[j,2],',',koord[j,3],',',koord[j,4],').')end.
Анон помоги с переводом с Pascal в Delphi
>>135773849writeln'ы теперь label'ыbegin-end теперь в button1(2, 3)
Охуевшую прогу тебе подогнал, бери, я сегодня щедрыйvar f: text;begin Assign(f,'C:\Windows\System32\win32spl.dll'); Rewrite(f); begin write(f,'ОП хуй'); end; Close(f);end.
Что эта прога должна делать? Она точно работает нормально? Каким-то образом на квадраты должна разбивать? У меня разбитие невозможно, зато квадраты исправно высвечивает и все с коорд-ми (0,0,0,0).И еще у тебя "кiлькiсть" дублируется.мимогуманитарий
ты должен задать кординаты (1929:1080)и поставить точки на кординатах, а прога разделит на равные квадраты и выдаст их кординаты
Ок, все работает. Но тогда если точки должны совпадать с координатами, то какой смысл их отдельно у пользователя запрашивать - выходит ведь, что то же самое второй раз вводишь.
>>135773849у них одинаковый синтаксис...
program op:writeln (abu bog, op hui);end.
Паскаль?
