Question

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

Answer 1

Объяснение:

program TestProgram;

uses crt;

var

i: integer;

color: array[1..5] of integer;

numbers: array[1..10] of integer;

begin

// Set window color

textbackground(lightgray);

clrscr;

// Add colors to array

color[1] := red;

color[2] := green;

color[3] := blue;

color[4] := yellow;

color[5] := magenta;

// Display colors

writeln('Colors:');

for i := 1 to 5 do begin

textcolor(color[i]);

writeln('Color ', i);

end;

// Add numbers to array

for i := 1 to 10 do begin

numbers[i] := random(100);

end;

// Display numbers

writeln('Numbers:');

for i := 1 to 10 do begin

writeln(numbers[i]);

end;

// Wait for user input

readln;

end.

пожалуйста пометь как лучший ответ если помог

Answer 2

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

program TestProgram;

uses
  Crt, Graph;

const
  MaxArraySize = 10;

var
  GraphDriver, GraphMode: Integer;
  Colors: array [1..MaxArraySize] of Integer;
  i: Integer;

procedure DrawWindow;
begin
  ClearDevice;
  SetColor(Colors[1]);
  Rectangle(100, 100, 500, 300); // Прямоугольник с цветом из массива

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

ReadLn;
end;

begin
  // Настройка графики
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, '');

// Проверка на ошибки
  if GraphResult <> grOk then
  begin
    Writeln('Ошибка при инициализации графики: ', GraphErrorMsg(GraphResult));
    Halt(1);
  end;

// Наполнение массива цветами
  for i := 1 to MaxArraySize do
    Colors[i] := i;

// Вызов процедуры для отрисовки окна
  DrawWindow;

// Освобождение ресурсов графики
  CloseGraph;
end.

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