Ошибка ожидался оператор {Необходимо исправить}

@Portoble · Регистрация: 01.11.2014

Студворк — интернет-сервис помощи студентам

Всем привет.
пишу довольно большую работу на паскале (хихихихи). В данном отрывке ошибка "Ожидался оператор", в строке с функцией.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
readln(formuly);
function FF(x,y:real):real;
var
a,l:real;
Begin
l:=t*100;
a:=p/l
k:=a*2
FF:=k
end;
if formuly=1 then
write('Ââåäèòå äàííîå (', k, ') ÷èñëî åùå ðàç: ');
readln(TTT);

@ZX Spectrum-128 · 01.11.2014, 22:36

Pascal
1
a:=p/l

Забыт знак ;
И далее он тоже проигнорирован.

@Portoble · 01.11.2014, 22:43 **[ТС]**

Все равно:

Pascal
1
2
3
4
5
6
7
8
9
function FF(x,y:real):real;
var
a,l:real;
Begin
l:=t*100;
a:=p/l;
k:=a*2;
FF:=k;
end;

@ZX Spectrum-128 · 01.11.2014, 22:46

Portoble, не видя полный код, имею несколько вопросов:
на входе функции ff -> x и y, кои никаким образом в счете функции не участвуют. Зачем они вам? Ежели в FF работают вообще другие переменные (глобальные?).

@Portoble · 01.11.2014, 22:50 **[ТС]**

Сообщение от ZX Spectrum-128

Portoble, не видя полный код, имею несколько вопросов:
на входе функции ff -> x и y, кои никаким образом в счете функции не участвуют. Зачем они вам? Ежели в FF работают вообще другие переменные (глобальные?).

Pascal
1
2
3
4
5
6
7
8
9
function FF(a,l:real):real;
var
a,l:real;
Begin
l:=t*100;
a:=p/l;
k:=a*2;
FF:=k;
end;

Как исправить тогда? (значения T и P присвоины не в функции).

@ZX Spectrum-128 · 01.11.2014, 22:56

Portoble, это все гадание на кофейной гуще. Как можно по отрывку кода понять, где в программе косяк?

@Portoble · 01.11.2014, 22:59 **[ТС]**

ZX Spectrum-128,

Pascal
1
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
program ideal;
uses crt;
var
 k, n, m, t, p, x, y, z, s, l, q, a, b, c, e, i, TTT:real;
 d:char;
 soglasie, sogl, formuly, zzz:integer;
Begin
Write('Âàøå èìÿ è ôàìèëèÿ: ');
readln(d);
// Ïðèâåòñòâèå
Writeln('Çäðàâñòâóéòå! Óâàæàåìàÿ ', d);
writeln('Ñ÷èòàþ íóæíûì çàîñòðèòü âàøå âíèìàíèå íà òîì, ÷òî âñå äàííûå, êîòîðûå âû ïîëó÷èòå ïðè èñïîëüçîâàíèè ýòîé ïðîãðàììû ÿâëÿþòñÿ ïðèìåðíûìè.');
Writeln('Åñëè âû õîòèòå ïðîéòè òåñò ââåäèòå 1, åñëè íåò, òî 0.');
write('Âàø îòâåò: ');
readln(soglasie);
if soglasie=0 then
writeln('Òîãäà ÿ âûíóæäåí ïîïðîùàòüñÿ!');
if soglasie=1 then
Write('Âàø âîçðàñò: ');
readln(e);
write('Îáõâàò áþñòà: ');
readln(k);
write('Îáõâàò òàëèè: ');
readln(n);
write('Îáõâàò áåäåð: ');
readln(m);
write('Ðîñò: ');
readln(t);
write('Âåñ: ');
readln(p);
write('Ðàçìåð ãðóäè: ');
readln(s);
write('Äëèííà íîã: ');
readln(l);
write('Ðàçìåð íîãè: ');
readln(q);
x:=k*m*t;
y:=n*n*p;
z:=x/y;
a:=s*k*p;
b:=l*q;
c:=a/b;
i:=z/c*100;
writeln('Îöåíêà êðàñîòû: ', round(i));
write('Õîòèòå ëè óçíàòü, êàêîé âåñ è ðîñò íîðìàëåí â âàøåì âîçðàñòå? äà = 1, íåò = 0');
readln(sogl);
if sogl=0 then  writeln(' ');
if sogl=1 then writeln('Êàêèì ñïîñîáîì ïîäñ÷åòà âû õîòèòå âîñïîëüçîâàòüñÿ?');
               writeln('"Èíäåêñ ìàññû òåëà" = 1');
               writeln('"Ïðè ïîìîùè òàáëèö" = 2');
               writeln('"Ðîñò+âîçðàñò" = 3');
               writeln('Âñå âàðèàíòû ïîñëåäîâàòåëüíî = 0');
               writeln('Âàø îòâåò: ');
               readln(formuly);
