ANTICHAT
Страница 2 из 287 < 1 2 3 4 5 6 1252102 > Последняя »
Показывать 40 сообщений этой темы на одной странице

ANTICHAT (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Студентам с лабораторными сюда (https://forum.antichat.xyz/showthread.php?t=122076)

Fire3d 23.06.2007 17:30
Цитата:
Сообщение от Joker-jar
Объяви структуру, которая содержит: текст вопроса, тексты вариантов ответа, номер правильного ответа. Создай файл объявленных структур. Отдельной программой наполни файл вопросами.
При ответе сверяй ответ с правильным ответом, если ок, инкрементируй счетчик.
Джокер мы еще не проходили работу с файлами...
Другой способ есть ?

Joker-jar 23.06.2007 17:39
Тогда все в виде констант. Можно в виде массива
Код:
TQuestion = record
  Text, Ans1, Ans2, Ans3, Ans4: string;
  RightAns: 1..4;
end;
...
QArray: array[1..10] of TQuestion;
При запуске программы заполняй чем надо.

Fire3d 23.06.2007 17:41
Цитата:
Сообщение от Joker-jar
Тогда все в виде констант. Можно в виде массива
Код:
TQuestion = record
  Text, Ans1, Ans2, Ans3, Ans4: string;
  RightAns: 1..4;
end;
...
QArray: array[1..10] of TQuestion;
При запуске программы заполняй чем надо.
Ясно наверное я рано взялся за такое задние ((( Только сегодня массивы прошли (((

Joker-jar 23.06.2007 17:41
Хотя, если у тебя вопросы типа ДА/НЕТ, то там проще

Fire3d 23.06.2007 17:45
Цитата:
Сообщение от Joker-jar
Хотя, если у тебя вопросы типа ДА/НЕТ, то там проще
Ну для начала... я хотел начать с ДА/НЕТ.

md5f1h 23.06.2007 17:50
Нужна помошь
 
задание тут http://www.permcity.info/help.jpg если кто-нибудь сделает хотяб что нибудь из этой работы буду плюсовать каждый день тому человеку

Joker-jar 23.06.2007 18:01
Fire3d, написал небольшой примерчик:
Код:
const
  Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
  Tans: array[1..5] of boolean = (true,true,false,true,false);

var
  s: string;
  i,count: integer;

begin
  writeln('Otvet: y or n');
  for i := 1 to 5 do
    begin
      writeln(Tqs[i]);
      readln(s);
      if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
        count := count + 1;
    end;
  writeln('Right answers: ',count);
  readln;
end.

Fire3d 23.06.2007 18:17
Цитата:
Сообщение от Joker-jar
Fire3d, написал небольшой примерчик:
Код:
const
  Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
  Tans: array[1..5] of boolean = (true,true,false,true,false);

var
  s: string;
  i,count: integer;

begin
  writeln('Otvet: y or n');
  for i := 1 to 5 do
    begin
      writeln(Tqs[i]);
      readln(s);
      if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
        count := count + 1;
    end;
  writeln('Right answers: ',count);
  readln;
end.
Спасибо когда приду дмоой сразу научну разбирать твой код. А тут вопросы можно задавать по коду ??? Просто некторый моменты мне не понятны....

Joker-jar 23.06.2007 18:27
md5f1h, с нуля вряд ли кто-то будет делать. По отдельным вопросам обращайся, помогут.

da_ff 24.06.2007 00:06
2 Fire3d вот два теста может помогут писал очень давно но если че стукни в асю http://dobropozalovat.ifolder.ru/2463428


Время: 10:31
Страница 2 из 287 < 1 2 3 4 5 6 1252102 > Последняя »
Показывать 40 сообщений этой темы на одной странице