Для презентаций, проведения интерактивных уроков и домашнего кинотеатра.
program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
Паук
1 Парк
2 Пара
3 Фара
4 Тара
5 ? .. (ни как не могу придумать )
Лужа
1 Ложа
2 Кожа
3 Кора
4 Гора
5 Горе
Var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.
В Pascal используй модуль GraphABC. Можешь почитать про его возможности в интернете.