Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 21.01.2021
Сообщений: 5
1

: Встречено ';', а ожидалось ')'

21.01.2021, 20:20. Просмотров 681. Ответов 4

Попогите с написанием кода, не понимаю что не так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program project3_1;
 
uses crt;
 
Begin
 
  var a,b,c,t,k:real;
  readln(a);
  readln(b);
  readln(c);
  readln(k);
  t:=(0.15*k*a*((abs(a+b+c))/(sin(a-b))+sqrt(exp((abs(a+b+c))/(sin(a-c));
  writeln(t);
  
  
  
 
End;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2021, 20:20
Ответы с готовыми решениями:

Встречено 'i', а ожидалось ';'
во всех строках типа writeln('введите координаты X Y Z 'i'й точки:'); не хочет добавлять цифру...

Встречено 'else', а ожидалось ';'
Program abc; var R, U, I : integer; begin writeln('Что вам нужно найти?(R,U,I)');...

Встречено 'until', а ожидалось ';'
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin...

Встречено else, а ожидалось ';'
var a1,b1,a,b: real; begin Writeln('Введите А'); readln(a); Writeln('Введите B'); readln(b);...

4
32 / 20 / 5
Регистрация: 09.11.2015
Сообщений: 133
21.01.2021, 20:34 2
Cheb29, ну судя по ошибке вы одну скобку недоставили.
И почему - бы вам не завернуть код в тег, так удобней было-бы читать ваш код. И неплохо было бы разместить пост в соответствующей ветке форкма или хотябы указать, что это за язык. Так с большей вероятностью вам смогли-бы помочь.
Вроде, на паскаль что-то похожее но я могу ошибаться.
В строке t: помоему мнению не хватает четырех закрывающих скобок. Но я паскалей не знаю, могу ошибаться, может так и надо)))
1
Dance
908 / 855 / 231
Регистрация: 13.04.2015
Сообщений: 2,395
21.01.2021, 21:17 3
Cheb29, формулу проверьте, у вас 12 открывающих скобок и только 8 закрывающих.
1
0 / 0 / 0
Регистрация: 21.01.2021
Сообщений: 5
21.01.2021, 21:39  [ТС] 4
Спасибо.Только начинаю пользоваться этим форумом. Буду исправляться!)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30759 / 20091 / 7849
Регистрация: 22.10.2011
Сообщений: 34,909
Записей в блоге: 6
22.01.2021, 01:06 5
В 18-ой строке нужна точка, а не точка с запятой.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2021, 01:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln...

Встречено '.', а ожидалось ';'
Ошибка при компиляции type reals = file of real; procedure p(f,g,h:reals); var k,sum : real; ...

Встречено 'else', а ожидалось ';'
type matrix= array of integer; var a,x: matrix; i,j,k,l: integer; begin for...

Встречено 'else', а ожидалось ';'
Program bloc; var x, y: real; begin writeln('Введите x'); read (x);

Встречено 'until', а ожидалось ';'
Program Vano; var a: array of integer; i: bite; begin i:=0; i:=i+1; a:= random (21)-10;...

Встречено ';', а ожидалось ')'
program labanumberone; const e=2.71828; var x,f:real; begin x:=(-9); while x<=8 do begin if...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.