Найти синтаксическую ошибку в коде - Pascal ABC

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 program funciya; var x,y,z,f:real; begin write('Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ Гµ') ; readln(x); if x>20 then begin z:=sqrt(ln(x)); y:=(ln(x+5))/(x+5); f:=((x*x)+2*y+z)/(3*y*y); Writeln (f) else begin z:=4(sin(x)/cos(x))/(x+2,56); y:=(cos(x)-5)/(2*150*x); Writeln (f); end end end.РУгается на точки с запятой, после Writeln (f), но говорит что ставить перед else нельзя((


textual

Код:

program funciya;
var
  x,y,z,f:real;
begin
  write('введите значение x: ') ;
  readln(x);
  if x > 20 then
  begin
    z:=sqrt(ln(x));
    y:=(ln(x+5))/(x+5);
    f:=((x*x)+2*y+z)/(3*y*y);
    Writeln(f)
  end
  else
  begin
    z:=4 * (sin(x)/cos(x))/(x+2.56);
    y:=(cos(x)-5)/(2*150*x);
    Writeln(f)
  end
end.


Похожие ответы
  1. Ребят не подскажете в чем накосячил

  1. проверьте задачу!!! не могу найти ошибку

  1. задание: превратить заданную матрицу А по правилу: если след матрицы меньше 1, то все строки с четными номерами заменить нулями, а с нечетными-единицям.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 {Программа вычисления} Var z,x,y:real; {Выполняемая часть прграммы} Begin writeln('Введите x,y'); read(x); z:=(5*(exp(2*ln(x)))*(exp(1/2*ln(exp(3*ln(cos(exp(2*ln(x))))*(exp(2*ln(y)))))))+exp(-1*ln(sin(x*cos(x)/cos(x*cos(x))))))/exp(x+1)*exp(y+1)+1; {Вывод результатов} writeln('Z=',Z:5:3,'x=':5,x:2:1,'y=':5,y:5:2); end.при вводе любых х и у выдает вот что: Введите x,y 20 30 Z= NaN x=20.0 y= 0.00 вот оригинал формулы

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 program v1; const n=10; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do read(a[i]); for i:=1 to n do if (a[i]<0)and (a[i] mod 2=0) then a[i]:=a[i]/2 else if (a[i]<0) and (a[i] mod 2<>0) then a[i]:=a[i]+2 else a[i]:=-a[i]; for i:=1 to n do write(a[i]) end.ругается на строку then a[i]:=a[i]/2 исправьте пожалуйста

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Var S,ss,s1 : string; i,j,n,p,k,sum: integer; a:array[1..100] of integer; r:boolean; Begin writeln('Vvedite predlozhenie:'); Readln(S); ss:=',.;:?!'; k:=1; for i:=1 to length(s) do begin r:=true;  for j:=1 to length(ss) do if s[i]=ss[j] then begin r:=false;break end; if r=true then begin s1[k]:=s[i]; k:=k+1 end; end; writeln;writeln; writeln('Stroka bez znakov prepinaniya: '); for i:=1 to k-1 do write(s1[i]); writeln; n:=1;p:=1; for i:=1 to k-1 do  if (s1[i]=' ') then begin   a[p]:=i-n;p:=p+1; n:=i+1;end;  a[p]:=(k-1)-n+1; Writeln;writeln; writeln ('kolichestvo slov n=',p); writeln('dlina kazhdogo slova:'); for i:=1 to p do writeln (i,':   ',a[i]); writeln;writeln; writeln('Srednya dlina slova:'); for i:=1 to p do sum:=sum+a[i]; writeln(sum/p); end.Запускаю программу получаю вот такую ошибку (см.скин)

  1. Это программа транслирует только с русского на англ., а нужно сделать чтобы в обратном порядке он отменял программу и выдавал ошибку, т.е. например: "саша вышел погRлять" присутствует англ. буква и чтобы он сразу выдал ошибку не транслируя остальные буквы.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 uses crt; const m=10; label met; var c:char; f,dt:text; k,i,j,z,b:byte; a:array[1..m,1..m] of real;   procedure keyboard; begin repeat write('Rozmirnist->'); readln(k); until(k<=10) and (k>1) end;   procedure inputmatrix; begin for i:=1 to k do for j:=1 to k do begin write ('A[',i,',',j,']->'); readln(a[i,j]); end; end;   procedure data; begin assign(dt,'zad4dat.txt'); reset(dt); begin for i:=1 to k do for j:=1 to k do begin read(dt,a[i,j]); end; end; end;   procedure list; begin writeln('Masiv:'); for i:=1 to k do for j:=1 to k do if j0 then a[i,j]:=sqrt(a[i,j]) else a[i,j]:=-a[i,j]; end;   procedure saving; begin assign(f,'zad4rez.txt'); rewrite(f); writeln(f,'Masiv'); write(f,a[i,j]:3:5); readln; close(f); close(dt); end; begin clrscr; met: clrscr; writeln('Zdelay vubor:'); writeln('1-Vvod z keyboard'); writeln('2-Zcitovanie z file'); writeln('3-Random zapolnenie'); writeln('4-Masiv'); writeln('5-Vupolnenie zadaniya'); writeln('6-Rezultat'); writeln('7-Save file'); writeln('8-Exit'); c:=readkey; clrscr; case c of '1':begin writeln ('Vvod z keyboard'); keyboard; inputmatrix; readkey; goto met; end; '2':begin Writeln('----------------'); keyboard; data; readkey; goto met; end; '3':begin writeln('Random'); keyboard; init; readkey; goto met; end; '4':begin list; readkey; goto met; end; '5':begin writeln('Zadanie'); readkey; list; work; goto met; end; '6':begin writeln('Rezultat'); list; work; readkey; goto met; end; '7':begin saving; writeln('file saved'); readkey; goto met; end; '8':exit else begin clrscr; writeln('ОШИБОЧКИ'); readkey; goto met; end; end; end.в скриншотах результаты роботы на первом скриншоте это если ставить :3:5 на втором скриншоте результат если ставить :5

  1. Задание написать шифровку/дешифровку некоторой строки методом сдвига (шифр Цезаря) Спустя 2 часа размышлений и попыток вывести хоть что-нибудь, получилось это:

  1. Напишите вариант метода пузырька,который заканчивает работу,если на очередном шаге внешнего цикла не было перестановки....