Помощь - Поиск - Пользователи - Календарь
Полная версия: Мой проект на 3 недели
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
bagay
Мне выдали курсовую работу по паскалю. Зделать викторину на подобии Кто хочет стать миллионером.
вопрос, 4 варианта ответов и с помощю клавиш а,б,в,г. выбирать ответ, 15 вопросов, и в конче результат и сравнение с другими результатами, Кто нибуть представляет как ето делать smile.gif ? если нетрудно помогите хоть чемнибуть а то 1.5 недели осталось а я ток титульник зделал smile.gif
amega
Цитата
если нетрудно помогите хоть чемнибуть


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

по сути
береш в одном файле сохраняеш свои впросы, в другом файле имя и сколько очей набрано было.
самае главное правильно разработать тип даних.
sheka
Цитата(bagay @ 10.06.2009 20:15) *

Кто нибуть представляет как ето делать smile.gif ?

думаю, кто-то представляет! (лично я - да)
Цитата
помогите хоть чемнибуть

программирования почти нет, главный вопрос - оформление.
спрашивай конкретно.
bagay
Цитата(sheka @ 10.06.2009 21:27) *

думаю, кто-то представляет! (лично я - да)

программирования почти нет, главный вопрос - оформление.
спрашивай конкретно.


оформление роли сильной неиграет рамку зделать и всё)
вот я незнаю ваще как зделать такую програму ((((((((
sheka
Цитата(bagay @ 10.06.2009 20:29) *

вот я незнаю ваще как зделать такую програму ((((((((

чем могу помочь?

а паскаль хоть в глаза видел? если хочешь, чтобы тебе полностью решили задачу - в платный раздел.

bagay
Цитата(sheka @ 10.06.2009 21:38) *

чем могу помочь?

а паскаль хоть в глаза видел? если хочешь, чтобы тебе полностью решили задачу - в платный раздел.


ну а хотябы 1-2 вопроса оформит могут помочь..а там я какнибуть остальные сам попробую разобратся smile.gif
sheka
Оформляю:
Вопросы:
  1. Кто нибуть представляет как ето делать ?
  2. ну а хотябы 1-2 вопроса оформит могут помочь

Ответы:
  1. думаю, кто-то представляет! (лично я - да)
  2. могут. вот оформил.

Как оформление, нравится?
Заметь, я ответил на все заданые тобой вопросы - поэтому не обижайся, что тебе тут не помогли.
bagay
Цитата(sheka @ 10.06.2009 23:48) *

Оформляю:
Вопросы:
  1. Кто нибуть представляет как ето делать ?
  2. ну а хотябы 1-2 вопроса оформит могут помочь
Ответы:
  1. думаю, кто-то представляет! (лично я - да)
  2. могут. вот оформил.
Как оформление, нравится?
Заметь, я ответил на все заданые тобой вопросы - поэтому не обижайся, что тебе тут не помогли.


ясно...да я и необижаюсь..другого неожидал....как сказал один хороший человек : задроты он и в африке задроты, он на своей волне и никогда непомогает тем кто непонимает в том что понимает он, а на самом деле у мальца никакой личьной жизни и он просто завидует остальным, но всё ето скрывает )
удачи в жизни smile.gif good.gif
Krjuger
В чему ты щас все это сказал?Вообще отвечать тебе сугубо личное дело каждого.Ведь учти, люди на решение ТВОЕЙ проблемы тратят СВОЕ время,причем безвозмездно.Тебя попросоли конкретно ответить на необходимые для поиска решения вопросы,потому что твой уровень програмирования никто не знает и, что ты чисто гипотетически можеш знать, тоже.Решить эту задачу можно десятками способов,привлекая различные структуры и тд и все будет зависеть от того,знаеш ли ты их вообще или нет.А то я думаю здешние админы,если захотят ,то твою задачу так "вылижут",что придраться будет не к чему,а твой препод посмотрит и скажет не ведать тебе курсовой,пока сам несделаеш,ибо ты ТАКОГО знать не знаеш и никогда не узнаеш(возможно).

Если по существу,делаеш файлы в которых записаны вопросы и другой файл с ответами(обязательно чтобы последовательность четко соблюдалась).В цикле считываеш все вопросы и ответы и записываеш в динамические массивы.Random-но выбираеш номер элемента и выводиш вопрос храняцийся в соответствующей ячейке на экран,считываеш клавицу,если "а" то такой то ,если "б" то такой то и тд.Потом сверяеш соответствует ли данное значение с хранящимся у тебя в массиве ответов по номером равных номеру вопроса,если да ,то следующие,если нет,то выбирать сам,конец, либо там несгораемая сумма(тут ты ничего не уточнял).Дальше опять радномно выбираеш число и проверяеш не совпадает ли оно с предыдущим,если не совпадает,то выполняеш вышеприведенные операции,если совпадает,то рандомиш еще раз.

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

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

другого неожидал

Если не ожидал,так зачем вообще суда пришел??С надеждой а вдруг прокатит?
Цитата

а то 1.5 недели осталось а я ток титульник зделал

А что же вы тогда все остальное время делали?Гюляли?Ну так идите гуляйте дальше....
По тому,что вы только титульник сделали,говорит о том,что вы даже не пробовали решить свою задачу,а с таким подходом( на все готовенькое) вам помогать никто не станет.Как гласит одна теория,естественный отбор решает,а вы даже не прилагаете усилий,чтобы что то сделать и по этой теории будете сьедены...
Либо идите в платный раздел и за соответствующие деньги вам хоть Мону Лизу попикселям нарисуют.
Lapp
Цитата(bagay @ 10.06.2009 21:15) *
Зделать викторину на подобии Кто хочет стать миллионером.
вопрос, 4 варианта ответов и с помощю клавиш а,б,в,г. выбирать ответ, 15 вопросов, и в конче результат и сравнение с другими результатами,
Беда в том, что я никогда не видел эту передачу... Хорошо, давай попробуем.

Логично сделать текстовый файл для вопросов и ответов (вместе). Примерно так:

Где прячется Усама Бен Ладен?
В Афганистане.
В США.
@На Марсе.
В России.

Клюет ли сегодня акула на Австралийском побережье?
Нет.
Да.
Может быть.
@Да, но только не на Австралийском побережье, а в Париже, и не акула, а Ягуар, и не сегодня, а третьего дня, и не клюет, а стоял в пробке..



- группы строк разделены одной пустой строкой (это даст возможность делать не только 4 варианта, а сколько хошь при желании). Первая строка - вопрос, остальные - ответы. Правильный ответ начинается с символа @ (если не нравится - выбери любой другой, только чтобы он был особенным, не просто буквой/цифрой). В конце файла нужно оставить ровно одну пустую строку (это важно).

Для чтения организуй массив рекордов типа так:
type
tTask= record
question: string;
answer: array[1..4]of string;
Correct,k: integer
end;
var
Tasks: array[1..15]of tTask;


Потом читаешь файл:
n:=0;
while not EoF(f) do begin
Inc(n);
with Task[n] do begin
ReadLn(f,question);
k:=0;
repeat
ReadLn(f,s);
if s<>'' then begin
Inc(k);
if s[1]='@' then begin
correct:=k;
Delete(s,1,1)
end;
answer[k]:=s
end
until s=''
end
end


Вот, сделай это все и покажи, что выходит. Тогда пойдем дальше. Ок?
Krjuger
Lap,вот что вы делаете,вас задротом назвали,а вы ему помогаете.....
Я же принципи привел последовательность действий,которая схожа с вашей,за исключением некоторых пунктов,ну и другим подходом к динамическим структурам...Мне лично хотелось увидеть хоть что нибудь и наработок этого человека,поэтому и код писать не стал,а то еще щас окажется,что человек не знаком с динамическими структурами(об этом кстати надо сразу говорить,что знаеш,что нет,что можеш,что нет).

Цитата

Первая строка - вопрос, остальные - ответы

Как я понимаю,каждый блок разделятся будет пустой строкой.
Цитата

Тогда пойдем дальше

А что дальше то делать,массив есть, правильный ответ тоже есть,осталось ввести с клавиатуры имя,проверить и ответить да или нет.....Потом уж можно усложнить с вариантами ответов ,типа а,б,в,г.
volvo
Krjuger, а может, вас? Тех, кто вместо того, чтобы помочь, начинает разводить умные речи и сталкивать обсуждение в платный раздел? Да вы сначала бесплатно-то решать научИтесь, потом о платном заговорите...
Цитата
Ведь учти, люди на решение ТВОЕЙ проблемы тратят СВОЕ время,причем безвозмездно
Тебя никто не заставляет тратить свое время, ни безвозмездно, ни вообще... Alt+F4 спасет тебя от траты своего драгоценного времени. Высказываясь здесь, на форуме (и по теме, и не очень) ты тоже тратишь свое время. И мое заодно, ибо я должен читать то, что ты постишь.
Krjuger
Цитата

сталкивать обсуждение в платный раздел

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

Тех, кто вместо того, чтобы помочь, начинает разводить умные речи

А я не против помогать,да и если чесно,а разве тут умные речи не нужны,если человек не говорит,каким он видит решение.......Лично я себе представляю начало написания программы с четкого представления моей поставленной задачи и путей ее решения,а тут без умных речей не обойтись,если у человека своих варианов нету(да,конешно же из за меньшего опыта ,чем у вас, они более примитивны)Если мне в лицо говорят,что я задрот,меня это лично оскорбляет,да и еще тут явно человек,которому далеко и с высокой башни на то, что он делает,потому что 3 недели дано ему было,а он 1.5 недели потратил,чтобы сделать титульный лист......для меня это говорит о многом лично.
Ему начали помогать,более детально разбирать,что он хочет от программы,какое оформление,на что он отвечает вы все задроты с намеком,что кроме компов вы ничего не видите,ну и сидите задрачивайтесь дальше,а я вот такой бравый растакой....Причем он еще и ниразу не написал свои мысли по поводу вариантов решения этой задачи и даже своих попыток хоть что то сделать не привел.Что наводит на мысль,что человек даже не пытался,что либо сделать.

А в платный раздел я его посылал,потому что там уже идет на помощ,а работа.Человеку абсолютно всеравно,что о нем думает его заказчик,он за это деньги получает.Зато там ему сделают так, как он захочет и без лишних слов.
amega
создал програмку, но созздал ее с помощью типизированого файла, потом понял что этож огда нада еще создать сам файл.
К вечеру либо переделаю на тектовый либо создам сам файл с вопросами smile.gif
Вообщем вот програмка:

program millioner;

uses crt;

type
Tquestions = record
questions:string[254]; {вопрос}
answers:array ['a'..'d',1..2] of string[254]; {4 варианта ответа, 2 поле T(True) или F(false)}
ball:integer; {бал за ответ}
end;
TfileQuestions = file of Tquestions;
Tresult = record
name:string[254]; {имя}
ball:integer; {заработано балов}
end;
TfileResult = file of Tresult;
procedure show(q:Tquestions);
begin
writeln(q.questions);
writeln('Answers:');
writeln('a) ',q.answers['a',1]);
writeln('b) ',q.answers['b',1]);
writeln('c) ',q.answers['c',1]);
writeln('d) ',q.answers['d',1]);
end;
procedure show2(var f2:TfileResult);
var
profil:Tresult;
begin
Writeln('Inwi resultatu');
while not eof(f2) do
begin
read(f2,profil);
Writeln(profil.name,' ',profil.ball);
end;
end;
var
Q:Tquestions;
f1:TfileQuestions;
f2:TfileResult;
profil:Tresult;
otv:char;
begin
assign(f1,'questions.rec');
assign(f2,'result.rec');
reset(f1);
reset(f2);
Writeln('Enter your name:');
readln(profil.name);
profil.ball:=0;
while not eof(f1) do
begin
read(f1,q);
show(q);
write('Your answers: ');
readln(otv);
if (q.answers[otv,2]='T') or (q.answers[otv,2]='t') then
profil.ball:=profil.ball+q.ball
else
begin
Writeln('An answer is incorrect!!');
break;
end;
readln;
clrscr;
end;
Writeln('You have: ',profil.ball);
seek(f2,filesize(f2));
write(f2,profil);
readln;
show2(f2);
readln;
end.

amega
окончательний вариант:


program millioner;

uses crt;

type
Tquestions = record
questions:string[254]; {вопрос}
answers:array ['a'..'d',1..2] of string[254]; {4 варианта ответа, 2 поле T(True) или F(false)}
ball:integer; {бал за ответ}
end;
TfileQuestions = text;
Tresult = record
name:string[254]; {имя}
ball:integer; {заработано балов}
end;
TfileResult = file of Tresult;
procedure read_from_file(var f1:TfileQuestions; var q:Tquestions);
var
i:char;
begin
readln(f1,q.questions);
for i:='a' to 'd' do
begin
readln(f1,q.answers[i,1]);
if q.answers[i,1][1]='@' then
begin
q.answers[i,2]:='T';
delete(q.answers[i,1],1,1);
end
else
q.answers[i,2]:='N';
end;
readln(f1,q.ball);
end;

procedure show(q:Tquestions);
begin
writeln(q.questions);
writeln('Answers:');
writeln('a) ',q.answers['a',1]);
writeln('b) ',q.answers['b',1]);
writeln('c) ',q.answers['c',1]);
writeln('d) ',q.answers['d',1]);
end;
procedure show2(var f2:TfileResult);
var
profil:Tresult;
begin
Writeln('Inwi resultatu');
while not eof(f2) do
begin
read(f2,profil);
Writeln(profil.name,' ',profil.ball);
end;
end;
var
Q:Tquestions;
f1:TfileQuestions;
f2:TfileResult;
profil:Tresult;
otv:char;
begin
clrscr;
assign(f1,'data.txt');
assign(f2,'result.rec');
reset(f1);
reset(f2);
Writeln('Enter your name:');
readln(profil.name);
profil.ball:=0;
while not eof(f1) do
begin
read_from_file(f1,q);
show(q);
write('Your answers: ');
readln(otv);
if (q.answers[otv,2]='T') then
profil.ball:=profil.ball+q.ball
else
begin
Writeln('An answer is incorrect!!');
break;
end;
end;
Writeln('You have: ',profil.ball);
seek(f2,filesize(f2));
write(f2,profil);
close(f2);
readln;
reset(f2);
show2(f2);
close(f2);
readln;
end.



текстовый файл имеет такую струтуру:
Код

chislo pI=?
@3.14
2
4.123
1
100
R9d Fibanachi
@1 1 2 3 5
1 1 1 3
1 2 3
1 2 4
200


Файл result.rec должен бить создан вручную до запуска програми!!
amega
можно строчку
reset(f2);


заменить на

{$I-}
Reset(F2);
{$I+}
If IOResult=0 Then reset(f2)
else rewrite(f2);


и тогда не нада вручную создавать
Lapp
Krjuger, я скажу, что я делаю: помогаю, одновременно пытаясь немного научить. Нет, словом этим назвали не меня. Хотя я это не одобряю, но провоцировать тоже не следовало..

Кажется, задача решена уже.. А там нету всяких подсказок, звонков маме?.. Я совершенно не знаю игры. Или это не нужно?
amega
Цитата
А там нету всяких подсказок, звонков маме?..


в той игре что по телику есть..

могу и сюда впихнуть smile.gif
bagay
ребята спасибо вам огромное за помощь smile.gif smile.gif smile.gif smile.gif smile.gif give_rose.gif
очень вам благодарен smile.gif
rolleyes.gif
bagay
что то у меня не то, у меня выдаёт вопрос,я пишу ответ, ну всегда пишет, ответ неправельный : mega_chok.gif немогу пока разобратся
Lapp
Цитата(bagay @ 12.06.2009 21:04) *

что то у меня не то, у меня выдаёт вопрос,я пишу ответ, ну всегда пишет, ответ неправельный : mega_chok.gif немогу пока разобратся

У меня все отработало нормально вроде.

Enter your name:
bbb
chislo pI=?
Answers:
a) 3.14
b) 2
c) 4.123
d) 1
Your answers: a
R9d Fibanachi
Answers:
a) 1 1 2 3 5
b) 1 1 1 3
c) 1 2 3
d) 1 2 4
Your answers: a
You have: 300

Inwi resultatu
aaa 0
bbb 300
bagay
Цитата(Lapp @ 13.06.2009 4:50) *

У меня все отработало нормально вроде.

Enter your name:
bbb
chislo pI=?
Answers:
a) 3.14
b) 2
c) 4.123
d) 1
Your answers: a
R9d Fibanachi
Answers:
a) 1 1 2 3 5
b) 1 1 1 3
c) 1 2 3
d) 1 2 4
Your answers: a
You have: 300