function FF(a,l:real):real;
var
a,l:real;
Begin
l:=t*100;
a:=p/l;
k:=a*2;
FF:=k;
end;
if formuly=1 then
write('Ââåäèòå äàííîå (', k, ') ÷èñëî åùå ðàç: ');
readln(TTT);
if TTT<=18 then writeln('Âàø âåñ ÿâëÿåòñÿ íåäîñòàòî÷íûì.');
if TTT>18 and k<=25 then writeln('Âàø âåñ âïîëíå íîðìàëüíûé. Ýòî çíà÷èò, ÷òî íåò ñìûñëà åãî ñáðàñûâàòü, íî è íàáèðàòü íå íóæíî. Äåðæèòå ïîêàçàòåëü íà îäíîì è òîì æå «óðîâíå».');
if TTT>25 and k<35 then writeln('Ïîðà óæå ïîðàáîòàòü ñ ôèãóðêîé, òàê êàê âîçðàñòàåò ðèñê ïîÿâëåíèÿ îæèðåíèÿ. Õóäåéòå, íî äåëàéòå ýòî áåç îñîáîãî ôàíàòèçìà!');
if TTT>=35 then writeln('Î÷åíü æàëü, íî ó âàñ…. Îæèðåíèå! Íåîáõîäèìà ïîìîùü è êîíñóëüòàöèÿ ñïåöèàëèñòîâ.');
//íîðìàëüíûé ðîñò ïðè äàííîì âîçðàñòå
writeln('Íîðìàëüíûé ðîñò â âàøåì âîçðàñòå (', e, ') ñîñòàâëÿåò: ');
if e=0 then writeln('äî 74 ñì');
if e=1 then writeln('äî 86.4 ñì');
if e=2 then writeln('äî 98 ñì');
if e=3 then writeln('äî 101 ñì');
if e=4 then writeln('äî 104 ñì');
if e=5 then writeln('äî 110.5 ñì');
if e=6 then writeln('äî 118 ñì');
if e=7 then writeln('äî 125 ñì');
if e=8 then writeln('äî 131.6 ñì');
if e=9 then writeln('äî 136.5 ñì');
if e=10 then writeln('äî 142.5 ñì');
if e=11 then writeln('äî 148.6 ñì');
if e=12 then writeln('äî 155 ñì');
if e=13 then writeln('äî 160.5 ñì');
if e=14 then writeln('äî 164 ñì');
if e=15 then writeln('äî 167 ñì');
if e=16 then writeln('äî 169 ñì');
if e=17 then writeln('äî 170 ñì');
// Íîðìàëüíûé âåñ ïðè äàííîì âîçðàñòå
writeln('Íîðìàëüíûé âåñ, ïðè âàøåì âîçðàñòå (', e, ') ');
if e=0 then writeln('äî 7.9 êã');
if e=1 then writeln('äî 10.2 êã');
if e=2 then writeln('äî 12.2 êã');
if e=3 then writeln('äî 14 êã');
if e=4 then writeln('äî 18.2 êã');
if e=5 then writeln('äî 20.2 êã');
if e=6 then writeln('äî 22.4 êã');
if e=7 then writeln('äî 25 êã');
if e=8 then writeln('äî 28.2 êã');
if e=9 then writeln('äî 31.9 êã');
if e=10 then writeln('äî 34.9 êã');
if e=11 then writeln('äî 38.9 êã');
if e=12 then writeln('äî 45.4 êã');
if e=13 then writeln('äî 52.5 êã');
if e=14 then writeln('äî 58 êã');
if e=15 then writeln('äî 60.4 êã');
if e=16 then writeln('äî 61.3 êã');
if e=17 then writeln('äî 61.9 êã');
// Ïðîùàíèå
writeln('Íà ýòîì âûíóæäåí ïðîñòèòüñÿ, â ñëåäóþùèõ âåðñèÿõ ïðîãðàììû âû ñìîæåòå ïîëó÷àòü ñîâåòû ïî êîððåêòèðîâêå ôèãóðû.');
writeln('');
writeln(' ');
writeln('____________________________________________________________________');
writeln('Âñå äàííûå íå ÿâëÿþòñÿ èñêëþ÷èòåëüíî òî÷íûìè');
end.

