На отрезке [2; 4] с шагом 0, 2 протабулировать функцию: 0, 1х2 – xcosx/ построить график для заданной функции.

паскаль авс:

 

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.

// pascalabc.net 3.0, сборка 1073 var   i,n,p: integer;   k: array[1..6] of integer; begin   randomize;   write('количество бросков кубика: '); read(n);   for i: =1 to 6 do k[i]: =0;   for i: =1 to n do begin       p: =random(6)+1;       k[p]: =k[p]+1   end;   writeln('результат бросания кубика');   for i: =1 to 6 do writeln(i,k[i]: 6) end. тестовое решение: количество бросков кубика: 10000 результат бросания кубика 1  1704 2  1665 3  1659 4  1631 5  1663 6  1678

// pascalabc.net 3.0, сборка 1073 var   c: char; begin   write('введите римскую цифру (i,v,x,l,c,d,m): '); readln(c);   case c of   'i': writeln('1');   'v': writeln('5');   'x': writeln('10');   'l': writeln('50');   'c': writeln('100');   'd': writeln('500');   'm': writeln('1000');   else writeln('вы ошиблись')   end end. // pascalabc.net 3.0, сборка 1073 var   n: byte;   x,y: real; begin   write('введите номер варианта (1-5): '); readln(n);   case n of   1: begin       write('выражение x^2+y^2, введите x,y: '); read(x,y);       writeln('результат: ',sqr(x)+sqr(y))       end;   2: begin       write('выражение (a+b)^2, введите a,b: '); read(x,y);       writeln('результат: ',sqr(x+y))       end;   3: begin       write('выражение (c-d)^2, введите c,d: '); read(x,y);       writeln('результат: ',sqr(x-y))       end;   4: begin       write('выражение |sin(x)|, введите x: '); read(x);       writeln('результат: ',abs(sin(       end;   5: begin       write('выражение sqrt(a^2+b^2), введите a,b: '); read(x,y);       writeln('результат: ',sqrt(sqr(x)+sqr(       end;   else writeln('вы ошиблись')   end end.