Сайт о Delphi, Pascal и MIDletPascal

Помогите найти кафе в Киеве, где можно заказать пиццу

tressag29 — Wed, 21 May 2025 20:20:45 GMT

Помогите найти кафе в Киеве, где можно заказать действительно вкусную пиццу. Сами мы редко пользуемся такими услугами и беспокоимся, что можем ошибиться в выборе специалистов.

Посоветуйте кафе в Киеве, где можно заказать вкусную пиццу.

tressag29 — Wed, 21 May 2025 20:20:43 GMT

Форум: Для новичков
Автор темы: tressag29
Автор последнего сообщения: grusakpavel
Количество ответов: 2

Постоение графика

грек — Wed, 21 May 2025 16:47:48 GMT

Форум: Для новичков
Автор темы: грек
Автор последнего сообщения: tressag29
Количество ответов: 1

проблема с обработкой строки

sleepes — Wed, 21 May 2025 16:47:40 GMT

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

Code

var
    str,s1: string;
    nach,fin,dlin: integer;
    i: integer;
begin
str:=Edit1.Text;
dlin:=length(str);
Insert(' ',str,dlin+1);
Insert(' ',str,1);

if RadioButton1.Checked=true then
  repeat
         nach:=pos(' ',str);
         delete(str,nach,1);
         insert('+',str,nach);
         fin:=pos(' ',str);

         Insert(str[nach+1],str,fin);
         Delete(str,nach+1,1);
   until nach

заранее спасибо

из програмки в процедуру

sleepes — Wed, 21 May 2025 16:47:32 GMT

короче написал програмку, а надо сделать так что бы ее функции выполнялись в процедуре

програмка:

Code

program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
    s1:String;
    N,i,j:integer;
    mas,masfin: array[1..5] of string;
begin
   for i:=1 to 5 do
      readln (mas[i]);
   for j:=1 to 5 do
      begin
       s1:=mas[j];
       for i:=1 to Length(s1) do
          begin
           N:=pos('  ',s1);
           if N>0 then
             begin
              delete(s1,N,2);
              Insert(' ',s1,N);
             end;
          end;
       masfin[j]:=s1;
      end;
   writeln;
   for i:=1 to 5 do
      writeln (masfin[i]);
   readln;
end.

Добавлено (08.04.2008, 20:10)
---------------------------------------------
вот что за процедуру получил:

Code

program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
    mas: array[1..5] of String;
    masfin: array of String;
    q: integer;
procedure sgat(masnach: array of String);
          var
             s: string;
             N,i,j: integer;
          begin
             for j:=1 to 5 do
                begin
                 s:=mas[j];
                 for i:=1 to Length(s) do
                    begin
                     N:=pos('  ',s);
                     if N>0 then
                       begin
                        delete(s,N,2);
                        Insert(' ',s,N);
                       end;
                    end;
                masfin[j]:=s;
                end;
          end;
begin
   for q:=1 to 5 do
      readln (mas[кью]);
   sgat(mas);
   writeln;
   for q:=1 to 5 do
      writeln (masfin[кью]);
   readln;
end.

кью=q просто оно матюкается если q оставить)

только с процедурой не работает((
что не так сделал? уже неделю ломаю голову(

Игры созданные в Делфи

Ivin — Thu, 13 May 2010 05:46:49 GMT

Тут будет пополнятся список игр написанных на делфи с сыслками на офф. сайт игры.

Список:

ТикКор
Суть иры заключается в том, чтобы собрать как можно больше очков. Очки набираются за всплывшие кубики. Всплывают минимум 2 кубика стоящие рядом. Чем больше кубиков всплывает за раз тем больше очков ты получаеш.
http://regame.my1.ru/load/1-1-0-7

Хранитель порядка v 1.1
Он должен расставить все по своим местам. Он слишком долго спал, но теперь он проснулся и должен восстановить порядок. Порядок это его цель.
Жанр этой игры аркада. В этой игре вам предстоит расставить по своим местам все камни.
http://regame.my1.ru/load/1-1-0-6

Dohtor
Дохтор это простая аркада суть которой сводится к быстрому убиванию микробов появляющихся пепед игроком.
http://regame.my1.ru/load/1-1-0-3

Плавильня мозгов
Плавильня мозгов. Это логическая игра. На высокой сложности это действительно плавка мозгов. =)
Правила игры: нужно размещать фишки на поле так чтобы они не повторялись в строке и столбце. Победа когда все поле заполняется, проигрыш когда остаются места которые нельзя заполнить.
http://regame.my1.ru/load/1-1-0-2

Пишите известные вам игры написанные на Делфи.

помогите пожалуйста решить задачу!

lifrin — Wed, 02 Dec 2009 10:51:54 GMT

Здраствуйте!Помогите решить задачу в делфи!Очень нужно!у меня кратчайшие сроки,сам не успеваю разобраться

Дана матрица А(m,n)
В каждой ее строке найти колво элементов, меньших среднего арифметического всех элементов этой матрицы.

Заданее спасибо!

Помогите решить задачу!!!

Crazy-x7 — Wed, 02 Dec 2009 10:50:07 GMT

Помогите решить задачу! Седня задали на модуле, пол пары сидел, но ничего так и не получилось толком :'( !
Суть задачи:
Напишить Windows приложени. На форме расположить необходимые компоненты: поясняющие надписи-Label , для массивов-StringGrid ,необходимые кнопки, а также компоненты для показа ответов.

В квадратной матрице размером 5х5 ,заполненной случайными целыми числами из диапазона ( -40, +40 )
в секторах 3 и 4 найти соотвецтвенно максимальный отрицательный и минимальный положительный элементы. Сектор включает диагональные элементы.
Сектора располагаются так:
1
4 2
3

Кто сможет решить, тому ОГРОМНОЕ спасибо! В долгу не останусь) B)

Помогите не дайте погибнуть

KAIN302 — Thu, 19 Mar 2009 00:12:46 GMT

Дорогие люди помогите написать (или скиньте)) крестики нолики 10х10 c подробными коментариями в Delphi, а то 2 дня не сплю, завтра сдавать вообщем край. Заранее спасибо.
kristinavdovina@mail.ru

как сделать таймер

ger1234567 — Tue, 24 Feb 2009 19:49:57 GMT

Форум: Для новичков
Автор темы: ger1234567
Автор последнего сообщения: Ivin
Количество ответов: 2