М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
арина1382
арина1382
09.04.2023 05:33 •  Информатика

Составить программу проверки знания таблицы умножения. сценарий: компьютер спрашивает: «проверим? » (варианты ответов: 0 – «нет», 1 – «да») . если играющий отвечает «да», то компьютер с генератора случайных чисел задает 2 числа и запрашивает их произведение. после проверки правильности ответа компьютер сообщает «правильно» или «неправильно» и подсчитывает количество правильных ответов и ошибок. затем компьютер вновь спрашивает: «проверим? ». по окончании работы цикла компьютер выдает статистику игры: сколько всего задано вопросов, количество правильных ответов и число ошибок.

👇
Ответ:
алекей4
алекей4
09.04.2023
\n";

   cout << "Correct answer > " << a * b << endl;

   FalseCounter++;

   Sleep(2500);

  }

  break;

 case 2:

  end = 1;

  break;

 }

} while (end != 1);

system("cls");

cout << "Game Info : \n";

cout << "Question counter > " << Counter << endl;

cout << "Correct answer > " << TrueCounter << endl;

cout << "Incorrect anser > " << FalseCounter << endl;

system("pause");

return 0;

}


Составить программу проверки знания таблицы умножения. сценарий: компьютер спрашивает: «проверим? »
4,7(7 оценок)
Ответ:
ak067
ak067
09.04.2023

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

 var (a, b) := (Random(0, 20), Random(0, 20));

 Print($'{a}*{b}=');

 if a * b = ReadInteger then begin inc(c); Println('Правильно') end

 else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

 Println($'Задано вопросов {c+w}');

 Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

 Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;


begin

 var start := true;

 while start do

 begin

   Println('Проверим?(0/1)');  

   if ReadInteger = 0 then

   begin start := false; res; end

   else check;

 end;

end.


Пример в приложении.


Составить программу проверки знания таблицы умножения. сценарий: компьютер спрашивает: «проверим? »
4,5(16 оценок)
Открыть все ответы
Ответ:
dashashirobokova
dashashirobokova
09.04.2023
1. Как называется программа для создания и редактирования текста с расширенными возможностями?
Смотря какие возможности вы считаете расширенными и по сравнению с чем
а) MS WORD;
б) WORD PAD;

2. Из каких основных элементов состоит окно программы текстового редактора MS WORD?
А какая версия программы?
а) строка заголовка и строка меню;
б) панели инструментов;
в) рабочее поле;

3. Какие используют для создания нового документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОЗДАТЬ;
в) кнопка на панели инструментов СОЗДАТЬ;

4. Какие используют для открытия документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – ОТКРЫТЬ;
в) кнопка на панели инструментов ОТКРЫТЬ;

5. Какие используют для сохранения документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОХРАНИТЬ;
в) кнопка на панели инструментов СОХРАНИТЬ;

6. Какие используют для удаления фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВЫРЕЗАТЬ;
б) команда главного меню ПРАВКА – ВЫРЕЗАТЬ;
в) нажать кнопку DELETE на клавиатуре;
д) кнопка на панели инструментов ВЫРЕЗАТЬ.

7. Какие используют для копирования фрагмента текста в текстовом редакторе MS WORD?:
а) команда контекстного меню КОПИРОВАТЬ;
б) команда главного меню ПРАВКА – КОПИРОВАТЬ;
в) кнопка на панели инструментов КОПИРОВАТЬ;

8. Какие используют для вставки скопированного фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВСТАВИТЬ;
б) команда главного меню ПРАВКА – ВСТАВИТЬ;
в) кнопка на панели инструментов ВСТАВИТЬ;

9. С каких вызвать окно диалога ШРИФТ в текстовом редакторе MS WORD?
а) команда главного меню ФОРМАТ – ШРИФТ;
в) кнопка на панели инструментов;

10. Какие параметры шрифта можно установить в окне ШРИФТ текстового редактора MS WORD?
а) тип; ?
б) размер;
в) цвет;
г) стиль (начертание);

11. Какое начертание текста можно установить в текстовом редакторе MS WORD.
а) жирное;
б) курсивное;
в) подчеркнутое;

12. Какое выравнивание текста можно установить в текстовом редакторе MS WORD.
а) по левому краю;
б) по правому краю;
в) по центру;
г) по ширине страницы;

13. Какая есть ориентация у страницы в текстовом редакторе MS WORD?
в) альбомная;
г) книжная;
4,6(78 оценок)
Ответ:
oll5
oll5
09.04.2023
Так как в условии задачи речь идет о массиве действительных чисел,то будем использовать тип real. Четкого размера массива нет - используем динамический массив

var  a: array of real; // динамический массив вещественных чисел 
n, x, y, i: integer;
begin 
write('Vvedite razmer massiva n=');  
readln(n); // считываем размер динамического массива 
a := new real[n + 1]; // инициализируем динамический массив размера n 
for i := 1 to n do 
      begin   
        a[i] := random(n, -n) + 1 / (random(n) + 1);
         // заполняем элементы массива случайными значениями в диапазоне  [n,-n] и искусственно создаем в них случайную дробную                        часть выражением (1/(random(n)+1))    
        if a[i] > 0 then inc(x) // если элемент массива больше 0,то увеличиваем x на 1 
        else if (a[i] < 0) then inc(y); //если элемент меньше 0,то увеличиваем y на 1         
        writeln(a[i]:4:3);// вывод значения элемента массива с ограничением [4 символа до запятой : 3 символа после запятой]
     end; 
writeln('Kolichestvo >0 = ', x ); 
writeln('Kolichestvo <0 = ', y); 
writeln('Kolichestvo 0 =', n-x-y);
end.
4,4(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