Сайт о Delphi, Pascal и MIDletPascal

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

грек — 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

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

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

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

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

моделирование обработки процессов основаной на приоритетах

sleepes — Tue, 24 Feb 2009 19:45:06 GMT

Вобщем в универе дали такое задание. Приоритеты относительные.
Я уже вторую неделю пишу и вот что получилось

Code

begin
t:=0;
vipoln:=false;
znach:=0;
for i:=1 to 10 do
    mas[i]:=0;
while not vipoln do
   begin
    label1.Caption:=inttostr(t);
    for i:=1 to 10 do
        if procesi[i].postyp=t then
          begin
           mas[i]:= procesi[i].prioritet;     //пишем приоритет совпавшего времени
           procesi[i].postyp:=procesi[i].postyp+1;  // подготавлюем процессов к следуещему кванту времени
          end;

    for i:=1 to 10 do
       if znach         begin
          znach:=mas[i];
          max:=i;
         end;                     // находим номер элемента с найбольшим приоритетом

    procesi[max].dlitelnost:= procesi[max].dlitelnost-1; // уменшаем длительность

    if procesi[max].dlitelnost=0 then
     procesi[max].postyp:= procesi[max].postyp-1;   // проверяем процесс закончен или нет

    if procesi[max].dlitelnost=0 then
      StringGrid1.Cells[4,max]:=inttostr(t);  // записуем время если процесс кончился

    pusto:=0;
    for i:=1 to 10 do
       if not (StringGrid1.Cells[4,i]='') then
         pusto:=pusto+1;         // есть ли не законченый процесс

    if pusto=10 then
      vipoln:=true;       // конец цикла выполнения
    t:=t+1;
   end;

end;

Тут вроде теоритически все правильно, но с цикла оно выходить не хочет(

ПОМОГИТЕ!!!

tanaka — Tue, 24 Feb 2009 19:44:03 GMT

Дана целочисленная прямоугольная матрица. Определить:
а)кол-во строк не содержащих ни одного нулевого элемента (оформить в виде ф-ции);
б)максимальное из чисел встречающихся в заданной матрице более одного раза (оформить в виде процедуры).

для тех кому не слабо....

sleepes — Tue, 15 Apr 2008 17:46:20 GMT

ivin вот ты мне цель придумал, а я тож тебе сообразил

обьясняю суть, написать спец браузер для травиана, в котором можно было бы белать следущие вещи:

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

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

графика

sleepes — Mon, 07 Apr 2008 15:55:15 GMT

вобзем решил делать лабораторную и сразу не стал, не смог понять гед там найти все элементы графики и тп
если не трудно обьясните хотьгде что искать и и исходник какой нибуть проги небольшой

только текст

freak — Fri, 04 Apr 2008 11:59:36 GMT

Форум: Для новичков
Описание темы: про прозрачный фон
Автор темы: freak
Автор последнего сообщения: freak
Количество ответов: 2