Вопрос по информатике:
Нужно написать эту программу на Pascal, помогите пожалуйста. Буду очень благодарен.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.09.2018 00:43
- Информатика
- remove_red_eye 13124
- thumb_up 24
Ответы и объяснения 1
Program zadacha;
uses crt;
var a, b, w, k: integer;
x: real;
begin
clrscr;
write ('vvedite a, b, w, k: ');
readln (a, b, w, k);
if k=1 then x:=log2(w-a)
else if k=2 then x:=sqrt(sqr(w)+b*w+a)
else if k=3 then x:=sqrt(w+a)+sqrt(w+b)
else if k>3 then x:=-(a*w)/w
else writeln ('nevernye ishodnye dannye');
writeln ('x=', x:0:4);
readkey;
end.
Тест:
a=2, b=3, w=7, k=1
x=2.3219
- 23.09.2018 14:52
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.