|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.01.2010, 15:20 | #1 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
исправить ошибки
Вычислить указанное число М значений функции из диапазона значений аргумента от А до В. Ввод данных производится с клавиатуры.
А=Pi/2 B=Pi M=20 Я пробывал сам но в итоге ниче не получается program p4; uses crt; var a,b,x,M:real; F:BYTE; begin writeln('BBECTI KOLLI4ECTBO 3NA4ENII FUNKCII'); READLN(M); WRITELN('BBEDITE NA4ALNOE 3NA4ENIE FUNKCII'); READLN(A); WRITELN('BBEDITE KONE4NOE 3NA4ENIE FUNKCII'); READLN(B); X:=A; CLRSCR; FOR F:=1 TO M DO BEGIN Y:=SIN(X/2)/COS(X/2)+COSX; WRITELN('X=',X:1:2,'Y:=',Y:4:2) X:=X-(A-B)/M; END; END. |
30.01.2010, 15:26 | #2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Код:
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
30.01.2010, 15:35 | #3 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
исправил но ошибку пишет где Do (39 ошибка)
|
30.01.2010, 15:48 | #4 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Сообщение об ошибке напишите, я не помню все номера ошибок во всех компиляторах паскаля.
Только сначала замените тип f с byte на integer, возможно из-за этого
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
30.01.2010, 16:11 | #5 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
тип данных изменил а ошибка такаяже
ordinal expression expected
|
30.01.2010, 16:15 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
for в Pascal может быть только по ЦЕЛЫМ (перечисляемым) числам... а у Вас M - вещественное..
сделайте M : integer |
30.01.2010, 16:34 | #7 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
Спасибо за помощь
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибки | witek | HTML и CSS | 0 | 12.12.2009 17:39 |
исправить ошибки | lubafffka | Общие вопросы C/C++ | 2 | 06.12.2009 01:11 |
C++... Необходимо исправить 4 ошибки... | hen | Помощь студентам | 4 | 17.04.2009 04:28 |
помогите исправить ошибки | kermit | Помощь студентам | 1 | 21.06.2008 10:44 |
Помогите исправить ошибки ...С++ | Настенька | Помощь студентам | 1 | 25.03.2007 23:30 |