Всё о создании игр

Opengl, Lazarus, Реализация игрового поля

cann — Sun, 26 Dec 2021 12:09:33 GMT

Окно создаваемого OpenGL приложения развернуто на весь экран, например разрешение экрана 1366х768 пикселй. Хотелось бы понять как реализовать игровое поле определенного размера, например 400х400 пикселей, при этом игровой объект "Астероид" должен быть виден в пределах игрового поля и не виден за пределами игрового поля. Игровой объект "Астероид" должен плавно появляться в игровом поле из неигрового поля. Как можно сделать это методами OpenGL?

Opengl, Lazarus, Пересечение игрока со стеной

cann — Tue, 06 Apr 2021 13:32:52 GMT

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

Код

program ogl_p3;

uses gl,glut,glu;

const
  AppWidth = 640;
  AppHeight = 480;
  n = 4;

type
  rectIndexArr = array[1..n] of Glfloat;
var
  player_rect: rectIndexArr;
  posx1, posx2: Real;
  stepx: Real;
  keySpecialStates: array[0..256] of Boolean;

procedure keyOperations;
begin
     if (keySpecialStates[GLUT_KEY_LEFT]) then
     begin
          stepx := -0.025;
     end;
     if (keySpecialStates[GLUT_KEY_RIGHT]) then
     begin
          stepx := 0.025;
     end;
end;

procedure ReshapeCallback(width, height: Integer); cdecl;
begin

end;

procedure DisplayCallback; cdecl;
begin
     stepx := 0.0;
     // Проверка нажата ли клавиша влево или вправо
     keyOperations;
     // Рисуем игровое поле
     glClearColor(1/255.0, 11/255.0, 25/255.0, 1.0);
     glClear(GL_COLOR_BUFFER_BIT);
     glBegin( GL_QUADS );
              glColor3f( 3/255.0, 33/255.0, 74/255.0 );
              glVertex2f( -1, 1 );
              glVertex2f( 1, 1 );
              glVertex2f( 1, -1 );
              glVertex2f( -1, -1 );

              glColor3f(5/255.0, 55/255.0, 123/255.0);
              glVertex2f( -0.95, 0.95 );
              glVertex2f( 0.95, 0.95 );
              glVertex2f( 0.95, -0.95 );
              glVertex2f( -0.95, -0.95 );
     glEnd;
     // Смещение игрока на stepx относительно текущей позиции при перемещение влево или вправо
     posx1 := posx1+stepx;
     posx2 := posx2+stepx;
     // Проверка пересечения игрока со стеной, если пересечение происходит, то позиционируем игрока на краю стены
     if posx1>0.95 then
     begin
          posx1:=0.95;
          posx2:=0.90;
     end;
     if posx2<-0.95 then
     begin
          posx1:=-0.90;
          posx2:=-0.95;
     end;
     // Рисуем игрока
     glColor3f( 183/255.0, 183/255.0, 183/255.0 );
     glRectf(posx1, player_rect[2], posx2, player_rect[4]);

     glutSwapBuffers();
end;

procedure PressKey(key: Integer; x,y: Integer); cdecl;
begin
     keySpecialStates[key] := true;
end;

procedure ReleaseKey(key: Integer; x,y: Integer); cdecl;
begin
     keySpecialStates[key] := false;
end;

procedure IdleCallback(); cdecl;
begin
     glutPostRedisplay();
end;

procedure Init;
var
  i: Integer;
begin
     stepx := 0.0;
     player_rect[1] := -0.025;
     player_rect[2] := -0.85;
     player_rect[3] := 0.025;
     player_rect[4] := -0.9;

     posx1 := player_rect[1];
     posx2 := player_rect[3];

     for i:=0 to 256 do
     begin
       keySpecialStates[i] := false;
     end;
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');
     Init;

     glutReshapeFunc(@ReshapeCallback);
     glutDisplayFunc(@DisplayCallback);

     glutSpecialFunc(@PressKey);
     glutSpecialUpFunc(@ReleaseKey);
     glutIdleFunc(@IdleCallback);

     glutMainLoop();
end;

begin
     main();
end.

Добавлено (06 Апреля 2021, 16:32)
---------------------------------------------
Вопрос решен.

Opengl, движение прямоугольника при удержание клавиш

cann — Tue, 06 Apr 2021 13:32:08 GMT

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

Код

program ogl_p2;

uses gl,glut,glu;

const
  AppWidth = 640;
  AppHeight = 480;
  n = 4;

type
  rectIndexArr = array[1..n] of Glfloat;
var
  player_rect: rectIndexArr;
  posx1, posx2: Real;
  stepx: Real;

procedure ReshapeCallback(width, height: Integer); cdecl;
begin

end;

procedure DisplayCallback; cdecl;
begin
     glClearColor(1/255.0, 11/255.0, 25/255.0, 1.0);
     glClear(GL_COLOR_BUFFER_BIT);
     glBegin( GL_QUADS );
              glColor3f( 3/255.0, 33/255.0, 74/255.0 );
              glVertex2f( -1, 1 );
              glVertex2f( 1, 1 );
              glVertex2f( 1, -1 );
              glVertex2f( -1, -1 );

              glColor3f(5/255.0, 55/255.0, 123/255.0);
              glVertex2f( -0.95, 0.95 );
              glVertex2f( 0.95, 0.95 );
              glVertex2f( 0.95, -0.95 );
              glVertex2f( -0.95, -0.95 );
     glEnd;

     posx1 := posx1+stepx;
     posx2 := posx2+stepx;

     if posx1>0.95 then
     begin
          posx1:=0.95;
          posx2:=0.90;
     end;
     if posx2<-0.95 then
     begin
          posx1:=-0.90;
          posx2:=-0.95;
     end;

     glColor3f( 183/255.0, 183/255.0, 183/255.0 );
     glRectf(posx1, player_rect[2], posx2, player_rect[4]);

     glutSwapBuffers();
end;

procedure SpecialKeyboardCallback(key: Integer; x,y: Integer); cdecl;
begin
     case key of
          GLUT_KEY_F1: Halt(0);
          GLUT_KEY_LEFT:
          begin
               stepx := -0.025;
          end;
          GLUT_KEY_RIGHT:
          begin
               stepx := 0.025;
          end;
     end;
     glutPostRedisplay();
end;

procedure SpecialKeyboardUpCallback(key: Integer; x,y: Integer); cdecl;
begin
     stepx := 0.0;

     glutPostRedisplay();

end;

procedure IdleCallback(); cdecl;
begin
     glutPostRedisplay();
end;

procedure Init;
begin
     stepx := 0.0;
     player_rect[1] := -0.025;
     player_rect[2] := -0.85;
     player_rect[3] := 0.025;
     player_rect[4] := -0.9;

     posx1 := player_rect[1];
     posx2 := player_rect[3];
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');
     Init;

     glutReshapeFunc(@ReshapeCallback);
     glutDisplayFunc(@DisplayCallback);

     glutSpecialFunc(@SpecialKeyboardCallback);
     glutSpecialUpFunc(@SpecialKeyboardUpCallback);
     glutIdleFunc(@IdleCallback);

     glutMainLoop();
