Lakers

как говорилось ранее проще рисовать на canvas'e, для этого нужно создать форму. Далее вводишь коэффициенты масштабирования и при вращении колёсика либо по каким то кнопкам меняешь их. float kx,ky; kx=Widht/maxX-minX; ky=Height/maxY-minY; Рисовать(x*kx,F(x)*ky); при вращении колёсика kx*=1.01;ky*=1.01;либо kx*=0.99;ky*=0.99;

?

на каком языке будут задачи?а то на acm.sgu.ru и на spoj.pl задачи только на английском.

TolkienDRR ага, точно, щяс программу изменили и на первом курсе курсоча нет. Зато идут предметы которые были раньше на втором курсе, а то и на третьем.

Cristian наверно точно ЭВС...

в паскале также будет вычислять несколько раз

program lab; uses crt; var s1:string [10]; i,j,c:integer; begin writeln ('vvedite stroku'); readln (s1); i:=length (s1); c:=0; for j:=1 to i do If s1[j]='x' then inc(c); writeln (c); end.

с точки зрения программистов не хватает картинки main.bmp, нарисуй ченить сам и всунь по адресу:-)

http://ulanovka.ru/forum/viewtopic.php?t=77258

помню кому то писал...но ничего от неё не осталось.

i=2; while i for j:=1 to n do s1=s1+a[i,j]; i=i+2; end; writeln(s1);

C7H5N3O6

кидаеш на форму три кнопки и три объекта типа TImage.тыкаеш два раза по первой кнопке пишиш Image1.Visible:=True; Image2.Visible:=False; Image3.Visible:=False; во второй кнопке пишиш: Image1.Visible:=False; Image2.Visible:=True; Image3.Visible:=False; в третьей кнопке пишиш: Image1.Visible:=False; Image2.Visible:=False; Image3.Visible:=True;

El.Paso Предлогай стартовую цену=)

Vol89 Берусь!

http://ulanovka.ru/forum/viewtopic.php?t=128400

http://ulanovka.ru/forum/viewtopic.php?t=128400 и зачем плодить столько тем...

http://ulanovka.ru/forum/viewtopic.php?t=128400

как отчёт оформлять это не в дельфи. просто на бумаге. Задание,листинг(Код),вывод и т.д. Добавлено спустя 9 минут 56 секунд: Отчет включает: 1. Титульный лист 2. Цель работы 3. Задание в соответствии с вариантом 4. Блок-схему программы 5. Текст программы на языке Pascal 6. Результаты работы программы

вставляй в ворд этот код и оформляй как отчёт...

Мне тоже в личку пришите если что. За небольшие деньги :-)

смотри :-D http://ru.wikipedia.org/wiki/0_%28%D1%87%D0%B8%D1%81%D0%BB%D0%BE%29

ну да=) зато вот это ((a[i]>=0) and (a[i-1]<0)) or ((a[i]<0) and (a[i-1]>=0)) можно вроде как и покороче :-D

uses crt; Const n= 20; Var m :array [1..n] of integer ; i,j temp :integer ; begin clrscr; Randomize ; for i:=1 to n do m[i] :=random (100) ; for i: =1 to n-1 do for j:=i to n do if m[j]>m[j+1] then begin temp :=m[j]; m[j] :=m[j+1]; m[j+1]:=temp; end; for i:=1 to n do write(a[i]:5); readkey; end. uses crt; var i,n:integer; a:array[1..20]of integer; begin clrscr; write('N= '); readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if a[i]*a[i+1]<0 then writeln('между ',i,' и ','j'); readkey; end.

var s,s2: string; i: integer; a: array[0..255] of byte; begin readln(s); for i:=1 to length(s) do inc(a[ord(s[i])]); a[ord(' ')]:=1 { a[32]:=1} for i:=1 to length(s) do if a[ord(s[i])]=1 then s2:=s2+s[i]; writeln(s2); end.