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
Ответы
Не сказала бы, что это решение сильно отличается от уже имеющегося, но
а) оно совсем немножко удобнее (хотя бы из-за 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Докажите 22533*8 = 10010101011011*2
Автор: Inforealto
Що буде результатом виконання даної програми?
Автор: mberberoglu17
Как можно вообщем назвать сканер, клавиатура, мышь,
Автор: Stanislavovna1237
Перевести 64кбит в байты, 2мб в гбиты, 64мбит в мбайты ! !
Автор: marinatehnomaster21
КОШКА пьёт ВОДУ и понимает что она холодная
Автор: maksteks
Примерно так. На псевдоязыке, который легко переводится в тот, который знаком
//
Сумм=0;
Конец=0;
Ввод(Ч);
Пока (Ч#Конец) Цикл
Если Проверить(Ч)=1 Тогда
Сумм=Сумм+Ч;
КонецЕсли;
Ввод(Ч);
КонецЦикла;
Печать(Сумм);
//
//
Функция Проверить(П)
Если Остаток(П,10)=4 Тогда
Если Остаток(П,6)=0 Тогда
Возврат(1);
КонецЕсли;
КонецЕсли;
Возврат(0);
КонецФункции
//
Этот текст не использует массивы, поэтому количество вводимых чисел неограничено. Их величина определяется описанием переменной(если в языке оно явно требуется, для приведенных данных достаточно описать как ЦЕЛОЕ(INTEGER)). Сумм описать побольше(если требуется).
Если в языке нет функции Остаток(обычно MOD), напиши свою, это очень просто.
Повторюсь, в Паскаль, Бейсик, 1С текст переводится очень легко, в С(Java, PHP и пр.) чуть сложнее, там немного другой синтаксис, но это преодолимые проблемы.