end;

begin
     main();
end.

Opengl, glutGetModifiers не срабатывает на сочетания клавиш

cann — Tue, 06 Apr 2021 13:31:36 GMT

Написал пример с OpenGL, но есть непонимание того, почему не отрабатываются сочетания нажатия клавиш. В частности не срабатывает сочетания клавиш Shift+r и Ctrl+r. Сочетании клавиш Alt+r отрабатывает нормально. Подскажите, пожалуйста, из-за чего так может быть?

Код

program ogl_p1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, gl, glut;

var ScreenWidth, ScreenHeight: Integer;
const
  AppWidth = 640;
  AppHeight = 480;

procedure resize(width, height: LongInt); cdecl;
var
  ar: Real;
begin
     ar := width div height;

     glViewport(0, 0, width, height);
     glMatrixMode(GL_PROJECTION);
     glLoadIdentity;
     glFrustum(-ar,ar,-1.0,1.0,2.0,100.0);

     glMatrixMode(GL_MODELVIEW);
     glLoadIdentity;
end;

procedure display; cdecl;
begin
     glutSwapBuffers();
end;

procedure key(key: Byte; x,y: Integer); cdecl;
var
   mode: Integer;
begin
     WriteLn('Key = ', key);
     case key of
          ord('q'), 27:
            begin
                 Halt(0);
                 Exit;
            end;
          ord('r'):
            begin
                 mode:=glutGetModifiers();
                 if (mode <> 0) then
                 begin
                      case mode of
                           1:
                             begin
                    WriteLn('SHIFT key ', mode);
                    Exit;
                             end;
                           2:
                             begin
                    WriteLn('CTRL key ', mode);
                    Exit;
                             end;
                           4:
                             begin
                    WriteLn('ALT key ', mode);
                    Exit;
                             end;
                      end;
                      mode:=0;
                 end;
                 Exit;
            end;
     end;
     glutPostRedisplay();
end;

procedure skey(key: Integer; x,y: Integer); cdecl;
begin
     case key of
          GLUT_KEY_F1: Halt(0);
          GLUT_KEY_LEFT: WriteLn('GLUT_KEY_LEFT ', key);
          GLUT_KEY_RIGHT: WriteLn('GLUT_KEY_RIGHT ', key);
          GLUT_KEY_UP: WriteLn('GLUT_KEY_UP ', key);
          GLUT_KEY_DOWN: WriteLn('GLUT_KEY_DOWN ', key);
     end;
     glutPostRedisplay();
end;

procedure idle(); cdecl;
begin
     glutPostRedisplay();
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');

     glutReshapeFunc(@resize);
     glutDisplayFunc(@display);

     glutKeyboardFunc(@key);
     glutSpecialFunc(@skey);

     glutMainLoop();
end;

begin
     main();
end.

Чтение ячеек xlsx

burlachenko — Tue, 05 Jan 2021 20:25:47 GMT

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

Паскаль мертв?

HaGe — Mon, 02 Mar 2020 15:55:49 GMT

* Под Паскалем подразумевается Object Pascal и его диалекты.

собственно, не раз встречал высказывания, мол паскаль - хрень полнейшая. ладно, в некотором он, правда, уступает тому же Си. но вот недавно наткнулся на пост, где "великий прогер" сравнивал pascal вовсе с гребанным КуМиром!

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

Тетриc на Pascal ABC

Mag_White — Sun, 01 Sep 2019 00:00:50 GMT

Здравствуйте, уважаемые любители оригинального Тетриса от Алексея Пажитного!
Предлагаю протестировать мой вариант этой игры на Паскале АБЦ!
Файл во вложении!
Тетрис паскаль АБЦ с комментариями.zip

Добавлено (17 Июля 2019, 20:57)
---------------------------------------------

Код

program tetris;                    //
                    //   Создатель Тетриса - Алексей Пажитнов!
                    //   Создатель Паскаль - Никлаус Вирт! Супер!!!
                    //   Для запуска программы требуется скачать и установить бесплатную версию Pascal ABC
                    //

uses crt;    // Подключаем модуль Crt, который осуществляет вывод на экран в текстовом режиме 80 столбцов на 25 строк.

var ss,nn,x,y,pus,a,b,c,d,lin,rlin:integer;  // Объявляем основные переменные

st:array[1..12,1..22] of integer;            // Объявляем массив игрового поля 12х22 под именем st[12х22]

randmas:array[1..999999] of integer;         // Объявляем Случайный ранд массив для создания числовой последовательности появления фигур, для определения следующей фигуры

  CounterFigure:integer;                     // Объявляем счетчик выпавших фигур
  CurrFigure,NextFigure:integer;             // Объявляем переменные для вывода информации о следующей текущей и новой фигуре
  Score:integer;                             // Объявляем переменную для сохранение игрового результата (игровые очки)
  i:integer;                    // Объявляем счетчик для циклов в главном теле программы

//  Процедура рисования клеток поля
procedure k(x,y:integer);                 // Процедура k(x,y) - рисует в определенной координате текстового экрана кусок фигуры, кусок забора стакана
begin                    //
gotoxy(x*2+20,23-y);                      //  Поставить текстовый курсор в строку (X*2+30) по Иксу и (24-Y) по Игрику - стартовое положение стакана !
if ss=0 then write('. ');                 //  Если ss=0 то выводится два сивола пустого фона в кавычках '. '   Для затирания следов перемещения фигуры по экрану.
if ss=1 then write('[]');                 //       ss=1 то выводится блок фигуры Тетриса, из двух знаков в кавычках '[]'
if ss=2 then begin textcolor(LightCyan); write(chr(124),chr(124));textcolor (white); end;    //       ss=2 то выводится символы из ASCII № 124 для рисования границ СТАКАНА Тетриса '||' как было в оригинальной ретро-версии Тетриса
if (ss=3) and (st[x,y]>0) then pus:=1;    //       ss=3 и Индекс массива не пустое место (граница стакана или граница фигур), то присвоить pus=1
if ss=4 then st[x,y]:=1;                  //       ss=4 то записать 1 в массив элементов стакана st:array[1..12,1..22]
                    //
end;  //  Конец процедцры рисования клеток k(x,y)

//  Процедура рисования фигур
procedure fig(x,y,n,s:integer);                           // Процедура fig(x,y,n,s) хранит информацию о типах фигур Тетриса
begin
if s=3 then pus:=0;                    // Если s=3 то сделать pus=0
ss:=s; k(x,y);                    // Сделать ss=s и вызвать процедуру k(x,y)

if n=1 then begin k(x+1,y);k(x,y-1);k(x+1,y-1) end;      // Шаблон фигуры 1    (n=1)
//   [][]
//   [][]

if n=2 then begin k(x-1,y);k(x+1,y);k(x+2,y) end;        // Шаблон фигуры 2    (n=2)
//   [][][][]

if n=3 then begin k(x,y+1);k(x,y-1);k(x,y-2) end;        // Шаблон фигуры 3    (n=3)
//   []
//   []
//   []
//   []

if n=4 then begin k(x+1,y);k(x-1,y);k(x-1,y+1) end;      // Шаблон фигуры 4    (n=4)
//   []
//   [][][]

