4. переписать оператор условия, исправив ошибки, если они есть: if a > 0 then, a: =3 else a: =4; if 10 : = z then z: =z+1 else z: = 1; if k > 0 then writeln (‘да’) else k< 0 writeln (‘нет’); пож ваще не шарю решается годовая
If a > 0 then a:=3 else a:=4; - лишняя запятая If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но выбрать один нельзя, не зная исходной формулы. Вот варианты: If k > 0 then writeln ('да') else if k<0 then writeln ('нет'); If k > 0 then writeln ('да') else writeln ('нет')
{ Free Pascal - fpc 2.6.4 } var i,n:integer; A,B:array of integer; p:longint; begin Write('Число элементов в векторах='); Read(n); Randomize; SetLength(A,n); Writeln('Вектор A'); for i:=0 to n-1 do begin A[i]:=Random(51)-25; Write(A[i],' ') end; Writeln; SetLength(B,n); p:=0; Writeln('Вектор B'); for i:=0 to n-1 do begin B[i]:=Random(51)-25; Write(B[i],' '); p:=p+A[i]*B[i] end; Writeln; Writeln('Скалярное произведение равно ',p); end.
Тестовое решение: Число элементов в векторах=15 Вектор A -16 -6 -1 6 -6 7 22 4 16 19 3 -21 19 22 7 Вектор B 21 21 -2 -8 -3 25 -4 20 6 -11 8 10 -16 -16 19 Скалярное произведение равно -1145
Program zadanie; var a, b, c, s, p, pp:real; begin writeln('Введите сторону a'); read(a); writeln('Введите сторону b'); read(b); writeln('Введите сторону c'); read(c); p:=a+b+c; pp:=p/2; if (sqr(a)=sqr(b)+sqr(c)) then begin writeln('Прямоугольный треугольник с гипотенузой a'); s:=1/2*b*c; writeln('Площадь = ',s); end; if (sqr(b)=sqr(a)+sqr(c)) then begin writeln('Прямоугольный треугольник с гипотенузой b'); s:=1/2*a*c; writeln('Площадь = ',s); end; if (sqr(c)=sqr(b)+sqr(a)) then begin writeln('Прямоугольный треугольник с гипотенузой c'); s:=1/2*b*a; writeln('Площадь = ',s); end else begin writeln('Непрямоугольный треугольник'); s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c)); writeln('Площадь = ',s); end; writeln('Периметр = ',p); end.
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')