Работа по теме ветвления.
1. Запишите последовательно по порядку операции отношения:
больше, меньше, равно, меньше или равно, неравенство, больше или равно.
2. Выберите № ответа, в котором переменной величине присваивается значение выражения:
а) IF A>0 THEN X=A*A
б) B:=SQRT(X)-0.5
в) READ(A)
3. Дан фрагмент программы:
READ (B);
IF B>0 THEN Y:=SQRT ( B ) ELSE Y:= B*B;
Чему будет равен Y при В=9? (Записать ответ)
4. Запишите на языке Паскаль фразу (печатать это значит вывести значение)
«Если К>0, то печатай К, иначе печатай К2».
5. Записать, используя оператор условного перехода:
«Если А<0, то присвоить В значение А2/2, иначе В присвоить значение А - 3».
6. Дан фрагмента программы:
M:=5;
If m>5 then y:=5+m else y:=100-m;
Writeln (y);
Что появится при выводе переменной y?
7. Дан фрагмента программы:
Определите значение переменной С после выполнения фрагмента программы:
А:=100;
В:=30;
А:=А-В*3;
Если А>В то С:=А-В иначе С:=В-А
8. Составить блок-схему и программу для вычисления n.
9.
до широкого распространения цифровых ЭВМ существовали еще и аналоговые вычислительные машины, в которой каждому мгновенному значению переменной величины, участвующей в исходных соотношениях, ставится в соответствие мгновенное значение другой (машинной) величины, часто отличающейся от исходной физической природой и масштабным коэффициентом, понятия бита в тот момент не использовалось.
Program tt;
var A,B,C,D: Real;
begin
Writeln ('Введите массу воды в граммах.'); Readln(A);
Writeln ('Введите массу соли в граммах.'); Readln(B);
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.
2.
Program tt;
var A,B,PL,Per: Real;
begin
Writeln ('Введите длинну первого катета.'); Readln(A);
Writeln ('Введите длинну второго катета.'); Readln(B);
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.