if n=5 then begin k(x,y+1);k(x+1,y+1);k(x,y-1) end;      // Шаблон фигуры 5    (n=5)
//   [][]
//   []
//   []

if n=6 then begin k(x-1,y);k(x+1,y);k(x+1,y-1) end;      // Шаблон фигуры 6    (n=6)
//   [][][]
//       []

if n=7 then begin k(x,y+1);k(x,y-1);k(x-1,y-1) end;      // Шаблон фигуры 7    (n=7)
//     []
//     []
//   [][]

if n=8 then begin k(x-1,y);k(x+1,y);k(x+1,y+1) end;      // Шаблон фигуры 8    (n=8)
//       []
//   [][][]

if n=9 then begin k(x,y+1);k(x,y-1);k(x+1,y-1) end;      // Шаблон фигуры 9    (n=9)
//   []
//   []
//   [][]

if n=10 then begin k(x+1,y);k(x-1,y);k(x-1,y-1) end;     // Шаблон фигуры 10   (n=10)
//   [][][]
//   []

if n=11 then begin k(x,y+1);k(x,y-1);k(x-1,y+1) end;     // Шаблон фигуры 11   (n=11)
//   [][]
//     []
//     []

if n=12 then begin k(x-1,y);k(x,y-1);k(x+1,y-1) end;     // Шаблон фигуры 12   (n=12)
//   [][]
//     [][]

if n=13 then begin k(x,y+1);k(x-1,y);k(x-1,y-1) end;     // Шаблон фигуры 13   (n=13)
//     []
//   [][]
//   []

if n=14 then begin k(x+1,y);k(x-1,y-1);k(x,y-1) end;     // Шаблон фигуры 14   (n=14)
//     [][]
//   [][]

if n=15 then begin k(x-1,y);k(x,y-1);k(x-1,y+1) end;     // Шаблон фигуры 15   (n=15)
//   []
//   [][]
//     []

if n=16 then begin k(x+1,y);k(x-1,y);k(x,y+1) end;       // Шаблон фигуры 16   (n=16)
//     []
//   [][][]

if n=17 then begin k(x+1,y);k(x,y+1);k(x,y-1) end;       // Шаблон фигуры 17   (n=17)
//   []
//   [][]
//   []

if n=18 then begin k(x,y-1);k(x-1,y);k(x+1,y) end;       // Шаблон фигуры 18   (n=18)
//   [][][]
//     []

if n=19 then begin k(x-1,y);k(x,y+1);k(x,y-1) end;        // Шаблон фигуры 19   (n=19)
//     []
//   [][]
//     []

end;  //  Конец процедуры рисования фигур

//  Процедура поворота фигуры
procedure pov;
begin
nn:=nn-1;
if nn=15 then nn:=19;
if nn=13 then nn:=15;
if nn=11 then nn:=13;
if nn=7 then nn:=11;
if nn=3 then nn:=7;
if nn=1 then nn:=3;
if nn=0 then nn:=1;
end;  //  Конец процедуры поворота фигуры

//  Процедура очистка* стакана
procedure clrst;
begin
for x:=1 to 12 do
for y:=1 to 22 do
if (x=1) or (x=12) or (y=1) then st[x,y]:=2
                            else st[x,y]:=0;        // Рисуется  контур стакана и обнуляется стакан
end;  //  Конец процедуры очистки* стакана

//  Процедура рисовать весь стакан
procedure risvesst;
begin
for x:=1 to 12 do  for y:=1 to 22 do
    begin
    ss:=st[x,y];
    k(x,y)                            // Вызов процедуры k(x,y) - рисует в определенной координате текстового экрана поклеточно кусок фигуры, кусок забора стакана
    end;
end; //  Конец процедуры рисовать весь стакан

//  Поцедура контроля и передвижения фигур с помощью клавиатуры
//  !!! Если клавиши не реагируют, пользователь должен перевести клавиатуры в английскую раскладку!!!
procedure dvig;
var
i:integer;
key:char;
begin
for i:=1 to 10 do
   begin
delay(d);     // Задержка на основе данных из переменной d
key:=' ';
if keypressed then key:=readkey;
if key='a' then                    // Если нажата клавиша a, то влево     <=== [a]
begin
fig(x-1,y,nn,3);
if pus=0 then begin fig(x,y,nn,0); x:=x-1; fig(x,y,nn,1);
end;
end;
if key='d' then                    // Если нажата клавиша d, то вправо    ===> [d]
begin
fig(x+1,y,nn,3);
if pus=0 then begin fig(x,y,nn,0); x:=x+1; fig(x,y,nn,1);
end;
end;
if key='w' then                    // Если нажата клавиша w, то поворот фигуры  =[w]=
begin
pov; fig(x,y,nn,3); pov;pov;pov;
if pus=0 then begin fig(x,y,nn,0); pov; fig(x,y,nn,1);
end;
end;
if key='s' then d:=1;                        // Если нажата клавиша s, то фигура летит вниз =[s]=
end;
end; // Конец процедуры контроля и передвижения фигур с помощью клавиатуры

//  Процедура создания новой текущей и следующей фигуры
procedure newfigure;
begin
//  gotoxy(62,20); writeln('          ');                    //отладка
//  gotoxy(62,20); writeln('CounterFigure ', CounterFigure);                     //отладка
//gotoxy(62,15); writeln('               ');                    //отладка
//gotoxy(62,15); writeln('Текущая ', CurrFigure);                    //отладка

NextFigure:=randmas[CounterFigure+2]; // Определение следующей фигуры

CurrFigure:=randmas[CounterFigure+1]; // Определение текущей фигуры

gotoxy(55,10); writeln('               ');  //  Стирание строки
gotoxy(55,10); writeln('Очки: ', Score);    //  Очки за успехи в игре

//gotoxy(55,3); writeln('             '); // Пробелы. Отладка
gotoxy(55,3); writeln('Следующая ');    // Информация о следующей фигуре
                      gotoxy(56,4); writeln('               ');      // Пробелы, по 15 штук, для стирания следов показа следующей фигуры предыдущего хода
                      gotoxy(56,5); writeln('               ');      //
                      gotoxy(56,6); writeln('               ');      //
                      gotoxy(56,7); writeln('               ');      //
                      gotoxy(56,8); writeln('               ');      //
                      gotoxy(56,9); writeln('               ');      //
                         fig(20,17,NextFigure,1); // Рисуется фигура, которая будет выпадать следующей 20=x координата , 17=y координата, NextFigure=nn значение, 1=[] из какого элемента рисуется фигура
nn:=CurrFigure;  // Рисуется текущая фигура, определенная в переменной CurrFigure
end; // Конец процедуры создания новой текущей и следующей фигуры

//  СТАРТ ГЛАВНОЙ ПРОГРАММЫ

begin

