Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 11 
  Версия для печати (полностью) Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Member
Статус: Не в сети
Регистрация: 25.06.2003
Откуда: Хабаровск
помогите в Паскале прогу накатать!суть такая:
есть массив, в нем 2-3-4 десятка вопросов(их еще надо ввести в программу, причем через код программы, т.е. когда прогу включат она сразу начнет спрашивать :))на каждый минимум по три ответа(один правильный :)). надо посчитать количество правильных ответов.
проблема в том что в паскале я не очень :oops: ПОМОГИТЕ!!! :) а то меня
:gun: :grob: на месте.

_________________
WTF are we doing in a middle of a desert!!!
Somebody call the police!!! (c) fear and loathing in LA



Партнер
 

Member
Статус: Не в сети
Регистрация: 01.08.2003
Вопрсы проще из файла читать, а не вдалбливать при каждом запуске. Кроме того, нужна база правильных ответов, чтоб было с чем сравнивать. Дальше элементарно: if (true) then inc(yes); где yes - количество правильных ответов :)


 

Member
Статус: Не в сети
Регистрация: 25.06.2003
Откуда: Хабаровск
Apexman не при каждом запуске - суть такая что в прогу при создании вбиваются эти вопросы на какую-либо тему, и все. по поводу элементарно: у меня нифига не получилось! кидай сразу весь код проги :)

_________________
WTF are we doing in a middle of a desert!!!
Somebody call the police!!! (c) fear and loathing in LA


 

Member
Статус: Не в сети
Регистрация: 03.01.2003
Откуда: Ростов-на-Дону
Блин да это елементарно, отвечаю я бы написал но ей богу влом, был бы стимул какой-то. Поставил бы ты мне полторашку пива я бы написал в два счёта, тем более что он не хочет что бы из файлов читало, это вообще эелементарно.

_________________
Just Zerg! Остановим деградацию русского языка, скажем нет удафкомовской лексике!!


 

Member
Статус: Не в сети
Регистрация: 25.06.2003
Откуда: Хабаровск
Zеrg тебе будет большое спасибо :) или если в Хабаровске будешь то пиво! ну очень надо млин!

_________________
WTF are we doing in a middle of a desert!!!
Somebody call the police!!! (c) fear and loathing in LA


 

Member
Статус: Не в сети
Регистрация: 18.07.2003
Откуда: Саратов ...пока
хех ну и приколист, а сам - нет, даже так - САААМ пробовал?
читай! Всё в книгах
хотя...
я вот тоже паскаль знаю - а в дельфях понимаю только самое простое и сложнее как по паскалю, а в среднем часто запинки бывают :(

_________________
воскрес


 

Member
Статус: Не в сети
Регистрация: 03.01.2003
Откуда: Ростов-на-Дону
ну я посмотрю, может быть для одного вопроса тебе сделаю, а дальше будешь сам исходняк доробатывать.
Если время будет, то сделаю.

_________________
Just Zerg! Остановим деградацию русского языка, скажем нет удафкомовской лексике!!


 

Member
Статус: Не в сети
Регистрация: 25.06.2003
Откуда: Хабаровск
БЛИН!мне завтра она уже нужна так что вы опоздали.gee ГДЕ я найду книги? в какой заднице я их надыбаю? я потому тему открыл что мне небыло времени искать глюк в том что у меня получилось!мне нужно было решение!
Zеrg зпасибо но поздно

_________________
WTF are we doing in a middle of a desert!!!
Somebody call the police!!! (c) fear and loathing in LA


 

Member
Статус: Не в сети
Регистрация: 18.07.2003
Откуда: Саратов ...пока
Syava ну ладно извини не горячись

_________________
воскрес


 

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
const
qn=2; {число вопросов}
q:array[1..qn] of string = ('Q1 ','Q2 '); {сюда вводишь вопросы}
ra:array[1..qn] of integer = (1,2); {номера правильных ответов}

var
rn,i,a:integer;

begin
writeln;
rn:=0;
for i:=1 to qn do begin
write(q[i]);
readln(a);
if a=ra[i] then
Inc(rn);
end;
writeln(rn,' 3dmarks!');
readln;
end.

{минимальная конфигурация - 1 минута работы}
{о, дьявол! где отступы? ими измеряется квалификация программиста!}


 

Member
Статус: Не в сети
Регистрация: 25.06.2003
Откуда: Хабаровск
vor спасибо
gee да пофиг в общем-то уже

_________________
WTF are we doing in a middle of a desert!!!
Somebody call the police!!! (c) fear and loathing in LA


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 11 
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan