Нужно нарисовать график функций чтобы когда вводился коофицен был график и чтобы он не выходил за рамки
Х 60 У 20
вот мой код
program project1;
var
x,y,c,a,l,g,h,f,pyat,kof,s:integer;
begin
writeln('kof');
readln(kof);
writeln('pyat');
readln(pyat);
writeln('');
//for y:=0 to 2 do
//writeln(' ');
for y:=0 to 50 do
begin
end;
writeln('');
s:= pyat div 100;
g:=70;
for y:=0 to 50 do
begin
x:= round((50-y-s)/(kof/10));
if x in [0..40] then begin
for c:= 0 to x do write(' ');
g:=g-10;
writeln('*');
write('|', g);
end;
end;
//if g > 10 then begin
//write(' ');
//end;
//write('10');
a:= 60 ;
if g < 10 then begin
write('ж');
write('10');
for l:=0 to 10 do
begin
write('-');
a:= a-10 ;
write(a+10);
end;
end
else begin
begin
for l:=0 to 10 do
begin
write('-');
a:= a+10 ;
write(a+10);
end;
end;
//round округление
// y = 0.2*x + 5;
//| * *
//| * *
//|*
//-------------------------------
end;
readln();
readln()
end.
//length
//trim
//uses SysUtils,classes;
//div 23/5 4
//mod 23/5 3