|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите, пожалуйста, с кодом программы
Здравствуйте, уважаемые гуру всея 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. Помогите, пожалуйста, разобраться с этим кодом. Что должно получиться в итоге, помимо трех окон, я не знаю. Литературу читал, но это мне ничего не дало, да и времени разбираться что там к чему у меня просто нет, сея работа "горит", а то что я неверно ее истолковал только все усугубило. |
#2
|
||||
|
||||
Ошибки...точнее предпологаемое исправление...
Окно 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];//??? вывод элемента двумерного массива Код:
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; Код:
(x, y, z)+(y, z, x3)+(x2, z1, x3)-(x3, y2, z1)-(y1, z2, x3)-(x2, y3, z1) :=y clrscr; write(y); end. В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
|||
|
|||
Попробую скомпилировать файл, может что получиться...
Задавал вопрос преподу по поводу третьего окна, ответил, что там, вроде, результат вычисления матрицы или сама матрица - в общем, я так и не понял, что он вообще имел ввиду... Последний раз редактировалось Strider1000, 09.11.2009 в 00:43. |
#4
|
|||
|
|||
)))
По поводу 3его окна. Вы сказали там должна быть матрица. Если я правильно понял это не delphi a TurboPascal??? так???. Если так то код третьего окна примерно следующий :-
for i := 1 to n do for j := 1 to n do begin write(y); end; writeln(); |
#5
|
|||
|
|||
Да, это TurboPascal. Но по заданию должна использоваться среда Delphi 7.
|
#6
|
|||
|
|||
Ввел предложенный вами код всех окон в Unit1.pas. При попытке компиляции вызывает следующую ошибку: Error in module Unit1.pas: Declaration of class TForm1 is missing or incorrect.
Что я делаю не так? |
#7
|
||||
|
||||
У вас задача несколько не специфичная для Delphi, поэтому вам надо сделать специальный проект - консольное приложение (Console application) в котором нет никаких форм.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#8
|
|||
|
|||
Если можно - опишите, пожалуйста, подробно, как сделать это самое консольное приложение и как заставить этот код работать на Delphi (впоследствии скомпилировать exe-файл).
Последний раз редактировалось Strider1000, 09.11.2009 в 17:20. |
#9
|
||||
|
||||
Выберите создание нового проекта в дельфи и в диалоге выберите тип проекта - консольное приложение.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#10
|
|||
|
|||
Сделал и ввел все предложенные варианты кода.
Программа выделяет красным данную строчку: 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, 10.11.2009 в 20:22. |
#11
|
|||
|
|||
Судя по всему проблема нерешаема...
Но все-равно спасибо всем, кто откликнулся. Тему можно закрывать. |
#12
|
||||
|
||||
Ну и че...обычные ошибки...то не объявлена переменная, то точка с запятой пропущена...это все не смертельно и проблема вполне решаема, была бы правильно поставлено техническое задание...
На эту тему небольшой оффтоп...Тост: Мужик поймал золотую рыбку и говорит мол хочу XYZ до пола... Рыбка взяла и отпиз....ла ему ноги... Так выпьем за правильно поставленное техническое задание.... Вот и ты Strider1000 не отчаивайся, тебе помочь легко, только вот никто не знает в чем помочь...а эти ошибки исправить за 5 минут, нет ни одной серьезной... В начале был Бит, потом Байт и только потом появилось Слово... |
#13
|
|||
|
|||
В том-то и проблема: есть код и задание "делайте с ним все, что хотите, хоть надевайте на голову, но чтоб он работал"...
|
#14
|
||||
|
||||
Цитата:
Тогда или учить Делфи с 0 или в раздел работа. Или выложи исходники, те что ты написал, и может у кого-то появиться желание их исправить, чисто от нечего делать. Последний раз редактировалось Konrad, 14.11.2009 в 12:13. |
#15
|
|||
|
|||
Всем привет, у меня такой вопрос. Выскакивает ошибка(скрин в аттаче). И ссылается на участок кода
Код:
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; PHP код:
"I remember the good old days, when computers were mainframes, analysts were magicians,and programmers punced cards..." |