за У славнозвісного Козака Вуса є менш відомий друг Возак Кус. Він обожнює додавати числа в стовпчик, але, на превеликий жаль усієї його родини, робить це неправильно.
Возак Кус додає два числа a та b, кожне з n цифр, наступним чином, починаючи з останніх цифр:
Якщо над поточними цифрами стоїть крапочка — забути про неї.
Додати відповідні цифри чисел a та b та отримати число x.
Записати на відповідну позицію в результаті останню цифру числа x.
Якщо x>9 - поставити крапочку над попередніми цифрами.
Перейти до попередніх цифр і почати з кроку 1.
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.