#include #include int main() { const int c=2; const float d=5.4; int b; float a,a_beg,a_end,ha,f,s,h; printf("vvedite nach znach, kon znach, shag a, b"); scanf("%f%f%f%d",& a_beg,& a_end,& ha,& b); a=a_beg; do { printf("a=%2f",a); s=a*b*c-d; if((a> 1)||(a< -1)||(a< =0+ha*0.001)& & (a> =0-ha*0. printf("f-net, s=%5.2f\n",s); else { f=s/asin(a); printf("f=%5.2f s=%5.2f\n",f,s); } a+=ha; } while(a< =a_end+0.001*ha); return 1; } составить блок-схему

Программа:

type Student=record

 FIO:string;

 year:integer;

 obj:string;

 mark:integer;

end;

var

 i:integer;

 objec:string;

 s: array [1..3] of Student;

BEGIN

 // 1-ый студент

 s[1].FIO:= 'Петров П.П.';

 s[1].mark:= 3;

 s[1].obj:= 'Математика';

 s[1].year:= 1997;

 // 2-ой студент

 s[2].FIO:= 'Иванов И.И.';

 s[2].mark:= 5;

 s[2].obj:= 'Математика';

 s[2].year:= 1999;

 // 3-ий студент

 s[3].FIO:= 'Сидоров С.С.';

 s[3].mark:= 5;

 s[3].obj:= 'Математика';

 s[3].year:= 1998;

 write('Введите предмет: ');

 readln(objec);

 writeln('Список студентов по заданным параметрам:');

 for i:=1 to 3 do

   if (s[i].obj = objec) and (s[i].mark = 5) then

     writeln(s[i].FIO, ' - ' , s[i].year)

END.

Объяснение:

 var i,s:integer;

 begin

   i:=10;s:=0;

   for i:=10 to 99 do

   if i mod 2<>0 then s:=s+i;

  writeln('Сумма нечетных 2-значных чисел(for)',s);

  readln;

  i:=10;s:=0;

  while i<=99 do

    begin

      if i mod 2<>0 then s:=s+i;

      i:=i+1;

    end;

    writeln('Сумма нечетных 2-значных чисел(while)',s);

    readln;

    i:=10;s:=0;

   repeat

    if i mod 2<>0 then s:=s+i;

    i:=i+1;

   until i>99 ;

   writeln('Сумма нечетных 2-значных чисел(repeat)',s);

   readln;

end.