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

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

👇
Ответ:
verakras
verakras
19.07.2020

//Язык Pascal

Program multiplication;


Var

  code, rightAnswers, mistakes, answersCount, value1, value2, answer: integer;


Begin


  Randomize;

   

  code := 1;

  rightAnswers := 0;

  mistakes := 0;

  answersCount := 0;

   

  while code = 1 do

  begin

     Write('Проверим? ');

     Readln(code);

     Writeln();

     

     if (code = 1) then

     begin

        value1 := random(1, 9);

        value2 := random(1, 9);

         

        Write(value1, '*', value2, ' = ');

        Readln(answer);

         

        if (answer = value1 * value2) then

        begin

           Writeln('Правильно!');

           rightAnswers := rightAnswers + 1;

        end

         

        else

        begin

           Writeln('Неправильно!');

           mistakes := mistakes + 1;

        end;

         

        answersCount := answersCount + 1;

        Writeln();

     end;

  end;

   

  Writeln('Статистика:');

  Writeln('Задано вопросов: ', answersCount);

  Writeln('Количество правильных ответов: ', rightAnswers);

  Writeln('Число ошибок: ', mistakes);


End.


Программа в паскале составить программу проверки знания таблицы умножения. сценарий: компьютер спраш
Программа в паскале составить программу проверки знания таблицы умножения. сценарий: компьютер спраш
4,6(76 оценок)
Открыть все ответы
Ответ:
Lerika51640
Lerika51640
19.07.2020

ответ: Систе́ма — множество элементов, находящихся в отношениях и связях друг с другом, которое образует определённую целостность, единство. Сведение множества к единому — в этом первооснова красоты. Пифагор. Потребность в использовании термина «система» возникает в тех случаях, когда нужно подчеркнуть, что что-то является большим, сложным, не полностью сразу понятным, при этом целым, единым.

Объяснение:

Теперь перечислим основные свойства системы.

1) Целостность. Любую организацию можно рассматривать как интегрированное целое, в котором каждый элемент занимает строго определенное место.

Целостность - принципиальная несводимость свойств системы к сумме свойств составляющих ее элементов и невыносимость из последних свойств целого; зависимость каждого от его места, функции и т.д. внутри целого.

Функционирование целого должно приносить интегральный, суммированный эффект. Все элементы должны быть взаимосвязаны в рамках цели данной системы.

2) Иерархичность. Каждый компонент системы в свою очередь может рассматриваться как система, а исследуемая в данном случае система представляет собой один из компонентов более широкой, глобальной системы (рис. 6). Это напоминает ящик, в который сложены более мелкие коробки, мы открываем один и видим, что в нем содержится еще несколько.

4,7(14 оценок)
Ответ:
nikakrasovska
nikakrasovska
19.07.2020
Я в диалектах не очень, но вот вспомнил VB.net :)
 Sub Main()
        Dim a(10) As Integer
        Dim b As Integer = 1
        Dim c As Integer

        Dim R As Random = New Random()
        For i As Integer = 0 To 10
            a(i) = R.Next(12)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next

        For i As Integer = 0 To 10 
           If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
            If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
        Next
        Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
        Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
        Console.Read()
    End Sub
4,5(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