Задача. Даны действительные числа A, B, C, D. Найти max(a,b,c), max(a,b,d), max(b,c,d). Написать программу решения задачи PROGRAM ex1; PROCEDURЕ Max (x, - презентация

1

2 Задача. Даны действительные числа A, B, C, D. Найти max(a,b,c), max(a,b,d), max(b,c,d). Написать программу решения задачи PROGRAM ex1; PROCEDURЕ Max (x, y,z: INTEGER); Var max:integer; BEGIN IF x>y THEN max:x ELSE max:=y IF z>max THEN Max:=z WRITELN (максимальное число,max); END; VAR a,b,c,d: INTEGER; BEGIN WRITELN (Введите числа a, b,c,d ); READLN (a,b,c,d); Max(a,b,c); Max(a,b,d,);Max(b,c,d); END.

3 Задания: 1.Даны 4 действительных числа a, b, c, d (0). Решить квадратные yравнения: ax 2 +bx+c=0; bx 2 +cx+d=0; ax 2 +dx+c=0; dx 2 +bx+c=0.

4 PROGRAM task4 ; Var a, b, с : REAL; a1, b1, c1 : REAL ; PROCEDURE sq ( a, b, c: real); VAR x1, x2, d : REAL; BEGIN d :=sqr(b)-4*a*c ; lF d < 0 THEN WR1TELN( 'Действительных корней нет' ) ELSE BEGIN x1 := (-b+sqrt(d))/2/a ; x2 := (-b-sqrt(d))/(2*a) ; WRITELN( 'x1 = ', x1, ' x2 = ', x2 ) ; END; END; BEGIN WRITELN( 'Введите значения a, b, с,d для уравнений); READLN( a, b,с,d ) ; sq (a, b, c ) ; sq (a, с, d); sq (a, d, c); sq (d, b, c); ; END.

5 Даны положительные действительные числа A, B, C, D. Определить, могут ли числа a,b,c; a,b,d; b,c,d быть сторонами треугольника. Написать программу решения задачи. PROGRAM ex1; PROCEDURЕ stor (x, y,z: INTEGER); Var max:integer; BEGIN IF (x>y+z)and (y>x+z) and (z>x+y) THEN WRITELN (могут быть сторонами треугольника) ELSE WRITELN (не могут быть сторонами треугольника); END; VAR a,b,c,d: INTEGER; BEGIN WRITELN (Введите числа a, b,c,d ); READLN (a,b,c,d); stor(a,b,c); stor(a,b,d,); stor(b,c,d); END.

6 Задания: 2.Даны 4 действительных числа a, b, c, d. Решить линейные yравнения: ax+c=0; bx+c=0; ax+d=0; dx+b=0.