[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.

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

[Страдалецъ]

У вас задача несколько не специфичная для Delphi, поэтому вам надо сделать специальный проект - консольное приложение (Console application) в котором нет никаких форм.

[Strider1000]

Если можно - опишите, пожалуйста, подробно, как сделать это самое консольное приложение и как заставить этот код работать на Delphi (впоследствии скомпилировать exe-файл).

[Страдалецъ]

Выберите создание нового проекта в дельфи и в диалоге выберите тип проекта - консольное приложение.

[Strider1000]

Сделал и ввел все предложенные варианты кода.

Программа выделяет красным данную строчку:

x[1...n]: array of integer;//одномерный массив из n элементов

Ругается:

Компоновка
[Ошибка] Project2.dpr(5): ',' or ':' expected but identifier 'x' found
[Ошибка] Project2.dpr(5): ',' or ':' expected but ';' found
[Ошибка] Project2.dpr(6): Type expected but 'BEGIN' found
[Ошибка] Project2.dpr(9): Undeclared identifier: 'clrscr'
[Ошибка] Project2.dpr(10): Illegal character in input file: '?' ($3F)
[Ошибка] Project2.dpr(10): 'TO' expected but 'DO' found
[Ошибка] Project2.dpr(11): Undeclared identifier: 's'
[Ошибка] Project2.dpr(11): Undeclared identifier: 'log'
[Ошибка] Project2.dpr(15): Undeclared identifier: 'i'
[Ошибка] Project2.dpr(17): Undeclared identifier: 'j'
[Ошибка] Project2.dpr(19): Array type required
[Ошибка] Project2.dpr(20): Array type required
[Ошибка] Project2.dpr(22): Missing operator or semicolon
[Ошибка] Project2.dpr(25): ')' expected but ',' found

Компоновка
[Ошибка] Project2.dpr(5): ',' or ':' expected but identifier 'x' found
[Ошибка] Project2.dpr(5): ',' or ':' expected but ';' found
[Ошибка] Project2.dpr(6): Type expected but 'BEGIN' found
[Ошибка] Project2.dpr(9): Undeclared identifier: 'clrscr'
[Ошибка] Project2.dpr(10): Illegal character in input file: '?' ($3F)
[Ошибка] Project2.dpr(10): 'TO' expected but 'DO' found
[Ошибка] Project2.dpr(11): Undeclared identifier: 's'
[Ошибка] Project2.dpr(11): Undeclared identifier: 'log'
[Ошибка] Project2.dpr(15): Undeclared identifier: 'i'
[Ошибка] Project2.dpr(17): Undeclared identifier: 'j'
[Ошибка] Project2.dpr(19): Array type required
[Ошибка] Project2.dpr(20): Array type required
[Ошибка] Project2.dpr(22): Missing operator or semicolon
[Ошибка] Project2.dpr(30): 'END' expected but ')' found
[Ошибка] Project2.dpr(32): '.' expected but end of file found

Что теперь делать?

[Strider1000]

Судя по всему проблема нерешаема...

Но все-равно спасибо всем, кто откликнулся.

Тему можно закрывать.

[NIch]

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

На эту тему небольшой оффтоп...Тост:
Мужик поймал золотую рыбку и говорит мол хочу XYZ до пола...
Рыбка взяла и отпиз....ла ему ноги...
Так выпьем за правильно поставленное техническое задание....

Вот и ты Strider1000 не отчаивайся, тебе помочь легко, только вот никто не знает в чем помочь...а эти ошибки исправить за 5 минут, нет ни одной серьезной...

[Strider1000]

В том-то и проблема: есть код и задание "делайте с ним все, что хотите, хоть надевайте на голову, но чтоб он работал"...

[Konrad]

Сообщение от Strider1000

В том-то и проблема: есть код и задание "делайте с ним все, что хотите, хоть надевайте на голову, но чтоб он работал"...

Тогда или учить Делфи с 0 или в раздел работа.

Или выложи исходники, те что ты написал, и может у кого-то появиться желание их исправить, чисто от нечего делать.

[bleeep]

Всем привет, у меня такой вопрос. Выскакивает ошибка(скрин в аттаче). И ссылается на участок кода

Код:

procedure TForm7.vopros(a:byte);

begin
   Memo1.Lines[0]:=ListBox1.Items[a*8];
   if strtoint(ListBox1.Items[a*8+1])=4 then
    begin
    RadioButton1.Visible:=true;
    RadioButton2.Visible:=true;
    RadioButton3.Visible:=true;
    RadioButton4.Visible:=true;
    RadioButton1.Caption:=ListBox1.Items[a*8+3];
    RadioButton2.Caption:=ListBox1.Items[a*8+4];
    RadioButton3.Caption:=ListBox1.Items[a*8+5];
    RadioButton4.Caption:=ListBox1.Items[a*8+6];
    end;
   if strtoint(ListBox1.Items[a*8+1])=3 then
    begin
    RadioButton1.Visible:=true;
    RadioButton2.Visible:=true;
    RadioButton3.Visible:=true;
    RadioButton4.Visible:=false;
    RadioButton1.Caption:=ListBox1.Items[a*8+3];
    RadioButton2.Caption:=ListBox1.Items[a*8+4];
    RadioButton3.Caption:=ListBox1.Items[a*8+5];
    end;
   if strtoint(ListBox1.Items[a*8+1])=2 then
    begin
    RadioButton1.Visible:=true;
    RadioButton2.Visible:=true;
    RadioButton3.Visible:=false;
    RadioButton4.Visible:=false;
    RadioButton1.Caption:=ListBox1.Items[a*8+3];
    RadioButton2.Caption:=ListBox1.Items[a*8+4];
    end;
    RadioButton1.Checked:=false;
    RadioButton2.Checked:=false;
    RadioButton3.Checked:=false;
    RadioButton4.Checked:=false;
end;

Я не пойму из за чего, но она не всегда выскакивает. Суть программы - тест. Вопросы берутся из файла random'ом. Структура файла с вопросами:

PHP код:

Вопрос
Количество вопросов
Номер правильного ответа
ответ1
ответ2
ответ3
ответ4

Вопрос2...