сервис вопросов и ответовСоставить программу, отгадывающую натуральное четное число, загаданное пользователем. Ниже представлен рекомендуемый вариант диалога во время работы
5-9 класс|
|
программы:
Загадайте натуральное четное число
Прибавьте к нему 4
Уменьшите на 6
Поделите на 2
Что у вас получилось?
...
Вы загадали число ...!!!
S8Anisa8S
15 янв. 2017 г., 0:20:49 (7 лет назад)
Elvinag1
15 янв. 2017 г., 1:40:09 (7 лет назад)
и какая вероятность что пользователь не ошибется?)))
program i_guess_number;
uses crt;
var changes: array [1..2,1..10] of integer;
i,op,n:integer;
s:string;
res:real;
BEGIN
randomize;
writeln("Загадайте число");
n := 0;
repeat
n := n+1;
i := random(10);
op := random(4);
case op of
1: s := "Прибавте ";
2: s := "Отнимите ";
3: s := "Умножте на ";
else s := "Поделите на ";
end;
writeln(s, i);
changes[1,n] := op; {запоминаем действия}
changes[2,n] := i;
until n = 10;
writeln("Что вышло?");
readln(res);
for i := n downto 1 do { производим обратные действия }
begin
case changes[1,i] of
1: res := res - changes[2,i];
2: res := res + changes[2,i];
3: res := res / changes[2,i];
else res := res * changes[2,i];
end;
end;
writeln("Вы загодали ",res);
END.
Ответить
Другие вопросы из категории
Одна печатная страница содержит 30 строк по 70 символов в каждой. В алфавите 256 символов. Какое количество информации несет текст, состоящий из 5
таких страниц?
с решением плиз!срочно!!!
Сколько секунд потребуется модему,передающему информацию со скоростью 33600 бит/с,чтобы пепедать растровое изобр размером 640#480 пикселей,при условии,что
в палитре 16777216 цветов?
Формула только одна
I=vt
I-кол во информации
t-время
V-пропускн. Способность канала(скорость)
решение и ответ
...- это система , обеспечивающая одновременное представление звука , анимированной
компьютерной графики , видиоряда. Что это ?
Читайте также
Составить программу (Turbo Pascal) вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во
время работы программы. Ниже представлен рекомендуемый вид диалога во время работы программы. Данные, вводимые пользователем, выделены жирным шрифтом.
Величина вклада (р.) - 25000
Срок вклада (дней) - 30
Годовая процентная ставка (%) - 12
Доход: 252 р. 80 коп.
Сумма по окончании срока вклада: 25252 р. 80 коп.
Написать программу,которая вычисляет сумму первых n членов ряда 1,3,5,7. Количество суммируемых членов ряда задаётся во время роботы программы.
(ниже представлен рекомендуемый вид экрана во время работы программы)
Вычисление частичной суммы рада 1,3,5,7.
Введите количество суммируемых членов ряда: 15
Сумма первых 15 членов ряда равна 330.
Домашнее задание «Линейное программирование»
1. Написать программу вычисления площади прямоугольника.
Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Помогите,пожалуйста,с программированием.Работа происходит с Паскале abc.
Напишите программу вычисления площади прямоугольника.Ниже представлен желательный вид экрана во время работы программы.
Вычисление площади прямоугольника
Введите исходные данные:
Длина (cм) => 9
Ширина (см) => 7.5
Площадь прямоугольника: 67.50 кв.см
1.Написать программу, которая вычисляет частное двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные
(делитель равен нулю), вы давать сообщение об ошибке. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление частного.
Введите в одной строке делимое и делитель,
затем нажмите <enter>.
-> 12 О
Вы ошиблись. Делитель не должен быть равен нулю.
Вы находитесь на странице вопроса "Составить программу, отгадывающую натуральное четное число, загаданное пользователем. Ниже представлен рекомендуемый вариант диалога во время работы", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.