Напишите программы на паскале для решения следующих выясните принадлежит ли числа a и b промежутку(-1; 1)

uses crt; var a,b: real;

begin readln(a,b); if ((a< 1) and ( a > - 1)) then writeln(' tocha a vhodit v diapazon ' ) else writeln('tochka a ne vhodit'); if ((b< 1) and ( b > - 1)) then writeln(' tocha b vhodit v diapazon ' ) else writeln('tochka b ne vhodit');

readln; end.

Unit main; interface uses  windows, messages, sysutils, variants, classes, graphics, controls, forms,  dialogs, stdctrls; type  tform1 = class(tform)    memo1: tmemo;     edit1: tedit;     button1: tbutton;     procedure button1click(sender: tobject);   private    { private declarations }  public    { public declarations }  end; var  form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); var  i, j, n: integer;   min, max, var_bl: real;   a: array of array of real; beginmemo1.clear; if trystrtoint(edit1.text,n) thenbegin  n: =strtoint(edit1.text);   if n< 1 then    begin      application.messagebox('ошибка! ','',0);       exit;     end;     setlength(a,n);       for i: = 0 to n-1 do          setlength(a[i],n);               randomize;       for i: = 0 to n-1 do    for j: =0 to n-1 do      a[i,j]: =random(100)-30;     min: = a[0,0];     max: = a[0,0];     for i: = 0 to n-1 do      begin        for j: =0 to n-1 do          begin            //memo1.text: =memo1.text+floattostrf(a[i,j],fffixed,5,3)+' '; //форматированный вывод            memo1.text: =memo1.text+floattostr(a[i,j])+' ';   //обычный вывод          end;         memo1.lines.add('');       end;   for i: = 0 to n-1 do    for j: =0 to n-1 do      begin        if(a[i,j]< min) then          min: =a[i,j];         if(a[i,j]> max) then          max: =a[i,j];       end;           memo1.lines.add('min='+floattostr(min)+', max='+floattostr(max));     for i: = 0 to n-1 do    for j: =0 to n-1 do      begin        if(a[i,j]=min) then        begin          a[i,j]: = max;           continue;         end;         if(a[i,j]=max) then          a[i,j]: =min;       end;       memo1.lines.add('');     memo1.lines.add('');       memo1.lines.add('были поменяны наименьший и наибольший элемент массива');       memo1.lines.add('');     for i: = 0 to n-1 do      begin        for j: =0 to n-1 do          begin            //memo1.text: =memo1.text+floattostrf(a[i,j],fffixed,5,3)+' '; //форматированный вывод            memo1.text: =memo1.text+floattostr(a[i,j])+' ';   //обычный вывод          end;         memo1.lines.add('');       end;     memo1.lines.add('');     memo1.lines.add('');     memo1.lines.add('');     memo1.lines.add(''); end  else    application.messagebox('ошибка! ','',0); end; end.

. Сызықты алгоритмдерді эзірлеу.........................................................7

1.2. Тармақталған алгоритмдерді эзірлеу............,....................................9

1.3. Қайталантын циклді алгоритмдерді эзірлеу....................................12

2. Алгоритмдерді Паскаль программалау тілінде эзірлеу.....................14

2.1. Сызықты алгоритмдерді программалау...........................................18

2.2. Тармақталған алгоритмдерді программалау....................................19

2.3. Есептерді шешудің алгоритмі мен блок-схемасын әзірлеу............20

 

III. Қорытынды........................................................................................22

 

IV. Қолданылған әдебиеттер.................................................................23

 

Кіріспе

Ғылым мен техниканың қарыштап дамуына байланысты программалау тілдері   үнемі жаңарып, өзгеріп отырады. Ал соның ішінде   Турбо Паскаль программалау тілі - оқып үйренушіге өте жеңіл әрі түсінікті. Паскаль тілі программалауды  үйретумен   қатар,   басқа  прогрммалау  тілдеріне   кіріспе болып    та    табылады.    Турбо    Паскаль    тілінің    сызықты    графикалық мүмкіндіктеріде  бар.  Программалау оқушылардың  білімін,  іскерлігі  мен дағдысын қалыптастырумен бірге, олардың шығармашылық қабілеті мен ақыл-ойын дамытудың маңызды құралы болып табылады. Турбо Паскль прогрммалау тілі қазіргі кезде жоғары оқу орындарымен мектептерде кеңінен оқытылуда. Мұнда есептерді шешуде алгоритмдік құрылымдарды қосымша құрал ретінде қолдану, есептің қойылымына сәйкес математикалық модель құру, алгоритм жазу, нәтижені талдау кезеңдерін қарастырады.

Курстық жұмыстың мақсаты - сызықтық тармақталған және циклді алгоритмді программалау негіздері тарауында оқушыларға алгоритм  ұғымын, қасиеттерін, турлері мен берілу тәсілдерін үйрету арқылы логикалық ойлауын, алгоритмдік білімін дамыту. Оқушыларды алгоритмдік тілдің ережелерін білуге, өз бетінше алгоритм құрып, оған программа жазуға және компьютерде теріп, орындау іскерлігін қалыптастыру. Компьютерде есептер шығару кезеңдерін, программалау тілдерінің құрылымын, командалары мен операторларының қызметін түсініп, оларды тиімді пайдалана білу мәселелерін қалыптастыру.

Курстық жұмыс кіріспеден, екі тараудан, қорытындыдан, әдебиеттер тізімінен және қосымшадан тұрады. Кіріспеде сызықты тармақталған және циклді тармақталған алгоритмді әзірлеу және программалауды оқытудағы мәселелері мен курстық жұмыстың мақсаттары қарастырылды.

 

1. Алгоритмшң уғымы мен жазылу қасиеттері және блок-схема щру

тәсілі

Алгоритм сөзі IX ғасырда өмір сүрген көрнек

Объяснение: