Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 21.10.2013
Сообщений: 51
1

Составить программу, задающую загадки и анализирующую ответы

25.01.2014, 12:35. Просмотров 3196. Ответов 2
Метки нет (Все метки)


Составить программу, задающую загадки и анализирующую ответы
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 12:35
Ответы с готовыми решениями:

22. Составить программу, задающую загадки и анализирующую ответы.
Заранее спасибо.

Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади.
Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления...

Составить программу, загадывающую 5 загадок и проверяющую ответы
Составить программу, загадывающую 5 загадок и проверяющую ответы. В специальных окнах выводится...

Головоломка загадки Загадки Да'Винчи
Нашел интересную игру на google play,...

2
24 / 10 / 5
Регистрация: 11.01.2014
Сообщений: 85
25.01.2014, 14:25 2
Ты можешь подробней написать?
Просто программа разгадывать загадки не умеет.
0
Супер-модератор
5538 / 2567 / 1294
Регистрация: 04.03.2013
Сообщений: 5,540
Записей в блоге: 1
25.01.2014, 18:53 3
Лучший ответ Сообщение было отмечено Nurlan_300 как решение

Решение

Пример:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    q : string;
    a : string
  end;
var
  a : array [1..n] of zagadka; {массив загадок}
  i, r, w : integer;
  answer : string;
begin
  {инициализация 3 загадок, можно подобное сделать из текстового файла например}
  a[1].q := 'Зимой и летом одним цветом';
  a[1].a := 'ёлка';
  a[2].q := 'Синий, рогатый, зайцами набит';
  a[2].a := 'троллейбус';
  a[3].q := 'Сто одежек и все без застежек';
  a[3].a := 'капуста';
  {ну и задаем вопросы, например 3}
  w := 0; {неверных ответов}
  r := 0; {правильных ответов}
  for i := 1 to n do
  begin
    write(a[i].q, ': ');
    readln(answer);
    if answer = a[i].a then
    begin
      inc(r);
      writeln('правильно!')
    end
    else
    begin
      inc(w);
      writeln('неправильно')
    end
  end;
  writeln('правильных ответов: ', r, ', неправильных: ', w);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 18:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Написать программу, анализирующую лог файл сервера apache
Написать программу анализирующую лог файл сервера apache, позволяющую отображать кол-во показов...

Написать программу анализирующую лог-файл сервера apache
Может кто поможет: Написать программу анализирующую лог файл сервера apache, позволяющую...

Написать программу анализирующую лог файл сервера apache
Написать программу анализирующую лог файл сервера apache, рассчитывающую увеличение нагрузки на ...

Написать программу анализирующую лог файл сервера apache
Написать программу анализирующую лог файл сервера apache, позволяющую отображать кол-во уникальных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.