@ZX Spectrum-128 · 02.11.2014, 09:36

Не по теме:

Размер груди

Мне уже нравится эта задача. ;)

Я могу посмотреть ваш код завтра. Ок?

Добавлено через 10 часов 28 минут

Pascal
1
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
program ideal;
uses crt;
var
 k, n, m, t, p, x, y, z, s, l, q, a, b, c, e, i, TTT:real;
 d:char;
 soglasie, sogl, formuly, zzz:integer;
 
function FF(a,l:real):real;
Begin
l:=t*100;
a:=p/l;
k:=a*2;
FF:=k;
end;
 
Begin
Write('Ваше имя и фамилия: ');
readln(d);
// Приветствие
Writeln('Здравствуйте! Уважаемая ', d);
writeln('Считаю нужным заострить ваше внимание на том, что все данные, которые вы получите при использовании этой программы являются примерными.');
Writeln('Если вы хотите пройти тест введите 1, если нет, то 0.');
write('Ваш ответ: ');
readln(soglasie);
if soglasie=0 then
writeln('Тогда я вынужден попрощаться!');
if soglasie=1 then
Write('Ваш возраст: ');
readln(e);
write('Обхват бюста: ');
readln(k);
write('Обхват талии: ');
readln(n);
write('Обхват бедер: ');
readln(m);
write('Рост: ');
readln(t);
write('Вес: ');
readln(p);
write('Размер груди: ');
readln(s);
write('Длинна ног: ');
readln(l);
write('Размер ноги: ');
readln(q);
x:=k*m*t;
y:=n*n*p;
z:=x/y;
a:=s*k*p;
b:=l*q;
c:=a/b;
i:=z/c*100;
writeln('Оценка красоты: ', round(i));
write('Хотите ли узнать, какой вес и рост нормален в вашем возрасте? да = 1, нет = 0');
readln(sogl);
if sogl=0 then  writeln(' ');
if sogl=1 then writeln('Каким способом подсчета вы хотите воспользоваться?');
               writeln('"Индекс массы тела" = 1');
               writeln('"При помощи таблиц" = 2');
               writeln('"Рост+возраст" = 3');
               writeln('Все варианты последовательно = 0');
               writeln('Ваш ответ: ');
               readln(formuly);