// Показ стартовой заставки!
HideCursor; // Скрыть курсор. Чтобы вклюсить обратно, нужен оператор ShowCursor;
TextBackground(Blue);                        // Установить черный цвет фона
ClrScr;                    // Очистить экран
TextColor(White);                             // Установить белый цвет букв
TextBackGround(Blue);                         // Установить синий цвет фона для букв
GotoXY(22,12);                    // Поставить курсор
write('Это версия Тетриса на Паскале ABC!');  // Вывести текст
GotoXY(8,14); writeln('Выбери английскую раскладку на клавиатуре и нажми на любую клавишу!');  // Вывести текст
TextColor(White);
GotoXY(15,5);  writeln('[][][] [][][] [][][] [][][] []     [] [][][]');
GotoXY(15,6);  writeln('  []   []       []   []  [] []   [][] []    ');
GotoXY(15,7);  writeln('  []   [][][]   []   [][][] []  [] [] []    ');
GotoXY(15,8);  writeln('  []   []       []   []     [] []  [] []    ');
GotoXY(15,9);  writeln('  []   [][][]   []   []     [][]   [] [][][]');

GotoXY(39,3);TextBackGround(Red);   write('(c) Алексей Пажитнов');
GotoXY(22,19);TextBackGround(Red);  write('Александр Титов, Екатеринбург, 2019');
TextBackground(Blue); TextBackGround(Blue); TextColor(White);

ReadKey;                    // Ожидать нажатия любой клавиши !!!}

// Конец показа стартовой заставки!

randomize; // Включение генератора случайных чисел
  for i:=1 to 999999 do randmas[i]:=(1+ random(18));  //Создание случайной последовательности почти бесконечной, для определения текущей и следующей фигуры

TextBackground(Blue); TextBackGround(Blue); TextColor(White);
clrscr;    //Очистить экран от следов начальной заставки

textcolor(DarkGray);                   // Нижняя текстовая строка  по середине
gotoxy(1,25);
Write(' Привет мир любителей оригинальной игры Тетрис (Алексей Пажитнов, 1984, СССР),  спасибо создателю языка программирования Паскаль (Никлаус Вирт, 1970, Швейцария) от программистов на Pascal ABC (Титов Александр, 2019, Россия, Екатеринбург)!');
TextColor(White);

textcolor(Yellow);                      // Левая верхняя строка, подсказывающая "как играть?"
gotoxy(01,10);
Writeln(' Как играть?');
Writeln('');
Writeln('   влево');
Writeln('   вправо');
Writeln('   сбросить вниз');
Writeln('   поворот фигуры');
TextColor(White);                      // Конец левой верхней строка

textcolor(Green);                       // Правая верхняя строка с названием игры  =TETЯIS=Pascal=ABC=2019=
gotoxy(52,01);
Writeln('=TETЯIS=Pascal=ABC=2019=');
TextColor(White);                      // Конец верхней правой строки

clrst;       // Процедура обнуления стакана
risvesst;   // Процедура рисования стакана
lin:=0;     // Установить ноль для счетчика линий, который влияет на скорость игры, т.к. содержится в переменной d
Score:=0;    // Установить ноль очков для старта новой игры

repeat      // Начать повторение основного цикла игры! До тех пор, пока есть пустое место на поле для передвижения и появления новых фигур

  newfigure;             // Тут станет известно какая фигура будет следующей и текущей
  x:=6;y:=21;            // Здесь появляется новая фигура! Обрати внимание на x=6 b y=20 это координаты появления новой фигуры
  fig(x,y,nn,3);         // d влияет на скорость игры (задержка по умолчанию стоял   d:=70-(lin*5);
  d:=80-(lin*3);         // когда d 170 - это очень медленно, когда он 10 - то быстровато!

  if pus=0 then         // Если клетка пустая и нет столкновения со стаканом и уложенными ранее в стакан кирпичиками,
   begin                // то
    repeat              // повторять до столкновения
     fig(x,y,nn,1);     // Рисуется текущая фигура до движения, 1=[] из какого элемента рисуется фигура
     dvig;              // Вызвать процедуру движения фигуры с определением нажатой клавиши
   fig(x,y-1,nn,3);     // Нарисовать фигуру со смещением по оси Y при условии ss=3 и Индекс массива не пустое место (граница стакана или граница фигур), то присвоить pus=1 и остановить падение фигуры вниз за один элемент до границы стакана
     if pus=0 then begin fig(x,y,nn,0); y:=y-1; end;  //Рисуется фигура из элементов пустого поля стаканов '. '
    until pus=1;         // Столкновение произошло

  fig(x,y,nn,4);         // !!!!! Нарисовать текущую фигуру, которая не может двигаться и записать её положение в массив элеменов стакана st[]

  CounterFigure:=CounterFigure+1; // Счетчик фигур для отладки
  Score:=Score+100;               // Прибавить 100 очков к счету за касание фигуры с полом

    for y:=22 downto 2 do   // Проверка заполненных рядов
     begin                  // Начало проверки заполненных рядов
      a:=0; for x:=2 to 11 do a:=a+st[x,y];  // Счетчик заполненных фигур, проверяет наличие клетки фигуры в массиве и увеличивается на 1, если там есть элемент фигуры
      if a=10 then                  // Если сумма клеток равна 10, то значит ряд заполнился, его нужно удалить, массив элементов стакана сдвинуть вниз
       begin         // Начало сдвига массива
        for b:=y to 21 do for c:=2 to 11 do st[c,b]:=st[c,b+1]; // Сдвиг массива вниз
        lin:=lin+1;              // Суммировать полностью заполненные линии и увеличть скорость игры
        gotoxy(55,12); writeln('Линии: ',lin); // Показать количество полностью заполненных линий
        Score:=Score+1000;       // Прибавить 1000 очков к счету за полную линию!
       end;         // Конец сдвига массива
     end;            //Конец проверки заполненных рядов

   risvesst; // Процедура рисования элементов всего стакана
   pus:=0;
   end;

  until pus=1; // Остановить повторение основного игрового цикла! Т.к. нет пустово места.
       gotoxy(4,2); writeln('Игра окончена!'); // Написать"Игра окончена"

end. // Конец текста кода программы этой замечательной игры Тетрис на Паскале АБЦ!

Pascal + OpenGL

NikitaKobich — Fri, 16 Aug 2019 15:21:23 GMT
Форум: Delphi/Pascal/Object Pascal
Описание темы: Pascal + OpenGL
Автор темы: NikitaKobich
Автор последнего сообщения: TimKruz
Количество ответов: 11

Что с кодировкой?

camac — Thu, 20 Jun 2019 19:45:50 GMT
Удалась возможность разжиться ПК с Виндовс.
И столкнулся с непонятным. Кодировка СР1251. В консоли выбран шрифт Lucida Console, т. е. той же кодировки. Текст отображается правильно. Но тот текст, который я ввожу - крякозябрами. Т. е. в DOS'овской кодировке? СР866?

Добавлено (20 Июня 2019, 11:32)
---------------------------------------------
Самое смешное - в Линуксе у консоли в настройках указал кодировку СР1251. И все нормально. Никаких иероглифов.

Итак, решение:
1) подключаем модуль windows
Код

     uses windows;

2) в начале главной программы пишем
Код

     SetConsoleCP(1251);
     SetConsoleOutputCP(1251);

Спасибо всем "за помощь"
Тему можно закрывать.

