паскаль !!! - Паскаль, Turbo Pascal, PascalABC.NET - Страница 2

ZVEREK · 31.08.2010, 19:58

НАПИСАЛ перед END readln; (НЕ ПОМОГЛО) ???

DRAgon™ · 31.08.2010, 20:04

поgробуйте так

Код:

CONST PI=3.14;
VAR
R,v: REAL;

BEGIN
WRITELN('введите значение радиуса R:');
READLn(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3);
readln;
END.

ZVEREK · 31.08.2010, 20:06

НЕ! НУ ДАК КАК? КОМПИЛЯТОР ВЫДАЛ ЧТО ВСЁ ВЕРНО, А КАК ВСЁ ВЫГЛЯДЕТЬ БУДИТ МНЕ-ЖЕ ИНТЕРЕСНО!

DRAgon™ · 31.08.2010, 20:06

Код:

CONST PI=3.14;
VAR
R,v: REAL;

BEGIN
WRITELN('введите значение радиуса R:');
READLn(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3);
readln;
END.

DRAgon™ · 31.08.2010, 20:06

вот см выше

ZVEREK · 31.08.2010, 20:15

ПРОБОВАЛ ВАШ КОД . НО ОПЯТЬ ВСЁ ТАКЖЕ! ЗАПУСТИВ EXE ПРОСИТ ВВЕСТИ ЦИФРЫ, ВВОЖУ, ЖМУ ENTER , И ВМЕСТО ТОГО ЧТОБ ДАТЬ ОТВЕТ ОКНО ЗАКРЫВАЕТСЯ.

DRAgon™ · 31.08.2010, 20:20

не знаю у мня все идет нормально

ZVEREK · 31.08.2010, 20:21

ХА!

СПАСИБО КОД ПРИВЕДЁННЫЙ НИЖЕ ПОМОГ !

CONST PI=3.14;
VAR
R,v: REAL;

BEGIN
WRITELN('введите значение радиуса R:');
READLn(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3);
readln;
END.

DRAgon™ · 31.08.2010, 20:22

Цитата:

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

ХА!

СПАСИБО КОД ПРИВЕДЁННЫЙ НИЖЕ ПОМОГ !

CONST PI=3.14;
VAR
R,v: REAL;

BEGIN
WRITELN('введите значение радиуса R:');
READLn(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3);
readln;
END.

не за что

ZVEREK · 31.08.2010, 20:31

ТОЛЬКО Я НЕ ПОНЯЛ. ЭТО СТРОКА НЕ ОБЯЗАТЕЛЬНА??? PROGRAM PRIMER (INPUT,OUTPUT); И КАКОЕ ДЕЙСТВИЕ ВЫПОЛНЯЮТ (INPUT,OUTPUT)?

31.08.2010, 20:04	#12
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	поgробуйте так Код: `CONST PI=3.14; VAR R,v: REAL; BEGIN WRITELN('введите значение радиуса R:'); READLn(R); V:=4PIRRR/3; WRITELN; WRITELN('РЕЗУЛЬТАТ:'); WRITELN('ОБЕМ ШАРА=',V:8:3); readln; END.` Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

31.08.2010, 20:06	#14
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	Код: `CONST PI=3.14; VAR R,v: REAL; BEGIN WRITELN('введите значение радиуса R:'); READLn(R); V:=4PIRRR/3; WRITELN; WRITELN('РЕЗУЛЬТАТ:'); WRITELN('ОБЕМ ШАРА=',V:8:3); readln; END.` Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

31.08.2010, 20:06	#15
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	вот см выше Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

31.08.2010, 20:20	#17
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	не знаю у мня все идет нормально Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница???	Vremya-Dengy	Паскаль, Turbo Pascal, PascalABC.NET	13	31.05.2011 18:23
паскаль	Александр ето я	Паскаль, Turbo Pascal, PascalABC.NET	0	20.05.2009 12:18
паскаль	Какаина	Паскаль, Turbo Pascal, PascalABC.NET	2	13.05.2009 21:08
паскаль	фамил	Паскаль, Turbo Pascal, PascalABC.NET	3	17.05.2008 23:23

31.08.2010, 19:58	#11
ZVEREK Заблокирован Регистрация: 31.08.2010 Сообщений: 22	НАПИСАЛ перед END readln; (НЕ ПОМОГЛО) ???

31.08.2010, 20:15	#16
ZVEREK Заблокирован Регистрация: 31.08.2010 Сообщений: 22	ПРОБОВАЛ ВАШ КОД . НО ОПЯТЬ ВСЁ ТАКЖЕ! ЗАПУСТИВ EXE ПРОСИТ ВВЕСТИ ЦИФРЫ, ВВОЖУ, ЖМУ ENTER , И ВМЕСТО ТОГО ЧТОБ ДАТЬ ОТВЕТ ОКНО ЗАКРЫВАЕТСЯ.

31.08.2010, 20:21	#18
ZVEREK Заблокирован Регистрация: 31.08.2010 Сообщений: 22	ХА! СПАСИБО КОД ПРИВЕДЁННЫЙ НИЖЕ ПОМОГ ! CONST PI=3.14; VAR R,v: REAL; BEGIN WRITELN('введите значение радиуса R:'); READLn(R); V:=4PIRRR/3; WRITELN; WRITELN('РЕЗУЛЬТАТ:'); WRITELN('ОБЕМ ШАРА=',V:8:3); readln; END.

31.08.2010, 20:31	#20
ZVEREK Заблокирован Регистрация: 31.08.2010 Сообщений: 22	ТОЛЬКО Я НЕ ПОНЯЛ. ЭТО СТРОКА НЕ ОБЯЗАТЕЛЬНА??? PROGRAM PRIMER (INPUT,OUTPUT); И КАКОЕ ДЕЙСТВИЕ ВЫПОЛНЯЮТ (INPUT,OUTPUT)?