Где ошибка?

@TANCORR · Регистрация: 18.01.2011

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

Люди помогите понять где ошибка в программе. постоянно выдает ошибка 85!

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
BEGIN
IF (A>B) THEN DO (MAX:=A) ELSE DO (MAX:=B);
IF (C>MAX) THEN DO (MAX:C);
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END.

@MegaAce · 18.01.2011, 21:26

Сообщение от TANCORR

THEN DO

Не надо DO

Pascal

1 2	IF (A>B) THEN (MAX:=A) ELSE (MAX:=B); IF (C>MAX) THEN (MAX:C);

@sano32 · 18.01.2011, 21:28

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
IF (A>B) THEN  MAX:=A ELSE  MAX:=B;
IF (C>MAX) THEN DO MAX:=C;
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END.

вот так надо

@TANCORR · 18.01.2011, 21:28 **[ТС]**

все равно пишет все ту же ошибку

@fastkiller · 18.01.2011, 21:28

TANCORR, после readln забыл поставить еще один end с ";"

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
BEGIN
IF (A>B) THEN DO (MAX:=A) ELSE DO (MAX:=B);
IF (C>MAX) THEN DO (MAX:C);
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END;
END.

@TANCORR · 18.01.2011, 21:30 **[ТС]**

опять пишет ошибку

@fastkiller · 18.01.2011, 21:32

Пиши вот так:

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
BEGIN
IF A>B THEN MAX:=A ELSE MAX:=B;
IF C>MAX THEN MAX:=C;
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END;
END.

@MegaAce · 18.01.2011, 21:32

Сообщение от fastkiller

MAX:C

MAX:=C

@fastkiller · 18.01.2011, 21:33

Здесь не нужны скобки и "do"

Добавлено через 55 секунд
Да, совсем забыл. Написал в Паскале, а сюда забыл добавить.

P.S. Исправил!

@MegaAce · 18.01.2011, 21:35

Программа полностью

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
IF A>B THEN MAX:=A ELSE MAX:=B;
IF C>MAX THEN MAX:=C;
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END.

@TANCORR · 18.01.2011, 21:35 **[ТС]**

и опять что то не так

@fastkiller · 18.01.2011, 21:36

Добавь end; перед end.

@TANCORR · 18.01.2011, 21:38 **[ТС]**

и опять не то

@fastkiller · 18.01.2011, 21:40

Pascal

PROGRAM MAX_3;
USES CRT;
VAR A,B,C,MAX:INTEGER;
BEGIN
WRITE ('VVEDITE TRI CHISLA');
READLN (A);
READLN (B);
READLN (C);
BEGIN
IF A>B THEN MAX:=A ELSE MAX:=B;
IF C>MAX THEN MAX:=C;
WRITELN('MAKSIMALNOE CHISLO: ',MAX);
READLN;
END;
END.

Проверь, так написано?!

@TANCORR · 18.01.2011, 21:42 **[ТС]**

MegaAce, спасибо большое!!!!!ты написал правильно!В ЧЕМ Я БЫЛ НЕ ПРАВ?

@fastkiller 1 / 1 / 0 Регистрация: 18.01.2011 Сообщений: 28
	18.01.2011, 21:36	12
	Добавь end; перед end. 0

@TANCORR 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 11
	18.01.2011, 21:38 [ТС]	13
	и опять не то 0

@TANCORR 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 11
	18.01.2011, 21:42 [ТС]	15
	MegaAce, спасибо большое!!!!!ты написал правильно!В ЧЕМ Я БЫЛ НЕ ПРАВ? 0

@TANCORR 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 11
	18.01.2011, 21:28 [ТС]	4
	все равно пишет все ту же ошибку 0

@TANCORR 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 11
	18.01.2011, 21:30 [ТС]	6
	опять пишет ошибку 0

@MegaAce 332 / 306 / 155 Регистрация: 14.02.2010 Сообщений: 662
	18.01.2011, 21:32	8
	Сообщение от fastkiller MAX:C MAX:=C 0

@fastkiller 1 / 1 / 0 Регистрация: 18.01.2011 Сообщений: 28
	18.01.2011, 21:33	9
	Здесь не нужны скобки и "do" Добавлено через 55 секунд Да, совсем забыл. Написал в Паскале, а сюда забыл добавить. P.S. Исправил! 0

@TANCORR 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 11
	18.01.2011, 21:35 [ТС]	11
	и опять что то не так 0