Вопрос по информатике:
1. Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=3, A=0, A=-12.
2. Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс.
Программы На Паскале, прошу, помогите.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.02.2017 02:19
- Информатика
- remove_red_eye 1082
- thumb_up 41
Ответы и объяснения 1
1.
Var A : Integer;
Begin
Write('Введите число A: '); Readln(A);
If A>0 then A:=A+1 else A:=A-1;
Writeln('Новое значение числа A: ',A);
end.
2.
Var A,B,c : Real;
Begin
Write('Введите число A и B: '); Readln(A,B);
c:=(A+B)/2;
If A Begin
B:=A*B*2;
A:=c;
end else
Begin
A:=A*B*2;
B:=c;
end;
Writeln('Новые значения A и B: ',A:6:2,B:6:2);
end.
- 27.02.2017 06:06
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.