Считать комбинацию клавиш.

camac — Wed, 19 Jun 2019 06:14:56 GMT
Бодрого дня, господа.
Подскажите, пожалуйста, как в программе можно считать комбинацию клавиш? Т. е., например, Ctrl+N, Alt+Q и прочая.
При этом в то же самое время может быть и только одна клавиша, например, F1 или F2 и т. д.

PS. FreePascal.

Pascal u ncurses

camac — Fri, 14 Jun 2019 05:55:34 GMT
Нигде не нашел информации об использовании ncurses в паскале. Есть малость для Си. Но это для меня сложно.
Есть ли где-то какая-нибудь информация именно для паскаля?

Собственный формат файлов.

berzegov — Thu, 03 Jan 2019 10:52:14 GMT
Форум: Delphi/Pascal/Object Pascal
Автор темы: berzegov
Автор последнего сообщения: TheDanil
Количество ответов: 12

Проверка столкновений в PascalABC

OffDoamne — Sat, 17 Jun 2017 09:13:35 GMT
Доброго времени суток. Хочу узнать как можно сделать проверку столкновений. Сейчас пишу пинг понг и не могу осуществить столкновение мяча с битой.

Программы с циклами Pascal ABC

MrFarick — Thu, 09 Mar 2017 16:17:17 GMT
1.найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10. ( решите через while или repeat)

2.найти площадь кольца, если внутренний радиус которого равен 20, а внешний заданному числу r (r>20).

Сохранение таблицы в .docx

Game_maker_8 — Fri, 03 Feb 2017 09:58:47 GMT
Форум: Delphi/Pascal/Object Pascal
Описание темы: паскаль
Автор темы: Game_maker_8
Автор последнего сообщения: Gudleifr
Количество ответов: 1

Литература по Delphi.

gringorno — Wed, 02 Nov 2016 07:33:21 GMT
Форум: Delphi/Pascal/Object Pascal
Автор темы: gringorno
Автор последнего сообщения: Gudleifr
Количество ответов: 21

Помогите срочно с задачей на Pascal!

Dj_FroZTBite — Sun, 30 Oct 2016 16:32:35 GMT

Код
var
  count : Integer;
  i : byte;
  number : uint64;
  N : Integer;
begin
  number := 1;
  Readln(count);
  for i:=1 to count do
  begin
    Readln(N);
    number := number * N;
  end;
      Assign(output, 'output.txt' ) ;
      Rewrite(output);
    Writeln(output, number);
end.

Программа должна получить ввод 1. Количества чисел 2. Сами числа 3. Умножить их и вывести ответ в текстовый файл output.txt
Условие - программа должна выполнятся быстрее 1 секунды. Железо нормальное, а выполнение занимает от 1.000 до 1.008 сек.
Помогите ускорить.

Подскажите. Индексированный растр, палитра и карта цветов.

dem789 — Wed, 26 Oct 2016 15:16:42 GMT
Здравствуйте. Достаю графику из "Паркан Хроника Империи". Все текстуры в индексированных графических файлах с определенной палитрой. Основную массу перевел в bmp. Но столкнулся с затыком: некоторые файлы используют измененную палитру из карты цветов - 65536 байт. Никак не могу найти алгоритм по которому меняются цвета, единственное похожее нашел в DOOM-ской графике, но там на ассемблере, ничего не понятно. Сам пишу на Delphi.
Выглядит файл с графикой следующим образом:

23 00 16 00
78 00 8F 00
84 01 00 00
AB CD EF 01
F8 01 00 00
54 02 00 00
B0 02 00 00
0C 03 00 00
68 03 00 00
C4 03 00 00
...
Сначала заголовок, а после AB CD EF 01 идет как раз нужная инфа по изменению цвета. Вроде получилось найти какой должна стать палитра, а связь установить не могу. Может кто сталкивался, или хоть знает где искать?

https://yadi.sk/d/QsUc-kvWwnKyh

Остановить процедуру через break

AKukuruz — Wed, 17 Aug 2016 12:41:51 GMT
Что надо сделать чтобы после трех раз процедура прекращала действие? То есть фигура не рисовалась.
Вводим переменную равную числу фигур при ее значении равное трем надо что-то делать...

после redraw ставил
Код
nr:=+1;
if nr :=>3 then break;

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

Код
uses graphABC;
var  nr,px1,py1:integer;



procedure MouseDown(x,y,mb:integer);
begin
px1:=x; //начальная позиция фигурs равна центру экрана
py1:=y;
drawrectangle(px1-25,py1-50,px1+25,py1+50);
lockdrawing;
redraw;
end;

procedure draw_r(); //рисуем
begin
onmousedown:=MouseDown;
end;

begin//основной цикл
SetWindowTitle('Графическое окно');
Setwindowsize(800,600); //размер окна
CenterWindow;//центр монитора

draw_r();

end.

Выключить консоль в приложении в оконном приложении.

AKukuruz — Thu, 21 Jul 2016 03:02:54 GMT
Форум: Delphi/Pascal/Object Pascal
Описание темы: Как?
Автор темы: AKukuruz
Автор последнего сообщения: AKukuruz
Количество ответов: 2

Процедуры для работы с мышью в PascalABC

AKukuruz — Wed, 20 Jul 2016 07:58:38 GMT
Где взять их список? MouseMove, MouseDown и тд
Если с текстом, то есть crt многое понятно, то с мышью не так... И вообще какие есть путевые книги по АБС?

Допустим надо мышкой ввести координаты путпиксела или вывести их в поле textout.

Вроде понял что они принадлежат модулю Events, но как-то видел в яндексе что есть и модуль Mouse, хотя сейчас нагуглить его не могу...
Может это от невнимательности... С вводом-выводом текста и графики все понятно, а мышиные процедуры найти не могу...

p.s.: да я гуглил.

Добавлено (07 июля 2016, 19:56)
---------------------------------------------
там где присваиваю значение а и б в mousedown что-то не так...

Код
uses GraphABC;

var a,b: integer; //координаты мышки

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then // передаем координаты мышки в переменные а и б
a : = x;
b := y;
end;

begin
SetWindowTitle('123');
Setwindowsize(800,600); //размер окна

OnMouseDown:=MouseDown; //1 клик, передаем координаты мышки в начальные координаты лайна
x1: = a;
y1: = b;

OnMouseDown:=MouseDown; //2 клик, передаем тоже самое только в конечные
x2 : = a;
y2 : = b;

Line(x1,y1,x2,y2); //рисуем

end.

Pascal ABC. Вывод на экран случайного числа.

AKukuruz — Wed, 29 Jun 2016 11:29:51 GMT
Где-то ошибка... Синтаксис пока не усвоил так что не могу сам ее найти.

Код
uses crt;

var i: real;

begin
  random(i);
  read('i');
end.

Вместо числа выводит переменную i.

Сортировка строки методом Боуза-Нельсона

Zmei_2015 — Fri, 06 May 2016 10:58:39 GMT
Доброго времени суток друзья. Помогите кто может. Весь интернет уже облазил. Суть задачи. Нужно отсортировать строку методом Боуза-Нельсона. Кто нибудь знаком с этим методом? Помогите кодом кто может.

