IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Мой проект на 3 недели, Курсовая работа
сообщение
Сообщение #21


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


блин ну как ето совместиь ((((
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


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

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

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(Unconnected @ 14.06.2009 22:40) *

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


вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Цитата
Цитата(Unconnected @ 14.06.2009 22:40) *

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


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



Что-то мы о разном говорим... Больше никаких пожеланий там?.. Ещё раз, если ты писАть не собираешься, то другим это и подавно не надо... Неужели не понятно, что знания из чужих программ не приходят??

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Профи
****

Группа: Пользователи
Сообщений: 652
Пол: Мужской
Реальное имя: Алексей

Репутация: -  20  +


Ребят,а я сразу вам сказал,что этот человек делать ничего не будет..А вы меня гнобить начали,какой я высокомерный и помоч не хочу,а сейчас сами пришли к такому результату.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Krjuger
Не в высокомерии дело.
1. Иногда "меряешь кафтан не по плечу". Согласен?
2. Лепишь сырой/"грязный" код. Было? Было!
Так что, не в обиду? Ок?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Профи
****

Группа: Пользователи
Сообщений: 652
Пол: Мужской
Реальное имя: Алексей

Репутация: -  20  +


Это понятно,тут я ничего сказать не могу,что есть то есть.
Но к данной теме все, что ты перечислил вообще не относилось,я просто высказал негодование,когда человек, ничего не собирающийся делать(а это сразу было четко видно),начал высказыаать претензии и приниципи даже оскорблять.Если бы он выявил желание работать,ну или хотябы уважение к тем,кто ему помогает,я бы так же ,как и другие, сел решать эту задачу,потому что на мой взгляд она довольно интересная.А так заметь,человеку абсалютно все равно на реализацию,как ему скинули код, так он его и скушал.Он сидит,как заказчик и говорит,мне вот эта фигня не нравица,сделайте мне чтоб было красиво.Поэтому я и отправлял его в платный раздел,потому что у него отношение к тем,кто ему делает, не как к людям,а как к задротам,которые получают удовольствие от решения чужих задач.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Ну, в данной теме - да. А вообще, может быть "Поменьше безапелляционности и всё будет - ок. ;)"? ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Профи
****

Группа: Пользователи
Сообщений: 652
Пол: Мужской
Реальное имя: Алексей

Репутация: -  20  +


А я ниразу апеляций не подавал,даже,когда Volvo,мне пару раз наказания влупил,хотя с одним,я и не согласен,но это уже прошлое,просто я чую,что Volvo я очень не нравлюсь))

Эту тему,я смотрю только ради того,чтобы увидеть,соизволит ли человек хоть раз выложить свои действия.Но надежды все меньше и меньше.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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

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

Прошу в этой теме больше не флудить. Хотите обсудить - прошу в Свободное или Дискуссии.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 3:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name