if formuly=1 then
write('Введите данное (', k, ') число еще раз: ');
readln(TTT);
if TTT<=18 then writeln('Ваш вес является недостаточным.');
if (TTT>18) and (k<=25) then writeln('Ваш вес вполне нормальный. Это значит, что нет смысла его сбрасывать, но и набирать не нужно. Держите показатель на одном и том же <уровне>.');
if (TTT>25) and (k<35) then writeln('Пора уже поработать с фигуркой, так как возрастает риск появления ожирения. Худейте, но делайте это без особого фанатизма!');
if TTT>=35 then writeln('Очень жаль, но у вас:. Ожирение! Необходима помощь и консультация специалистов.');
//нормальный рост при данном возрасте
writeln('Нормальный рост в вашем возрасте (', e, ') составляет: ');
if e=0 then writeln('до 74 см');
if e=1 then writeln('до 86.4 см');
if e=2 then writeln('до 98 см');
if e=3 then writeln('до 101 см');
if e=4 then writeln('до 104 см');
if e=5 then writeln('до 110.5 см');
if e=6 then writeln('до 118 см');
if e=7 then writeln('до 125 см');
if e=8 then writeln('до 131.6 см');
if e=9 then writeln('до 136.5 см');
if e=10 then writeln('до 142.5 см');
if e=11 then writeln('до 148.6 см');
if e=12 then writeln('до 155 см');
if e=13 then writeln('до 160.5 см');
if e=14 then writeln('до 164 см');
if e=15 then writeln('до 167 см');
if e=16 then writeln('до 169 см');
if e=17 then writeln('до 170 см');
// Нормальный вес при данном возрасте
writeln('Нормальный вес, при вашем возрасте (', e, ') ');
if e=0 then writeln('до 7.9 кг');
if e=1 then writeln('до 10.2 кг');
if e=2 then writeln('до 12.2 кг');
if e=3 then writeln('до 14 кг');
if e=4 then writeln('до 18.2 кг');
if e=5 then writeln('до 20.2 кг');
if e=6 then writeln('до 22.4 кг');
if e=7 then writeln('до 25 кг');
if e=8 then writeln('до 28.2 кг');
if e=9 then writeln('до 31.9 кг');
if e=10 then writeln('до 34.9 кг');
if e=11 then writeln('до 38.9 кг');
if e=12 then writeln('до 45.4 кг');
if e=13 then writeln('до 52.5 кг');
if e=14 then writeln('до 58 кг');
if e=15 then writeln('до 60.4 кг');
if e=16 then writeln('до 61.3 кг');
if e=17 then writeln('до 61.9 кг');
// Прощание
writeln('На этом вынужден проститься, в следующих версиях программы вы сможете получать советы по корректировке фигуры.');
writeln('');
writeln(' ');
writeln('____________________________________________________________________');
writeln('Все данные не являются исключительно точными');
end.

@Portoble · 04.11.2014, 12:18 **[ТС]**

ZX Spectrum-128, не вижу, чтобы было исправлено(

@ZX Spectrum-128 · 04.11.2014, 14:18

Portoble, да? Теперь посмотрите где в вашем коде расположена функция ff и как на сие чудо реагирует компилятор

И куда я переместил эту функцию в исправленном коде.

@Portoble · 04.11.2014, 16:31 **[ТС]**

ZX Spectrum-128, да.. потом покопался и увидел то, что перед самым носом было.. невнимательный я..))

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

Ошибка ожидался оператор {Необходимо исправить}

Решение

Решение

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	01.11.2014, 22:46
	Portoble, не видя полный код, имею несколько вопросов: на входе функции ff -> x и y, кои никаким образом в счете функции не участвуют. Зачем они вам? Ежели в FF работают вообще другие переменные (глобальные?). 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	01.11.2014, 22:56
	Portoble, это все гадание на кофейной гуще. Как можно по отрывку кода понять, где в программе косяк? 0

@Portoble 32 / 32 / 45 Регистрация: 01.11.2014 Сообщений: 155 Записей в блоге: 4
	04.11.2014, 12:18 [ТС]
	ZX Spectrum-128, не вижу, чтобы было исправлено( 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	04.11.2014, 14:18
	Portoble, да? Теперь посмотрите где в вашем коде расположена функция ff и как на сие чудо реагирует компилятор И куда я переместил эту функцию в исправленном коде. 0

@Portoble 32 / 32 / 45 Регистрация: 01.11.2014 Сообщений: 155 Записей в блоге: 4
	04.11.2014, 16:31 [ТС]
	ZX Spectrum-128, да.. потом покопался и увидел то, что перед самым носом было.. невнимательный я..)) 0