написал программу, исправьте ошибки

@dmitriy2012 · Регистрация: 06.06.2012

написал программу:

Pascal

var i,s:real;
    a,n:integer;
begin
write('введите значение а');
read(a);
write('введите значение n');
read(n);
if n>0 then
begin
s:=1;
for i:=1 to n do
begin
s:=cos(a)*i;
write('', s);
end
else
write('неверно введено значение n');
writeln;
end;
end.

2 ошибки:
1) Error: Ordinal expression expected. МЕСТО ОШИБКИ ВЫДЕЛЕНО КРАСНЫМ
2) Fatal: Syntax error, ";" expected but "ELSE" found. МЕСТО ОШИБКИ ВЫДЕЛЕНО ЗЕЛЁНЫМ

Что с ними делать?

Кстати сама задача:
Даны натуральное число n, действительное число а. Напечатать последовательность чисел: сos(a), cos(cos(a)), cos(cos(cos(a)))... n раз.

@sfc · 09.06.2012, 20:22

1) Счётчик цикла должен быть порядкового типа, т.е он не может быть типом real.
2) Правильная структура:

Pascal

if ... then
  begin
  ...
  end else

А у вас получается наоборот (else end), поэтому и ошибка.

@Paster Fob · 09.06.2012, 20:24

Если бы писал код лесенкой,сразу бы увидел ошибку.

@dmitriy2012 · 09.06.2012, 21:04 **[ТС]**

спасибо, парни, немного подправил и заработало.

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 567
	09.06.2012, 20:24	3
	Если бы писал код лесенкой,сразу бы увидел ошибку. 0

@dmitriy2012 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 48
	09.06.2012, 21:04 [ТС]	4
	спасибо, парни, немного подправил и заработало. 0

Опции темы