Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы

@Koshmarick · Регистрация: 22.10.2009

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

условие задачи 1. Задано четное число, возвести его в степени 2, 3, 4. Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы.

Pascal

var
x : real;
label 10;
begin
10:
writeln ('Введите четное число ');
read (x);
If (x mod 2 = 0) then 
begin
writeln (x,' в степени 2 =  ',x*x);
writeln (x,' в степени 3 =  ',x*x*x);
writeln (x,' в степени 4 =  ',x*x*x*x);
end;
else 
writeln ('Нужно ввести четное число '); goto 10;
end.

Но у меня в 4 строке снизу выдает ошибку - ожидался оператор. Подскажите что не так.

@MAcK · 05.11.2009, 08:55

1. Нельзя использовать для операторы числа, то есть начинать из чисел.
i10 будет корректно

@TAVulator · 05.11.2009, 09:01

Koshmarick, ошибка из-за точки с запятой перед else

@MAcK · 05.11.2009, 09:03

2. writeln (x,' в степени 4 = ',x*x*x*x);
end {не должно быть точки с запятой}
else

@Koshmarick · 05.11.2009, 09:17 **[ТС]**

Спасибо за помощь.
PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода

Добавлено через 3 минуты

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

1. Нельзя использовать для операторы числа, то есть начинать из чисел.
i10 будет корректно

Но PascalABC пропускает без ошибок и где то сегодня ночью читал что метки могут начинаться с цифр и латинских букв.
PS. Просто я этот язык изучаю всего 3-ий день. Приспичило

@Puporev · 05.11.2009, 10:18

PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода

Так самому обрамлять код тегами. Выделяете код, потом в тулбаре над окном сообщения жмете PASCAL.

@User1990 · 05.11.2009, 10:31

Koshmarick, а у тебя программа когда- нибудь заканчивается или нет ...

@Vladiator · 05.11.2009, 10:51

Delphi

var
 x:real;
begin
 x:=1;
 while x mod 2 <> 0 do begin
  readln(x);
  if x mod 2 = 0 then begin
   writeln (x,' в степени 2 =  ',x*x);
   writeln (x,' в степени 3 =  ',x*x*x);
   writeln (x,' в степени 4 =  ',x*x*x*x);
  end else writeln('Введите чётное число');
 end;
 readln;
end.

PS: раздел меток пишется перед разделом переменных и вообще использование меток устарело

@AloneHere · 05.11.2009, 14:09

C помощью Repeat-Until легко делается

Pascal

program n1;
 var x:integer;
  begin
   repeat
    write('Vvedite chetnoe chislo x = ');
    readln(x);
   until (x mod 2 = 0);
   writeln(x,' v stepeni 2 = ',x*x);
   writeln(x,' v stepeni 3 = ',x*x*x);
   writeln(x,' v stepeni 4 = ',x*x*x*x);
   readln;
  end.

Если число нечетное, то вывести соответствующее сообщение и вернуться на начало программы

Решение

Решение

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	05.11.2009, 08:55	2
	1. Нельзя использовать для операторы числа, то есть начинать из чисел. i10 будет корректно 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	05.11.2009, 09:01	3
	Koshmarick, ошибка из-за точки с запятой перед else 1

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	05.11.2009, 09:03	4
	2. writeln (x,' в степени 4 = ',xxx*x); end {не должно быть точки с запятой} else 1

@Koshmarick 7 / 1 / 0 Регистрация: 22.10.2009 Сообщений: 28
	05.11.2009, 09:17 [ТС]	5
	Спасибо за помощь. PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода Добавлено через 3 минуты Сообщение от brugon 1. Нельзя использовать для операторы числа, то есть начинать из чисел. i10 будет корректно Но PascalABC пропускает без ошибок и где то сегодня ночью читал что метки могут начинаться с цифр и латинских букв. PS. Просто я этот язык изучаю всего 3-ий день. Приспичило 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.11.2009, 10:18	6
	PS. Как "избавиться " от такой надписи - Последний раз редактировалось inter; Сегодня в 10:35. Причина: используйте форматирование кода Так самому обрамлять код тегами. Выделяете код, потом в тулбаре над окном сообщения жмете PASCAL. 1

@User1990 26 / 26 / 11 Регистрация: 03.11.2009 Сообщений: 158
	05.11.2009, 10:31	7
	Koshmarick, а у тебя программа когда- нибудь заканчивается или нет ... 0

	05.11.2009, 14:09