Язык программирования Паскаль. Примеры алгоритмов сложной структуры.

Полякова Лариса Александровна

преподаватель информатики

Государственного профессионального образовательного учреждения «Харцызский технологический техникум» Государственного образовательного учреждения высшего профессионального образования «Донецкий национальный технический университет»

Примеры решения задач сложной структуры

Задание 1. Найти значения переменной х.

x=                          y=

a є [-1;1]            Δa = 0,5       b = 7,5

-

Program r;

var

       a, an,ak,ha,b,x,y:Real;

begin

write(‘b=’);readln(b);

write(‘an=’);readln(an);

write(‘ak=’);readln(ak);

write(‘ha=’);readln(ha);

a:=an;

writeln(‘a   x   y’);

while a<=ak+ha/8 do begin

   x:=2*a*b;

   if x<0 then y:=sin(x) else y:=cos(x);

   writeln(a:5:2,x:7:3,y:7:3);

   a:=a+ha;

   end;

end.

Задание 2. Найти значения переменной х.

x = a – b                     y =

a є [1;2]            Δa = 0,2        b = 1,4

Program r2;

var

       a, an,ak,ha,b,x,y:Real;

begin

write(‘b=’);readln(b);

write(‘an=’);readln(an);

write(‘ak=’);readln(ak);

write(‘ha=’);readln(ha);

a:=an;

writeln(‘a   x   y’);

while a<=ak+ha/8 do begin

   x:=a-b;

   if x=0 then writeln(‘y не сущ’)

       else begin y:=cos(x);

             writeln(a:5:2,x:7:3,y:7:3);  end;

   a:=a+ha;

   end;

end.

Задание 3. Найти значения переменной х.

x = a/b                        y =

a є [-1;1]            Δa = 0,5       b = 7

Program r3;

Label m1;

var

       a, an,ak,ha,b,x,y:Real;

begin

write(‘b=’);readln(b);

write(‘an=’);readln(an);

write(‘ak=’);readln(ak);

write(‘ha=’);readln(ha);

a:=an;

writeln(‘a   x   y’);

while a<=ak+ha/8 do begin

   x:=a/b;

   if x=0 then begin writeln(‘y не сущ’); goto m1; end

       else if x<0 then  y:=cos(x) then y:=ln(x);

             writeln(a:5:2,x:7:3,y:7:3); 

   m1: a:=a+ha;

   end;

end.

Задание 4. Найти значения переменной х.

x = ab                         y =

a є [-1;2]            Δa = 0,5       b = 1

Program r4;

var

       a, an,ak,ha,b,x,y:Real;

begin

write(‘b=’);readln(b);

write(‘an=’);readln(an);

write(‘ak=’);readln(ak);

write(‘ha=’);readln(ha);

a:=an;

writeln(‘a   x   y’);

while a<=ak+ha/8 do begin

   x:=a*b;

   if x<1 then  y:=sin(x)  else

       if x=1 then  y:=3.4 else y:=sqrt(x);

             writeln(a:5:2,x:7:3,y:7:3); 

  a:=a+ha;

   end;

end.

Задание 5. Найти значения переменной х.

x = a+ b                     y =

a є [-2;0]            Δ a = 0,5      b = 1,5

Program r5;

var

       a, an,ak,ha,b,x,y:Real;

begin

write(‘b=’);readln(b);

write(‘an=’);readln(an);

write(‘ak=’);readln(ak);

write(‘ha=’);readln(ha);

a:=an;

writeln(‘a   x   y’);

while a<=ak+ha/8 do begin

   x:=a+b;

   if x<1 then writeln(‘y сущ’)

       else begin y:=sqrt(x);

             writeln(a:5:2,x:7:3,y:7:3);  end;

   a:=a+ha;

   end;

end.

Литература

1. Малярчук С.Н., Информатика в определениях, таблицах и схемах. 10-11 классы. -7-е изд.- Харьков: Веста: Издательство «Ранок», 2008.-112 с.- (Серия «Спасатель»).
2. Епанешников А.М., Епанешников В.А., Программирование в среде Turbo Pascal 7.0.- М.: «ДИАЛОГ-МИФИ», 1993.-288 с.
3. Новиков В.С., Парфилова Н.И., Пылькин А.Н. – Паскаль: Учеб.пособие для сред. спец. учеб. заведений - М.: Высш. Шк.., 1990-223 с.:ил.- (Алгоритмические языки в техникуме)