Вопрос по информатике:
РЕБЯТ, ПОМОГИТЕ ПОЖАЛУЙСТА.
КОНЕЦ СЕМЕСТРА, Я В ЗАВАЛЕ :(
задача 1)
Написать программу, которая по вводимому числу от 1 до 11 (номеру класса) выдаёт соответствующее приветствие. Например, если k=1 - «Привет, первоклассник» , если k=9 - «Привет, девятиклассник». Учесть возможную ошибку при вводе числа с клавиатуры.
задача 2)
Спомощью оператора Case составить программу определения стоимости разговора по телефону с учётом скидки 20%, предоставляемой по субботам и воскресеньям. Минута разговора стоит 2,3 руб.Вывести: день недели звонка, сумму без скидки и сумму со скидкой. Если скидка не предоставляется - написать об этом.
Учесть возможную ошибку при вводе числа с клавиатуры.
Пояснение: с клавиатуры пользователь вводит длительность разговора и номер дня недели от 1 до 7.)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.07.2018 16:22
- Информатика
- remove_red_eye 12152
- thumb_up 72
Ответы и объяснения 2
А можно поподробнее что подразумевается под учесть ошибку, имеется ввиду если число не соответсвует от 1 до 11 вывести "ошибка при вводе"?
- 18.07.2018 03:59
- thumb_up 41
program Hello;
var i:integer;
begin
write('введите целое число от 1 до 11: ');
readln(i);
writeln('**********************************');
case i of
'1' : WriteLn('Привет, первоклассник!!!');
'2' : WriteLn('Привет, второклассник!!!');
'3' : WriteLn('Привет, третьеклассник!!!');
'4' : WriteLn('Привет, четвероклассник!!!');
'5' : WriteLn('Привет, пятиклассник!!!');
'6' : WriteLn('Привет, шестиклассник!!!');
'7' : WriteLn('Привет, семиклассник!!!');
'8' : WriteLn('Привет, восьмиклассник!!!');
'9' : WriteLn('Привет, девятикласссник!!!');
'10' : WriteLn('Привет, десятиклассник!!!');
'11' : WriteLn('Привет, одиннадцатиклассник!!!');
else writeln('вы должны ввести число от 1 до 11')
end;
writeln('**********************************');
end.
program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите длительность разговора в минутах ');
readln(time);
write('введите номер дня недели ');
readln(day);
writeln('***** alphaeus is thinking... *****');
case day of
'1'..'5':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Скидка не предоставляется');
end;
'6','7':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Вам предоставлена скидка!');
end;
else writeln('вы ввели неправильный номер дня недели')
end;
writeln'************************************');
end.
- 19.07.2018 19:00
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.