2D карта в PASCAL

Megapok — Sun, 24 Apr 2016 15:28:13 GMT
Всем привет, решил написать игру в старом добром паскале и в какой то момент понял что не имею представления как создать карту, пытался нагуглить что нибудь но кроме намеков на двумерные массивы нечего не нашел. Можете поделиться советом, а еще лучше примером как создать например шахматное поле и подгрузить тайтлы? Буду вам очень признателен.

Помогите с pascal abc!

Robert200401 — Sun, 10 Apr 2016 08:24:18 GMT
Проблема довольно глупая, и наверняка у нее есть простое решение, но у меня что-то не получается. Теперь собственно перехожу к проблеме. В pascal abc.net по стандарту после завершения программы должна выводиться надпись: "Нажмите любую клавишу для завершения работы программы." Однако у меня программа завершается мгновенно, и пользователь не успевает прочитать последние строки выводящиеся на экран. Во всех гайдах надпись выводится. Версия самая новая. Программа наипростейшая, спрашивает имя и возраст.

Помогите с Pascal ABC

staconik — Fri, 08 Apr 2016 06:41:48 GMT
Всем привет!
Помогите на писать 3 программы в среде Pascal ABC

1. Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути.
У Ивана есть три варианта дальнейшего пути:
направо - "Коня потеряешь"
налево - "Голову сложишь"
вперёд - "Невесту найдешь"

Вроде это очень просто, но я не понял суть.

2. Дано число (10
3. В заданном одномерном массиве, состоящим из n целых чисел, подсчитать количество чётных элементов!

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

Замедление вывода каждой следующей буквы в моей программе

cann — Sat, 20 Feb 2016 13:24:23 GMT
Я написал простую программу, которая выводит строки по буквам. Для написания программы использовал библиотеки SDL + SDL_ttf + OpenGL. Проблема в том, что при выводе каждой последующей буквы наблюдается замедление, т.е. следующая за очередной буквой отображается визуально медленнее, чем предыдущая. Замедления вывода букв, в коде программы, я нигде не прописывал. Я тестировал программу на домашнем ноутбуке, все работает нормально, а на рабочем компьютере проявляется такой визуальный эффект. Из-за чего так может происходить?

Код программы:

Код

program sdl_p4;

{$mode objfpc}{$H+}

uses sdl, sdl_ttf, gl, glu;

var
  screen :pSDL_SURFACE;
  loopstop: boolean = FALSE;
  event: pSDL_EVENT;

  font : pointer;
  sFont: pSDL_SURFACE;
  color: pSDL_COLOR;

  text: array[0..3] of String = ('aaaaaaaaaaaa',
                    'bbbbbbbbbbbb',
                    'cccccccccccc',
                    'dddddddddddd');
  b: integer;
  cur: integer;
  all: String;
  i,i1: Integer;

procedure addchar;
begin
  if cur = 4 then Exit;
  if length(all)=length(text[cur]) then
  begin
       //writeln(length(all));
       //writeln(length(text[cur]));
       inc(cur);
       all:='';
       Exit;
  end;

  if cur<4 then
  begin
    all := all + text[cur][length(all)+1];
    //writeln(all);
  end;
end;

procedure RenderText(const message : PChar; r : GLubyte; g : GLubyte; b : GLubyte; x : Integer; y : Integer; size : Integer);
var
  texture: GLuint;
begin
    glGenTextures(1, @texture);
    glBindTexture(GL_TEXTURE_2D, texture);

    font := TTF_OpenFont('cour.ttf', size);

    new(color);

    color^.r:=r;
    color^.g:=g;
    color^.b:=b;

    sFont := TTF_RenderText_Blended(font, message, color^);

    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, sFont^.w, sFont^.h, 0, GL_RGBA, GL_UNSIGNED_BYTE, sFont^.pixels);

    glBegin(GL_QUADS);
     glTexCoord2f(0,1-0); glVertex2f(x, y);
     glTexCoord2f(1,1-0); glVertex2f(x + sFont^.w, y);
     glTexCoord2f(1,1-1); glVertex2f(x + sFont^.w, y + sFont^.h);
     glTexCoord2f(0,1-1); glVertex2f(x, y + sFont^.h);
    glEnd();

    glDeleteTextures(1, @texture);
    Dispose(color);

    TTF_CloseFont(font);
    SDL_FreeSurface(sFont);
end;

procedure DrawGLScene();
  var
    i: integer;
  begin

    glClear(GL_COLOR_BUFFER_BIT);

    glDisable(GL_DEPTH_TEST);
    glEnable(GL_TEXTURE_2D);
    glEnable(GL_BLEND);
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

    inc(B);
    if b=20 then addchar;
    if b>20 then b:=0;

    //addchar;

    for i := 0 to cur - 1 do
    begin
         if cur = 4 then Exit;
         RenderText(PChar(text[i]), 255, 255, 255, 0, 448 - i*32, 32);
    end;

    if Length(all) <> 0 then RenderText(PChar(all), 255, 255, 255, 0, 448 - cur*32, 32);

    glDisable(GL_BLEND);
    glDisable(GL_TEXTURE_2D);
    glEnable(GL_DEPTH_TEST);
  end;
var
   m_Width, m_height: Integer;
   frame_rate: Integer = 30;
   frame_ms: Integer;
   start_ms: Integer;
   end_ms: Integer;
   delay_ms: Integer;

begin
     SDL_Init(SDL_INIT_VIDEO);

     screen := SDL_SetVideoMode(640, 480, 0, SDL_OPENGL);
     if screen = NIL then Halt;

     if Ttf_Init = -1 then Halt;

    glMatrixMode(GL_MODELVIEW);
    glPushMatrix();
    glLoadIdentity();

    m_Width := screen^.w;
    m_Height := screen^.h;

    gluOrtho2D(0, m_Width, 0, m_Height);
    glMatrixMode(GL_PROJECTION);
    glPushMatrix();
    glLoadIdentity();

     b:=0;
     cur:=0;
     all:='';

     new(event);

     frame_ms := 1000 div frame_rate;

     while loopstop = FALSE do
     begin

          if SDL_PollEvent(event) = 1 then
          begin
               case event^.type_ of
                    SDL_KEYDOWN:
                    begin
                         if event^.key.keysym.sym = 27 then loopstop := TRUE;
                    end;
                    SDL_QUITEV:
                    begin
                         loopstop := TRUE;
                    end;
               end;
          end;
          start_ms := sdl_getticks();
          DrawGLScene;
          end_ms := sdl_getticks();

          delay_ms := (end_ms - start_ms);

          writeln(delay_ms);

          SDL_GL_SWAPBUFFERS;

     end;

     Dispose(event);
     SDL_FreeSurface(screen);
     TTF_QUIT;
     SDL_QUIT;
end.

Перехват консольного вывода.

