Регистрация
TheGreatHaterMisha
04.03.2020 10:04
Информатика
Есть ответ 👍

Тіл синтаксисі деген не?​

255
356
Посмотреть ответы 2

Ответы на вопрос:

Варежкамяу
Варежкамяу
4,6(45 оценок)

Объяснение:

Программалау тілінің синтаксисі - бұл дұрыс құрылымдалған бағдарлама (құжат) немесе оның фрагменті деп саналатын алфавит белгілерінің тіркесімдерін сипаттайтын ережелер жиынтығы. Тілдің синтаксисі оның семантикасына қарсы тұрады. ... Тілдің синтаксисін сипаттауға болады, мысалы, Backus-Naur ережелерін қолдану арқылы.

artemovfoxy1987
artemovfoxy1987
4,7(12 оценок)
Program primer; procedure random(c,x,y: integer; var r: integer);     begin           case c of                     1 : r: =random(abs(y)+abs(x)+1)+x;                   2 : r: =random(abs(y)+abs(x)+1)+y;                     3 : r: =random(y-x+1)+x;                     4 : r: =random(x-y+1)+y;                     5 : r: =random(x+y);                   6 : r: =random(abs(x+(x+y);                   7 : r: =x;                   8 : r: =random(abs(abs(x)-abs((x);                   9 : r: =random(abs(abs(x)-abs((y);           end;     end; var   a,b: array of array of integer;   i,j,x,y,c,m,p,sum: integer;     begin randomize; sum: =0; writeln('кол-во строк и столбцов массива? //x,y\\   '); read(i,j); //размерность массива writeln('диапазон чисел //от x,до y\\ ');   read(x,y); //и диапазон генерации вводятся с клавиатуры. if (x=y) then c: =7 else if(x< 0) and (y< 0) then  if (x< y) then  c: =8 else c: =9 else if (x=0) or (y=0) then  if(x< 0) or (y< 0) then  c: =6 else c: =5 else if(x< 0) or (y< 0) then  if (x< y) then  c: =1 else  c: =2 else if (x< y) then  c: =3 else  c: =4; setlength(a,i); for   m: =0 to i-1 do   setlength(a[m],j);   setlength(b,i);     for   m: =0 to i-1 do   setlength(b[m],j);         for   m: =0 to i-1 do begin    writeln();       for   p: =0 to j-1 do   begin                             random(c,x,y,a[m,p]);     {заполнить двумерный массив случайными числами.}              sum: =sum+a[m,p];   {вычисляет сумму всех элементов массива}             write (a[m,p]: 3,' ': 3);               end;               end;               c: =0;               writeln('summa=',sum);       for   m: =0 to i-1 do begin {затем организовать новый массив в  } writeln();       for   p: =0 to j-1 do   begin                   if (a[m,p] < 0) then            begin            b[m,p]: =1; {в котором заменить отрицательные элементы исходного массива на 1}            inc(c);   {подсчитать количество замен.    }     end             else              b[m,p]: =a[m,p]; {а значения остальных элементов оставить без изменения  }       write(b[m, p]: 3, ' ': 3);           end;               end;               writeln('kol=',c);             a: =nil;             b: =nil;       end. // abc pascal

Популярно: Информатика