[Strider1000]

Здравствуйте, уважаемые гуру всея Delphi!

Начнем с того, что в программировании я полный нуль (нуль - то есть пустота, ничто, абсолютный, а не тот самый нуль в коде), я не нашел ответа на свой вопрос в F.A.Q. и на данном форуме, так что на мой вопрос заранее просьба палками не бить и не посылать "апстенку, намазаннуйу йадом".

И так. Задание по предмету "Высокоуровневым методам информатики и программ".

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

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

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

Код:

var y

begin

writeln ('Ф.И.О.');

writeln ('группа');

clrcer,//читска экрана;

for,, = 1 ton do log;

fors: = |ton do log;

x[t]rnd(s); //?;

write (x[i,j3];

x[1...n]: array of integer;

Окно №2 должно содержать что-то наподобие этого:

Код:

fori = |ton do begin;

forj : | ton do begin;

x[i;j] = rnd (n);

write (x[i,j]) end;

write ln(i, end);

Окно №3 должно содержать что-то наподобие этого:

Код:

x, y, z+

y, z, x3+

x2, z1, x3-

x3, y2, z1-

y1, z2, x3-

x2, y3, z1=

y=

clrcer;

write(y);

end.

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

[NIch]

Ошибки...точнее предпологаемое исправление...
Окно 1...

Код:

const
n = 10;//по идее должно быть
var 
y //нужен тип переменной
x[1...n]: array of integer;//одномерный массив из n элементов
begin
writeln ('Ф.И.О.');//написать на экране
writeln ('группа');//написать на экране
clrscr;//чистка экрана;
for ? := 1 to n do log;//вместо ? переменная
for s := 1 to n do log;//s от 1 до n
x[t] := rnd(s); //??? заполнение одномерного массива
write x[i,j];//??? вывод элемента двумерного массива

Окно 2...

Код:

for i := 1 to n do//i от 1 до n 
begin
 for j := 1 to n do//j от 1 до n
 begin
  x[i,j] = rnd(n);//присваеваем элементу двумерного массива случайное згачение
  write (x[i,j]);//пишем получившейся результат 
 end;
 write ln(i);//??? пишем логарифм i  
end;

Окно 3...тут что то непонятное...попробовал так, но что это непонимаю..

Код:

(x, y, z)+(y, z, x3)+(x2, z1, x3)-(x3, y2, z1)-(y1, z2, x3)-(x2, y3, z1) :=y
clrscr;
write(y);
end.

пока так может кто и мой код подправит...

[Strider1000]

Попробую скомпилировать файл, может что получиться...

Задавал вопрос преподу по поводу третьего окна, ответил, что там, вроде, результат вычисления матрицы или сама матрица - в общем, я так и не понял, что он вообще имел ввиду...

[6ruse]

По поводу 3его окна. Вы сказали там должна быть матрица. Если я правильно понял это не delphi a TurboPascal??? так???. Если так то код третьего окна примерно следующий :-
for i := 1 to n do
for j := 1 to n do
begin
write(y);
end;
writeln();

[Strider1000]

Да, это TurboPascal. Но по заданию должна использоваться среда Delphi 7.

[Strider1000]

Ввел предложенный вами код всех окон в Unit1.pas. При попытке компиляции вызывает следующую ошибку: Error in module Unit1.pas: Declaration of class TForm1 is missing or incorrect.

Что я делаю не так?