chuxlo — Wed, 27 Jan 2016 19:54:54 GMT
Добрый день форумчане выручайте.Перехватываю вывод консоли.Все работает вывод перехватывается,но
консоль перестает реагировать на отсылаемые ей клавиатурные сообщения.При обычном запуске все нормально
консоль реагирует на клавиатурные сообщения.При запуске с перехватом указываю start.hStdInput := GetStdHandle(STD_INPUT_HANDLE) т.е не переназначать вход, так же приравнивал это значение нулю.
Все равно консоль перестает реагировать на сообщения клавиатуры.Куда копать?

Помогите и проверьте

archelich — Fri, 22 Jan 2016 14:12:01 GMT
Выполните предложенный алгоритм для массивов А1 и А2 с индексами от 1 и до

37 и укажите сколько элементов массива А2 будут с отрицательными значениями после

выполнения алгоритма. Подробно распишите рассуждения и выкладки. Значения всех

элементов указывать не надо.

Код

for i:=1 tо 37 do

  A1[i] := 20 – i;

for i:=1 tо 37 do

  А2[i] := A1[i] + 19;

Здесь не будет ни одного отрицательного значения?

Как работать с указателями?

HaGe — Fri, 22 Jan 2016 14:02:22 GMT
учусь прогать в freepascal (object pascal). в общем, когда начал пытаться работать с WinAPI, впервые столкнулся с такой вещью, как указатели (^)

опираясь на туторилы по C++, приблизительно понял, где тыкать эти указатели при работе с WinAPI... но как они работают и, в свою очередь, как работать с ними, понятия не имею.

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

***

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

спс за внимание :3

Delphi:Вопрос-Ответ

netkiller — Sun, 06 Dec 2015 22:57:58 GMT
Спрашуем - получаем ответ. Схема проста )
Создал тему для того чтобы люди не создавали отдельные темы, а спрашивали тут! Если маленький вопрос зачем же создавать новую тему?
Итак я начну:
У меня недавно начало выдавать фаталки при работе с JPEG!
Unit jpeg was compiled with a different version of jconsts.sJPEGImageFile
Как это исправить?

Help - Выдается ошибка

RolexOsmiy — Wed, 02 Dec 2015 15:03:05 GMT
Выдает ошибку, не понимаю в чем проблема.

http://s1.uploadpics.ru/images/ZJyPHZAM5e.jpg

Код.
unit Unit1;1

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
shape1: TShape;
tmr1: TTimer;
shape2: TShape;
procedure FormCreate(Sender: TObject);
procedure shape2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
private
procedure shar();
{ Private declarations }
public
{ Public declarations }
end;

var // ob'evlenie peremennih
Form1: TForm1;
PosX,PosY,VelX,VelY: Single;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); // ob'evlenie skorosti
begin
Posx:=1;
PosY:=1;
VelX:=2;
VelY:=3;
end;

procedure TForm1.shar; // dvizhenie shara
begin
PosX:=PosX+VelX;
PosY:=PosX+VelY;
if PosX > ClientWidth -Shape1.Width then
VelX := -velX;

if PosX > 0 then
VelX := -velX;

if PosY > ClientHeight -Shape1.Width then
VelY := -velY;

if PosY > 0 then
VelY := -velY;

Shape1.Left:=Round(PosX);
Shape1.Top:=Round(PosY);
end;

procedure Tform1Timer(Sender: TObject); //timer vizov peremennoy
begin
shar;
end;
end;

procedure TForm1.shape2ContextPopup(Sender: TObject; MousePos: TPoint; //sozdanie upravlenia paneley
var Handled: Boolean);
begin
shape2.Top:=mouse.cursorPos.Y -Form1.ClientOrigin.Y;
end;

end.

Помогите с доработкой программы

Nikstoun — Sat, 28 Nov 2015 20:23:40 GMT
Приветствую всех ! Есть простенькая программа .

-----------------------------------------

Код
var
b:integer;
a:string;
pon:='понедельник';
vt:='вторник';
sr:='среда';
ch:='четверг';
pya:='пятница';
subb:='суббота';
voskr:='воскресенье';
//Выводится случайное число от 1 до 7 , пользователь должен написать
//название дня недели соответствующий цифре , все это зациклено
begin
write ('Вы увидите число , напишите название дня недели ');
writeln ('соответствующее этому числу ');
b:=random(1,7);
Writeln ('День номер ', b);
Write ('Это ');
Read (a);
if b=1
then
begin
if a=pon then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это понедельник !');
if b=2
then
begin
if a=vt then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это вторник !');
if b=3
then
begin
if a=sr then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это среда !');
if b=4
then
begin
if a=ch then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это четверг !');
if b=5
then
begin
if a=pya then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это пятница !');
if b=6
then
begin
if a=subb then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это суббота !');
if b=7
then
begin
if a=voskr then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это воскресенье !');
end.

-------------------------------------------------

Вот в чем проблема , кроме вывода "вы правы" выводится еще и 6 "вы не правы" , в чем ошибка ?
P.S. Как видите , пока что тут нет циклов , будут в будущем .

WebBrowser

andarky — Fri, 20 Nov 2015 13:27:12 GMT
все просто:
есть форма - на ней во весь размер TWebBrowser ну а внутри весь функционал: HTML, Flash, Unity...

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

Как в случае если SWF запустить не в браузере а через StandAlonePlayer - он разок руганётся на попытку вызова УРЛа а потом просто все это глушится.

Такая же ситуация и с Unity - чтобы блокировались все попытки перехода
и также глушить ошибки при попытке вызвать JS-скрипты которых нет на странице.

На а кому интерсно зачем мне это:

вот что я сделал:
со всяких конгрегейтов и прочих игровых сайтов надёргал игрушек (Flash / Unity) из кеша браузера.
они отлично работают и вне сайта, но иногда ругаются при попытке вызова внешнего JS-скрипта
(ну это скорее всего таблицы героев, сохранялки...) - мне это не надо.

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

А так - сборник игр уже готов, но эти ошибки бесконечные...

или "тык" - по рекламе в игре - и все отлично переходит на нужный УРЛ

Добавлено (01 июня 2015, 17:53)
---------------------------------------------
вообще чтоли на deplhi уже тут не пишут??

ну подскажите хоть на пальцах, на C#... все языки одинаковы по сути, синтаксис просто разный.

можт там можно средствами JS прямо в HTML-код все написать?

Как вписать в переменную цифры по порядку

Nikstoun — Tue, 10 Nov 2015 13:51:00 GMT
Приветствую знатоков данного форума ! Появился вопрос . Как в переменную вписать цифры из других переменных , да еще и по порядку . Допустим переменные b=1,c=2,d=3,e=4. Дак как же сделать так , чтобы в переменную под именем a записывалось число 1234 ? То есть считывалось с уже созданных переменных .

Как поменять значение переменных ?

Nikstoun — Sun, 25 Oct 2015 12:16:05 GMT
Приветствую знатоков сего форума ! Перейдем сразу к вопросу . Имеется 2 переменных типа int , a и b ... Как сделать так , чтобы значение переменной a стало равно значению переменной b . Сложность в том , что простым присваиванием значений обе переменных будут равны по значению . А нужно так , что если а=5 , а b=6 , то a должно стать =6 , a b=5 ... Как это сделать ?
P.S. Без 3 переменной )

Что начать изучать

