Содержание
-
Ветвления на Паскале
9 класс
-
Вопросы:
Какой алгоритм мы называем разветвляющимся? Какие виды ветвления вам известны? С помощью какого оператора на Паскале записывается ветвление? Как на Паскале можно записать сразу 2 условия?
-
Задача А4
Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=3, A=0, A=-12.
-
Решение задачи А4
var A: integer; begin writeln(‘Введи число’); readln(A); if A>0 then A:=A+1 else A:=A-1; writeln(A); end.
-
Задача В1
Даны два действительных числа Xи Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс.
-
Решение задачи В1
var X,Y: real; begin writeln(‘Введи первое число X’); readln(X); writeln(‘Введи второе число Y’); readln(Y); if X>Y then writeln(‘X:=‘,2*X*Y,’ Y:=‘,(X+Y)/2) else writeln(‘Y:=‘,2*X*Y,’ X:=‘,(X+Y)/2); end.
Нет комментариев для данной презентации
Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.