delphi help

[top1]

[Gizma]

я такую хуйню ещё в школе на информатике решал

если будет че поинтересней пиши

[[LF.Dota]GodLike!]

107 с картинки

 

program coolstorybro;

var

m,i:longint;

function step(x:longint):longint;

var s,i:longint;

begin

s:=1;

for i:=1 to x do s:=s*4;

step:=s;

end;

begin

read(m);

for i:=1 to m do if (step(i)<m) and (step(i+1)>m) then

begin

write(i);

break;

end;

end.

 

[AF.ka]

прочитал как dendi help

хотел послать нахуй с дотером из таверны

[MyDarlingJackson]

Здал экзамен по делфи на 5 

На щет помощи несаветую автору 

 

Тк препод полюбому отлечит твою манеру работать в делфи и професионала 

 

больше нечего сказать

 

с пикчи 111

 

dim a,x

input x

a=x^2

for i=8 to 1 , step -1(или хз как там в паскале)

a=(2^i)/a+x^2

next i

a=x/a

print a

в паскале не = , а :=

спасибо все равно, ща разберусь

а еще там в конце строки уебищная ; и что теперь и как там дименшн идет я не помню, да и вообще не помню как там команды пишутся. паскаль я изучал в 9 классе епт и больше к нему не прикасался.

алгоритм то сойдет.

вот пример

 

var

  str: string;

  l: integer;

  dim: array of integer;

begin

  str := '<тестовая строка>';

  writeln('сама строка =' + str);

 

// 1. срез строки (например, вывод строки с 3 по 14 символы)

  writeln(copy(str, 3, 14-3+1));

 

//  1.1 последний элемент строки

  writeln(str[length(str)]);

 

//  1.2 номер заданного элемента в строке

  l := 5;

  writeln(str[l]);

 

//2. остаток от деления

  writeln('остаток от деления 10 на 6 = ', 10 mod 6);

 

//3. добавление элемента в конец списка (на паскале списки вроде называются массивами) 

  l := 3;

  setlength(dim, l); // заводим массив из 3-х элементов...

  dim[0] := 5; // инициализируем...

  dim[1] := 10;

  dim[2] := 15;

 

  setlength(dim, length(dim)+1); // увеличиваем массив на 1

  dim[3] := 20; // присваиваем...

  for l := 0 to length(dim)-1 do

    writeln(l, '--> ', dim[l]); // выводим

 

  dim := nil; // освобождаем...

//или  setlength(dim, 0);

end.

 

какой же уебищный этот паскаль.....

[adskii_troglotit]

а я еще выигрывал в чемпионате по программированию чемпионов по дальному востоку. ебашил поиск в ширину/в глубину/динамическое программирование. не помогу офк

 

хотя какая цена? 

[Hellriser]

вот пару задачек

1 разработать приложение, при попытке завершения которого выдается стандартный предупреждающий диалог ( риализоваь выбор следующих ситуаций: закрыть/свернуть/отменить).

 

2 создать окно, на поверхности которого пользователь может рисовать непрерывную линию путем перемещения мыши при нажатой левой кнопке (предусмотреть возможность выбора цвета и толщины линии с помощью правой кнопки).

 

3. создать утилиту для изменения даты создания выбранного файла

[Гость 2poy]

1-2 реализованы в пэнте скажи что сам написал 

[Hellriser]

ne4ego (

[Гость 2poy]

ну т.е. в пэинте офк

[KpbIcoboi]

 

 

бля  :lol: :lol: :lol:

а че раньше было?)

[Lamer]

 

 

бля  :lol: :lol: :lol:

а че раньше было?)

то и было, только без оффтопа  не абужу же

 

по сабжу если будет интересная задача - помогу. ну или если пиздец припечет, то пару штук сделаю

[Hellriser]

ну лан вот вам все задания

 

разработать систему перекодировки целых чисел между системами с основаниями 2,8,10,16

 

разобрать утилиту, рисующию окружность случайного цвета и диаметра в указаной мышью точке экрана (предусмотреть возможность выбора кнопок мыши - левая, правая , обе)

 

создать окно с кнопкой ( или другим обьектом по выбору), которую пользователь может плавно перемещать (любым способом) в пределах окна

 

разработать калькулятор с тригонометрическими функциями (использовать возможности try/except для "отлова" исключительных ситуаций).

 

разработать однооконное приложение, распознающее нажатие всех клафишь(учитывая состояние клавиши shift, ctrl, alt и др.)

 

создать окно без заголовка, которое тем не менее можно перемещать по экрану с помощью мыши.

 

создать утилиту для переименования/копирования выбранного файла (обеспечит сохранение атрибутов файла).

 

создать утилиту для изменения даты создания выбранного файла.

 

разработать приложение, при попытке завершения которого выдается стандартный предупреждающий диалог (реализовать выбор следующих ситуаций закрыть\свернуть\отменить)

 

создать окно, на поверхности которого пользователь может рисовать непрерывную линию путем перемещения мыши при нажатой левой кнопке (предусмотреть возможность выбора цвета и толщины линии с помощью правой кнопки)

 

создать окно, на поверхности которого пользователь может рисовать неприрывную линию путем перемещения мыши, причем начало линии определяется нажатием левой кнопки мыши, конец -нажатием правой кнопки мыши.

 

разработать выполняющееся в свернутом виде приложение, выдающее пользователю напоминания ( например, сообщение о позднем, после 24 часов, времени работы); предупреждения подавать каждые 15 минут.

 

создать приложение, определяющее число заданных дней недели (например, вторников в выбранном пользователем промежутке времени.

 

разработать приложение, при попытке завершения которого выдается стандартный предупреждающий диалог (реализовать выбор следующих ситуаций закрыть\свернуть\отменить)

 

создать окно, на поверхности которого пользователь может рисовать непрерывную линию путем перемещения мыши при нажатой левой кнопке (предусмотреть возможность выбора цвета и толщины линии с помощью правой кнопки)

 

создать окно, на поверхности которого пользователь может рисовать неприрывную линию путем перемещения мыши, причем начало линии определяется нажатием левой кнопки мыши, конец -нажатием правой кнопки мыши.

 

разработать выполняющееся в свернутом виде приложение, выдающее пользователю напоминания ( например, сообщение о позднем, после 24 часов, времени работы); предупреждения подавать каждые 15 минут.

 

создать приложение, определяющее число заданных дней недели (например, вторников в выбранном пользователем промежутке времени.

[Ramil]

Каждая задача по 5 строчек :)