Содержание
- 2. Program lab№1; Var y- real; Begin; Writeln ( Введите число x ) Read ln(x); y=5x:2; Writeln
- 3. 23.11.15 Оператор ветвления
- 4. позволяет выбрать те или иные части программы в зависимости от условий Х У
- 5. Полная форма условного оператора IF THEN ELSE ; Program Р2; Var x,y: integer; begin writeln (‘Введите
- 6. Неполная форма условного оператора
- 7. If then ; Program P3; Var x, y: real; Begin Readln (x,y); If abs(x) >abs(y) then
- 8. Program my1; Var a,b,c,D,x1,x2: real; Begin Writeln (‘Введите числа a, b и с’); Readln(a,b,c); D:=sqr(b)-4*a*c; x1:=(-b+sqrt(D))/(2*a);
- 9. Program my1; Var a,b,c,D,x1,x2: real; Begin Writeln (‘Введите числа a, b и с’); Readln(a,b,c); D:=sqr(b)-4*a*c; If
- 10. a:=7; b:=5; c:=2; if a>b then x:=b+c else x:=a+b; write(x);
- 11. a:=9; b:=2; c:=7; if (a>b) and (b>c) then x:=2*a else x:=a-3*b; write(x);
- 12. a:=1; b:=4; c:=8; if (a c) then x:=5*a-b else x:=4*a*b; write(x);
- 13. a:=7; b:=3; c:=6; if (a>b) and (a>c) then x:=a-b else x:=4*a-b; write(x);
- 15. Скачать презентацию