Const a=5.1; x=3.29; var Y,Z:double; begin Y:=2*exp(4*x)+arctan(x/a); Z:=cos(x*sqr(x))+sqr(sin(x)); Writeln('Y=',Y,', Z=',Z) end.
Результат выполнения программы: Y=1038354.42291114, Z=-0.472433980670957
const m=6; n=8; var a:array[1..m,1..n] of double; b:array[1..m*n] of double; i,j,k,imax,imin:integer; t:double; begin // Инициализация А и формирование В Randomize; Writeln('Исходный массив A'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*Random-5; { случайное число на [-5;5] } Write(a[i,j]:8:4); t:=cos(a[i,j]); if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end end; Writeln end; // Вывод сформированного массива В Writeln('Исходный массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln; // Поиск максимума и минимума с последующим обменом их местами imax:=1; imin:=1; for i:=2 to k do if b[i]<b[imin] then imin:=i else if b[i]>b[imax] then imax:=i; t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t; // Вывод результирующего массива В Writeln('Результирующий массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln end.
По порядку: Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1; 1) Beigin; правильно Begin и без точки с запятой 2)p=0; оператор присвоения пишется не просто равно, а := правильно: "p:=0;" 3)i=1; см. 2пункт 4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin 5)i=i+2; см. пункт 2 6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 7) End. в конце цикла пишут end; 8) в конце программы ставят End.
Откорректированный код:
Program z_1 Var i,p : integer; Begin p:=0; i:=1; while (i > 15) do begin p:=p*i; i:=i+2; end; write('произведение нечётных чисел от 1 до 15 =',p);
What a language it is?You can in English?