Презентация на тему Линейные алгоритмы на языке Паскаль (9 класс)

чисел и вычисления их среднего арифметического.
Program srednee_arif;
Var a,b,c,d:integer;

Линейные алгоритмы

уравнения ax2 + bx + c = 0. Разработать

Program diskriminant;
Var a,b,c,d:integer;
Begin
Write(‘a,b,c=’);readln(a,b,c);
D:=sqr(b)-4*a*c;
Writeln(‘d=‘,d);
End.

Линейные алгоритмы

обруч. На соединение концов уходит D метров полосы. Написать

Program obru4;
Var L,D,R:real;
Begin
Write(‘L,D=‘); readln(L,D);
L:=abs(L-D);
R:=L/(2*pi);
Writeln(‘R=’,R);
End.

Линейные алгоритмы

; readln (r1);
write (‘ r2=‘) ; readln (r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
s:=

По двум заданным радиусам подсчитать площадь кольца.

c1,c2,R: real;
begin
write('x1,y1');
read(x1,y1);
write('x2,y2');
read(x2,y2);
c1:=abs (x1-x2);

Вычислить расстояние между двумя точками с координатами (X1,Y1) и (X2,Y2). Доказать правильность работы программы на трёх различных тестах.

S= (2x+y)(x-y) . Значения Х и У вводятся с

Program vi4islenie1;
Var x,y,s:integer;
Begin
readln(x,y);
s:=(2*x+y)*(x-y);
writeln(‘s=’,s);
End.

Разрешается использовать только три операции умножения. Протестировать программу для

Program vi4islenie2;
Var x,y:integer;
Begin
readln(x);
y:=x*x;
y:=y*y;
y:=y*x;
Writeln(‘y=’,y);
End.

- 2X + 3X2 - 4X3. Разрешается использовать не

Program vi4islenie3;
Var x,y:integer;
Begin
readln(x);
y:=x*x;
y:=3*y-4*y*x;
y:=1-2*x+y;
Writeln(‘y=‘,y);
End.