Inwi resultatu
aaa 0
bbb 300



а нее всё работает)) а ещё вопросик....а реально ето всё какнибуть оформить типо рамки какойнибуть.... smile.gif
тяжело ето вобще....у меня тут просто есть какойта пример:

Uses Mouse, Crt,graph;

Const FileName = 'test.dat';
TestName = 'Modernas tehnologijas.';
Max = 15;

Type Test = record
Num : Byte;
Name : String [100];
V1 : String [3];
O1 : Byte;
V2 : String [3];
O2 : Byte;
End;

Var
Mas : Array [1..15] of Test;
F : File Of Test;
Sum : Word;
I : Byte;
L,R : Boolean;
X,Y : Word;
Select : Byte;
MousePresent : Boolean;

Function IntToStr(I : Longint) : String;
{ Преобразовывает значение типа Integer в строку }
Var S : String [11];
Begin
Str(I, S);
IntToStr:=S;
End;

Procedure Button( A, M : Byte);
Begin
Window(20, 18, 35, 18);
TextBackground(Green);
If A=0 Then TextColor(White)
Else TextColor(Black);
ClrScr;
GotoXY(Round((15-Length(Mas[M].V1))/2),1);
Write(Mas[M].V1);

Window(45, 18, 60, 18);
TextBackground(Green);
If A=1 Then TextColor(White)
Else TextColor(Black);
ClrScr;
GotoXY(Round((15-Length(Mas[M].V2))/2),1);
Write(Mas[M].V2);
End;

