'

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

Понравилась презентация – покажи это...





Слайд 0


Слайд 1

Задача. Даны действительные числа 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.


Слайд 2

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


Слайд 3

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.


Слайд 4

Даны положительные действительные числа 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.


Слайд 5

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


×

HTML:





Ссылка: