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

50 !
1)условие
пользователь должен ввести число 1.

программа начинает работу с сообщения: "enter 1 please" (с . "введите 1 ")

после чего запрашивает у пользователя ввод числа. если пользователь вводит не единицу, программа выводит сообщение "no" и снова запрашивает число.

когда пользователь введет единицу, программа выведет сообщение "yes"

формат входных данных
числа, которые вводит пользователь (от 0 до 5)

формат выходных данных
сообщения программы

входные данные выходные данные
3
3
1
enter 1 please
no
no
yes
2)модифицируйте предыдущую игру.

в конце игры программа выводит на экран "yes", а на следующей строчке сообщение.

"n moves. good job! " (с . n ходов. хорошая работа! )

формат входных данных
числа, которые вводит пользователь (от 0 до 5)

формат выходных данных
сообщения программы
3)условие
программа загадывает число от 0 до 9 и предлагает его отгадать фразой "guess the number from 0 to 9" (с . "отгадайте число от 1 до 9").

пользователь вводит числа до тех пор, пока не отгадает.

если пользователь ввел число меньшее, чем загаданное, программа выводит сообщение "more" (с . "больше").

если пользователь введ число большее, чем загаданное, программа выводит сообщение "less" (с . "меньше").

когда пользователь отгадает число, программа выведет две строки:

"! " (с . "! ")
"it took you x moves" (с . "вы сделали это за х ходов"), где вместо x будет число попыток, которые потребовались пользователю (1 или больше)

формат входных данных
первая строка - число от 0 до 9, загаданное программой

остальные строки - числа от 0 до 9, попытки пользователя отгадать число

формат выходных данных
сообщения программы

входные данные выходные данные
1
9
8
6
1
guess the number from 0 to 9
less!
less!
less!
!
it took you 4 moves
6
7
8
5
7
5
5
0
6
guess the number from 0 to 9
less!
less!
more!
less!
more!
more!
more!
!
it took you 8 moves
4)условие
суть игры полностью совпадает с "игра для гениев: "введи 1".

однако, теперь, если пользователь не ввел единицу, программа выводит сообщение "no. lives left: x" (с . "нет. осталось жизней: х"), где x - количество оставшихся попыток, чтобы ввести единицу.

пользователю дается 3 попытки, чтобы ввести единицу.

если пользователь потратил все попытки и не справился, программа выводит сообщение: "you lose" (с . "вы проиграли")

как только пользователь вводит единицу, программа сразу же выводит сообщение "you win" (с . "вы выиграли") и останавливает свою работу.

формат входных данных
от 1 до 3 строк, содержащих числа от 1 до 5 - попытки пользователя ввести единицу.

формат выходных данных
сообщения программы

входные данные выходные данные
5
1
enter 1 please
no. lives left: 2
enter 1 please
you win
4
3
2
enter 1 please
no. lives left: 2
enter 1 please
no. lives left: 1
enter 1 please
no. lives left: 0
you lose

👇
Открыть все ответы
Ответ:
umeson
umeson
15.07.2022

Примерно так. На псевдоязыке, который легко переводится в тот, который знаком

 

//

Сумм=0;

Конец=0;

 

Ввод(Ч);

Пока (Ч#Конец)  Цикл

        Если Проверить(Ч)=1 Тогда  

               Сумм=Сумм+Ч; 

       КонецЕсли;

      Ввод(Ч);

КонецЦикла;

 

Печать(Сумм);

//

 

//

Функция Проверить(П)

       Если Остаток(П,10)=4 Тогда

                Если Остаток(П,6)=0 Тогда

                         Возврат(1);

                КонецЕсли;

       КонецЕсли;

       Возврат(0);

КонецФункции

//

 

Этот текст не использует массивы, поэтому количество вводимых чисел неограничено. Их величина определяется описанием переменной(если в языке оно явно требуется, для приведенных данных достаточно описать как ЦЕЛОЕ(INTEGER)). Сумм описать побольше(если требуется).

Если в языке нет функции Остаток(обычно MOD), напиши свою, это очень просто.

Повторюсь, в Паскаль, Бейсик, 1С текст переводится очень легко, в С(Java, PHP и пр.) чуть сложнее, там немного другой синтаксис, но это преодолимые проблемы.

4,5(59 оценок)
Ответ:
popovaadelina20
popovaadelina20
15.07.2022

Не сказала бы, что это решение сильно отличается от уже имеющегося, но 

а) оно совсем немножко удобнее (хотя бы из-за ClrScr и вывода ответа с определённым количеством знаков после запятой). А ещё предусмотрена возможность отсутствия таковых чисел.

б)ну не могла я пропустить задачу по паскалю)

 

Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,s,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
If a[i]=i then
begin
s:=s+a[i];
writeln('s=',s);
k:=k+1;
end;
end;
writeln;
If k=0 then writeln('таких элементов нет') else
Writeln('Среднее арифметическое элементов массива, равных своим индексам, равно ',s/k:4:4);
readln
end.

4,4(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