Function Vopros(N : Byte):Byte;
Var
Sx, Sy : Byte;
Flag : Boolean;
K : Char;

Function Key(V : Byte):Integer;
Begin
Key := -1;
If Select = 0 Then Key := Mas[V].O1;
If Select = 1 Then Key := Mas[V].O2;
End;

Function Res(RX, RY, V : Byte):Integer;
Var X1, X2, Y1, Y2 : Byte;
Begin
Res := -1;

X1 := 20;
X2 := 35;
Y1 := 18;
Y2 := 18;
If (RX >= X1) And (RX <= X2) And
(RY >= Y1) And (RY <= Y2) Then Res := Mas[V].O1;

X1 := 45;
X2 := 60;
Y1 := 18;
Y2 := 18;
If (RX >= X1) And (RX <= X2) And
(RY >= Y1) And (RY <= Y2) Then Res := Mas[V].O2;
End;

Begin
Button (Select, N);

Window(7, 7, 73, 16);
TextBackground(LightGray);
ClrScr;
TextColor(Red);
WriteLn('Вопрос: ',Mas[N].Num);
WriteLn;
TextColor(Blue);
WriteLn(Mas[N].Name);

Window(1, 1, 80, 25);
TextBackground(Black);
TextColor(LightGray);

If MousePresent Then Begin { подключил крысу - получи гранату! }
Flag := False;
While Not(Flag) Do Begin
GETMOUSE(l,r,x,y);
Sx := Round(X/8)+1;
Sy := Round(Y/8)+1;
If L Then Begin
If Res(SX,SY,N) <> -1 Then Flag := True;
Sound(020); { Звук с частотой 20 Гц }
Delay(200); { На 200 миллисекунд }
NoSound; { Выключаем динамик }
VOPROS := Res(SX,SY,N);
End;
End;
End Else Begin { мышА не подаёт признаков жизни }
Flag := False;
While Not(Flag) Do Begin
K := ReadKey;
If K = #09 Then Begin
Select := 1-Select;
Button (Select, N);
End;
If (K=#32) Or (K=#13) Then Begin
If Key(N) <> -1 Then Flag := True;
Sound(020); { Звук с частотой 20 Гц }
Delay(200); { На 200 миллисекунд }
NoSound; { Выключаем динамик }
VOPROS := Key(N);
End;
End;
End;
End;



BEGIN
MousePresent := DetectMouse;

I := 1;
Assign(F, FileName);
ReSet(F);
While Not(EOF(F)) Do Begin
Read(F,Mas[I]);
Inc(I);
End;
Close(F);

TextBackground(Black);
TextColor(LightBlue);
ClrScr;
GotoXY(Round((80-Length(TestName))/2),2);
WriteLn(TestName);



Window(5, 5, 75, 20);
TextBackground(Blue);
ClrScr;

Window(6, 6, 74, 19);
TextBackground(LightGray);
TextColor(Black);
ClrScr;

Sum := 0;

If MousePresent Then MOUSEON;

For I := 1 To Max Do Begin
Select := 0;
Sum := Sum + VOPROS(I);
End;

If MousePresent Then MOUSEOFF;


Window(7, 7, 73, 16);
TextBackground(LightGray);
TextColor(Black);
ClrScr;

If (Sum >= 11) And (Sum <= 15) Then Begin
WriteLn('Вы удивительно внимательны и проницательны.');
WriteLn('Вашей памяти можно только позавидовать.');
End;

If (Sum >= 5) And (Sum <= 10) Then Begin
Write('Вы достаточно внимательны, не забываете ничего важного. Однако и на');
WriteLn('старуху бывает проруха - кое-что можете запамятовать.');
WriteLn('И всё же вы способны в ответственный момент сосредоточиться и недопустить промашки.');
End;

If (Sum >= 0) And (Sum <= 4) Then Begin
Write('Вы очень рассеянны, и в этом причина многих бед. Но вы упорно не придаёте значения таким "пустякам", ');
WriteLn('хотя из-за вашего невнимания неприятности терпят и окружающие.');
Write('Что значит, например, забыть завернуть водопроводный кран или потерять взятую у кого-то книгу? ');
WriteLn('А ведь и в зрелые годы (тем более в молодые) каждому под силу быть собранным, натренировать память.');
End;

Window(20, 18, 60, 18);
TextBackground(Green);
TextColor(Black);
ClrScr;
Write('ENTER продолжит работу...');


Window(1, 1, 80, 25);
TextBackground(Black);
TextColor(LightGray);

ReadLn;
ClrScr;

END.




какбы етот совместить вместе smile.gif
bagay
блин ну как ето совместиь ((((
Unconnected
У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.

И ещё, ужасно хочется оффтопнуть... Krjuger, а ты не думал о том, что чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод...
Lapp
Цитата(Unconnected @ 14.06.2009 22:40) *
чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод...
Интересная точка зрения. Накормить, чтоб не научились сами еду добывать. Защитить, чтоб не научились драться. Что-то в ней, конечно, есть... Но если кто-то подолжит тут оффтопить - буду карать! Есть другие разделы для этого, более подходящие..
bagay
Цитата(Unconnected @ 14.06.2009 22:40) *

У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.


вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом smile.gif
Unconnected
Цитата
Цитата(Unconnected @ 14.06.2009 22:40) *

У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.


вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом smile.gif



Что-то мы о разном говорим... Больше никаких пожеланий там?.. Ещё раз, если ты писАть не собираешься, то другим это и подавно не надо... Неужели не понятно, что знания из чужих программ не приходят??
Krjuger
Ребят,а я сразу вам сказал,что этот человек делать ничего не будет..А вы меня гнобить начали,какой я высокомерный и помоч не хочу,а сейчас сами пришли к такому результату.
Ozzя
Krjuger
Не в высокомерии дело.
1. Иногда "меряешь кафтан не по плечу". Согласен?
2. Лепишь сырой/"грязный" код. Было? Было!
Так что, не в обиду? Ок?
Krjuger
Это понятно,тут я ничего сказать не могу,что есть то есть.
Но к данной теме все, что ты перечислил вообще не относилось,я просто высказал негодование,когда человек, ничего не собирающийся делать(а это сразу было четко видно),начал высказыаать претензии и приниципи даже оскорблять.Если бы он выявил желание работать,ну или хотябы уважение к тем,кто ему помогает,я бы так же ,как и другие, сел решать эту задачу,потому что на мой взгляд она довольно интересная.А так заметь,человеку абсалютно все равно на реализацию,как ему скинули код, так он его и скушал.Он сидит,как заказчик и говорит,мне вот эта фигня не нравица,сделайте мне чтоб было красиво.Поэтому я и отправлял его в платный раздел,потому что у него отношение к тем,кто ему делает, не как к людям,а как к задротам,которые получают удовольствие от решения чужих задач.
Ozzя
Ну, в данной теме - да. А вообще, может быть "Поменьше безапелляционности и всё будет - ок. ;)"? ;)
Krjuger
А я ниразу апеляций не подавал,даже,когда Volvo,мне пару раз наказания влупил,хотя с одним,я и не согласен,но это уже прошлое,просто я чую,что Volvo я очень не нравлюсь))

Эту тему,я смотрю только ради того,чтобы увидеть,соизволит ли человек хоть раз выложить свои действия.Но надежды все меньше и меньше.
Lapp
Цитата(Krjuger @ 17.06.2009 19:14) *
Но надежды все меньше и меньше.
Krjuger, заканчивай флуд.
Я вижу только одно: Sheka поступил некорректно в начале. Я счел нужным извиниться от имени Форума. Конфликт считаю исчерпанным. Дальше человек решает сам - делать или не делать, учиться или не учиться. Это ЕГО дело. А ТВОЕ ( как и всех отвечающих тут) дело - либо отвечать ПО ДЕЛУ, либо ПРОМОЛЧАТЬ.

Человеку дали возможность чему-то научиться - дальше он сам решает, использовать ее или нет. А если ты обиделся на оскорбление - его я считаю заслуженным. Здесь форум. Надо быть готовым к адекватным ответам, если издеваешься.

Прошу в этой теме больше не флудить. Хотите обсудить - прошу в Свободное или Дискуссии.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.