Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.69
skz
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 19
#1

Итерационные циклы - Pascal

28.11.2009, 09:38. Просмотров 1997. Ответов 10
Метки нет (Все метки)

задали пример,вроде написал,но выводит ошибку.посмотрите где неправильно?


задание:Вид функции y=f(x): (0,2 * x) / (sqr(x)-sqrt(1+2*x))
x нач=0 x кон=1 s=0,2



Pascal
1
2
3
4
5
6
7
8
9
10
11
program number2;
uses crt;
var x,y,s:real;
    i:integer;
begin
 write('vvedi x');
 readln(x);
 s:=0,2;
 for i:=0 to 1 do y:=(0,2 * x) / (sqr(x)-sqrt(1+2*x));
 writeln('ssuma ravna',y:5:2);
 end.

http://www.cyberforum.ru/pascal/thread75613.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 09:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Итерационные циклы (Pascal):

Итерационные циклы
Помогите пожалуйста решить задачку по итерационным циклам... Задачу необходимо...

Итерационные циклы for … to … do
Здравствуйте, помогите пожалуйста с написанием кода для следующего задания на...

итерационные циклы
знающие подскажите указанием. не считает сумму сходящегося ряда. с точки зрения...

Итерационные циклы
Разработать алгоритм и программу, определяющую сумму ряда с заданной...

Итерационные циклы
значится так, задачка на итерационные циклы))) подпрограммы еще не учили,...

10
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
28.11.2009, 10:27 #2
во-первых в вещественных числах вместо запятой ставится точка: 0.2
во-вторых в задаче у тебя указано, что считать с шагом 0.2 - где у тебя это?
в-третьих ты переменной s присвоил значение 0.2, а потом ее нигде не используешь.
0
skz
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 11:21  [ТС] #3
Цитата Сообщение от TAVulator Посмотреть сообщение
во-первых в вещественных числах вместо запятой ставится точка: 0.2
да я в курсе,просто быстро печатал ошибся
во-вторых в задаче у тебя указано, что считать с шагом 0.2 - где у тебя это?
я вот насчет шага непонял,если не трудно можешь показать как
0
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
28.11.2009, 11:26 #4
так:
Pascal
1
2
3
4
5
6
7
x:=0;
While x<=1 do
 Begin
  y:=(0.2 * x) / (sqr(x)-sqrt(1+2*x));
  writeln('при x= ',x:5:2,' y= ',y:5:2);
  x:=x+0.2;
 End;
0
skz
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 12:15  [ТС] #5
неполучается,ошибку выводит..
Error 26:Type mismatch
0
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
28.11.2009, 13:41 #6
Цитата Сообщение от skz Посмотреть сообщение
неполучается,ошибку выводит..
Error 26:Type mismatch
в какой именно строке ошибка и покажи всю программу.
0
skz
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 14:08  [ТС] #7
Pascal
1
2
3
4
5
6
7
8
9
10
11
program sss;
var x,y:integer;
begin
x:=0;
While x<=1 do
 Begin
  y:=(0.2 * x) / (sqr(x)-sqrt(1+2*x));{вот в этой строке выводит ошибку}
  writeln('при x= ',x:5:2,' y= ',y:5:2);
  x:=x+0.2;
 End;
end.
...
0
pikusfikus
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
28.11.2009, 15:05 #8
не странно что выводит ошибку...y должен быть real
1
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
28.11.2009, 15:44 #9
skz, x,y - это вещественный тип, а не целочисленный.
1
Vexel
12 / 12 / 2
Регистрация: 18.10.2009
Сообщений: 159
28.11.2009, 15:49 #10
Цитата Сообщение от skz Посмотреть сообщение
...
Держи! Работает точно!
Pascal
1
2
3
4
5
6
7
8
9
10
11
program sss;
var x,y:real;
begin
x:=0;
While x<=1 do
 Begin
  y:=(0.2 * x) / (sqr(x)-sqrt(1+2*x));
  writeln('при x= ',x:5:2,' y= ',y:5:2);
  x:=x+0.2;
 End;
end.
1
skz
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 15:51  [ТС] #11
большое спасибо всем
0
28.11.2009, 15:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 15:51
Привет! Вот еще темы с решениями:

2-ве задачи (Итерационные циклы)
Первая задача: Вторая задача: Я очень прошу помогите мне написать эти...

итерационные циклы с постусловием
Даны действительные числа X, e(X&lt;&gt;0, e&gt;0). Вычислить с точностью e.

Задача по теме итерационные циклы
Доброго времени суток! Попросили сделать программу на турбо паскале, а я так...

Итерационные циклы с рекуррентными соотношениями
вычислить предел последовательности {Y} при n стремящимся к бесконечности, где...


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

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

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