Задачи по информатике (курсовая работа) на Паскаль

[Sergo111]

Ребят вот какая проблема очень срочно нужно сделать задачки по информатике , Информатику не знаю т.к учусь на автотранспортном факультете и какого то х**на нам поставили курсовую по информатике, очень сильно нуждаюсь в помощи !!!! помогите решить задание номер два под десятым вариантом и номер три тоже под десятым вариантом.так же блок схемы к этим заданиям.Задания к курсовой.doc . Взаранее благодарен! РЕШИТЬ НА ПАСКАЛЕ!

[Sergo111]

Очень важно для меня!

[Arigato]

Во Фриланс.

[spinogryz_ua]

2)

uses crt;
 var  t,z,x,a,b,c,min,max : real;
      n:integer;
   begin
    writeln('ввести а,b,c(a,b - диапазон. с - шаг)');
    read(a,b,c);
    x:=a ;
    t:=2.2;
    min:=1000;
    max:=-1000;
    writeln('    x       f(x)   n');
    writeln;
     repeat
     if x>0.5 then begin
     z:=cos(x)+t*power(sin(x),2);
     n:=1
    end
     else
      if x<5 then
       begin
       z:=(power(ln(x),2)+power(x,2))/sqrt(x+t);
       n:=3 end
       else begin
       z:=(1/x)+sqrt(x+t);
        n:=2 end;
        writeln(x:7:4,z:10:4,n:3);
        if z>max then max:=z else
        if z<min then min:=z;
        x:=x+c;
        until x>b;
        writeln('max=',max:6:2,'    ','min=',min:6:2);
        end.