D9bolic — Wed, 30 Sep 2015 08:08:23 GMT
Собственно хочу сделать маленькую ртс в духе ред алерт(2д и спрайты). Для комфортной работы по ОС Windows что надо начинать учить для графики(OpenGL или Derectx), как лучше представлять карту(в плане размещения обьектов, отрисовки тех из оных что в данный момент видит юзверь и всякого рода скриптов, а так же "можно пройти и нельзя построить") и через что организовывать мультиплеер(на 2-их ибо по сути для себя). Приветсвуются ссылки на книги и статьи. Ну и ваши ответы тоже.

Delphi для ОС Android

TLT — Mon, 22 Jun 2015 11:48:50 GMT
В INTUIT.ru: Опубликован курс "Основы программирования в Delphi для ОС Android"

Этот курс обучает приемам программирования в программной среде Delphi на мобильных платформах под управлением ОС Андроид.

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

Ссылка на курс: http://www.intuit.ru/studies/courses/3491/733/info

Delphi - ООП и Классы

-=Professor=- — Thu, 11 Jun 2015 15:06:12 GMT
Здравствуйте.
Требуется решить вот такую задачку на Delphi
Реализовать класс, работающий с одномерными массивами. Инициализация, вывод.

Делать все за меня не нужно, просто помогите разобраться что к чему.
Заранее спасибо.

ВидеоУроки по созданию программ в GNU/Linux

SkanerSoft — Wed, 06 May 2015 09:17:27 GMT
Если кому интересно, ребята, если кто-то желает научиться создавать программы в среде Linux, открыл новый канал на YouTube, где практически ежедневно буду выкладывать небольшие уроки по созданию тех или иных программ. Так же призываю разработчиков присоединиться, если кто желает, чтобы была возможность обучить бОльшее число программистов, художников, дизайнеров в работу со свободным ПО.
Канал: SkanerSoft
Сейчас начал записывать серию уроков по Lazarus. В коменты могу принимать пожелания, или темы для последующих уроков, которые актуальны для новичков.

Вывод на экран элементы массива

DeadDay — Tue, 21 Apr 2015 18:51:41 GMT
Всем привет уважаемые. Нуждаюсь в помощи, помогите кто сможет.
Вообщем вот в чём вопрос:
Как сделать вывод на экран элементы массива, сначала все положительные, затем все отрицательные. В паскале.

Я думаю что тут нет ни чего сложного. Но я меня нет знаний в Pascal`e.
Заранее всем спасибо за помощь...

Паскаль.Нужна помощь.

BellDell — Wed, 25 Mar 2015 23:13:34 GMT
Всем привет,решил создать змейку на паскале,хотя язык знаю не очень хорошо.Решил скачать исходник и разобраться в самом коде,но вот после его скачивания обнаружил что он делится на 2 файла с расширением .pas,а я могу открыть в паскале лишь один из них,причем какой бы не скомпилировал,компилятор выдает ошибку.Если не сложно,подскажите каким образом можно эти 2 файлы преобразовать в исполняемый... Спасибо за помощь
P.S Среда Free Pascal

Курсовая работа

gorlumfan — Tue, 24 Feb 2015 06:15:40 GMT
Здраствуйте пользователи ресурса. У меня к вам есть один очень волнующий меня вопрос. У меня на носу здача курсовой работы по Delphi + программа.
Что бы вы могли посоветовать , т.е. какую программу лучше всего будет написать основываясь на том, чтобы она была не очень трудной в написании и тем не мении была достаточно полезна. Т.к. я уже просмотрел все возможные темы курсовой работы, и собсвенными силами не смог подобрать оптимальный вариант. Надеюсь , что тут люди смогут помочь сделать мне этот не легкий выбор. Спасибо за понимание и надеюсь на скорый ответ.
Возможно ответ быдет дать проще если посетить данный сайт
http://www.kursovik.com/programming.html?lang=5
Добавлено (27.11.2012, 21:56)
---------------------------------------------
Может быть я слегка не правильно выразился, мне не нужен код программы или сама программа. Просто лаконичная тема для курсовой работы. Я уверен, что на данном форуме есть те кто могут помочь выбрать подходящую тему.

Задача в паскале.

sem6666 — Sun, 25 Jan 2015 05:50:04 GMT
Форум: Delphi/Pascal/Object Pascal
Автор темы: sem6666
Автор последнего сообщения: HaGe
Количество ответов: 1

VALVE Steam® API Wrapper for Delphi/Lazarus/C [Open source]

ASTRON3D — Thu, 08 Jan 2015 08:39:35 GMT
VALVE Steam® API Wrapper for Delphi/Lazarus/C [Open source]
Лицензия: MIT

https://github.com/voliaandrey/steamwrapper

По заданной перестановке найти вектор инверсий

ifelse — Sun, 02 Nov 2014 15:30:11 GMT
Приветствую. Дали задачу:"По заданной перестановке найти вектор инверсий". Понимаю, что нужно идти по элементам в цикле. В теле цикла должен быть счетчик и другой цикл, который идет от этого элемента обратно к началу и считает элементы больше, чем текущий,увеличивая счетчик. Как реализовать сей момент?

Прошу помощи в нелегком деле

Fejk2015 — Sat, 04 Oct 2014 09:26:12 GMT
В общем то , закинули меня на олимпиаду.

Помогите решить это в Delphi.

Kykyx — Sun, 21 Sep 2014 13:41:19 GMT
Форум: Delphi/Pascal/Object Pascal
Описание темы: Пожалуйста, помогите решить данный пример в Delphi.
Автор темы: Kykyx
Автор последнего сообщения: Kykyx
Количество ответов: 0

Паскаль игра работа

Sushi — Fri, 05 Sep 2014 17:32:53 GMT
Здравствуйте, я разработчик MMORPG игры сделаны в Object Pascal (FPC)
Я смотрю на разработчика, который хочет помочь мне заканчивая игру.
Игра почти закончена. Вскоре выпустить на Steam.

Нужна испытать Паскаль разработчик, игра очень большой (30000 строк кода плюс 190000 линии для двигателя).
Код совместим с Delphi 7 и последней FPC.
Delphi XE имеет проблемы, но если интересно, вы можете попробовать исправить.

Я не русский, но я работал с российскими программистами в прошлом. Очень хорошее впечатление!
Я буду платить деньги, передавать западным соединением или MoneyGram.
Я говорю на английском, испанском и португальском языках, если вы знаете, любой из этих языков легко общаться. Весь код написан на английском языке.

Чтобы связаться отправить сообщение admin@minimon3d.com

Вопрос по Паскалю

VolanDeMort — Fri, 22 Aug 2014 10:12:48 GMT
Я хочу сделать так, чтобы определенное действие выполнялось ровно 60 раз в секунду (типа шага в Game Maker). Для этого я использую delay со значением 16. Понятное дело, сделать так, чтобы задержка была тютелька в тютельку невозможно, но такой вариант меня вполне устраивает. Однако где-то я вычитал, что погрешность delay может достигать 50%, что меня не очень устраивает. Есть ли какой-либо аналогичный, но более эффективный способ сделать что-то подобное? Работаю в Free Pascal.