Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 48
1

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

09.06.2012, 19:42. Показов 2613. Ответов 3
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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 раз.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2012, 19:42
Ответы с готовыми решениями:

исправьте ошибки а то результат не тот
тут 3 задачи плиззз оч надо...выдает неправельные результаты....как исправить незнаю

Исправьте ошибки в программе (файл не найден)
при запуске программы в Turbo Pascal пишет файл не найден( var ch : char; f,sp: text;...

Исправьте пожалуйста ошибки. Верно ли все?
Исправьте пожалуйста ошибки. Верно ли все? Протабулировать функцию на интервале 0 ≤ x...

Исправьте ошибки в программе удаления заданных элементов массива
Дали курсовую сделал и ошибка какая то, помогите исправить пожалуйста. Вот тема: Разработать в...

3
36 / 36 / 28
Регистрация: 17.01.2012
Сообщений: 64
09.06.2012, 20:22 2
1) Счётчик цикла должен быть порядкового типа, т.е он не может быть типом real.
2) Правильная структура:
Pascal
1
2
3
4
if ... then
  begin
  ...
  end else
А у вас получается наоборот (else end), поэтому и ошибка.
1
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
09.06.2012, 20:24 3
Если бы писал код лесенкой,сразу бы увидел ошибку.
0
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 48
09.06.2012, 21:04  [ТС] 4
спасибо, парни, немного подправил и заработало.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 21:04

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Исправьте ошибки в программе и запишите что будет напечатано на экране
War: a,b,c - integer, x: real; Bigin A=7, b=3,2, c:= a+b; Writln(summa= , c); C:=c/2;...

Программу написал, но выводит только одно значение
В матрице А (mxn) элементы главной диагонали расположить в порядке возрастания их абсолютных...

Написал программу, где необходимо сложить две матрицы и вывести на экран третью просуммированную, но не могу избавиться от ошибки
uses Crt; const strok=10; stolb=10; type matr=array of integer; var ...

Ошибки в написании, исправьте
uses crt; const r:set of char=; var s,st,a:string; i,j,k,ns,max,nmax:byte; b:array of...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.