Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.69
skz
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 19
#1

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

28.11.2009, 09:38. Просмотров 1964. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 09:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Итерационные циклы (Pascal):

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

итерационные циклы - Pascal
знающие подскажите указанием. не считает сумму сходящегося ряда. с точки зрения математики сделано правильно. ошибка в программной...

итерационные циклы - Pascal
данная программа должна осуществлять подсчет sin...и выводить в 6 столбцов..1)х 2)n 3)y 4)y конечное 5)y-yконечное...программа работает...

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

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

итерационные циклы с постусловием - Pascal
Даны действительные числа X, e(X<>0, e>0). Вычислить с точностью e.

10
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
28.11.2009, 10:27 #2
во-первых в вещественных числах вместо запятой ставится точка: 0.2
во-вторых в задаче у тебя указано, что считать с шагом 0.2 - где у тебя это?
в-третьих ты переменной s присвоил значение 0.2, а потом ее нигде не используешь.
0
skz
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 11:21  [ТС] #3
Цитата Сообщение от TAVulator Посмотреть сообщение
во-первых в вещественных числах вместо запятой ставится точка: 0.2
да я в курсе,просто быстро печатал ошибся
во-вторых в задаче у тебя указано, что считать с шагом 0.2 - где у тебя это?
я вот насчет шага непонял,если не трудно можешь показать как
0
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
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 / 0
Регистрация: 22.10.2009
Сообщений: 19
28.11.2009, 12:15  [ТС] #5
неполучается,ошибку выводит..
Error 26:Type mismatch
0
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
28.11.2009, 13:41 #6
Цитата Сообщение от skz Посмотреть сообщение
неполучается,ошибку выводит..
Error 26:Type mismatch
в какой именно строке ошибка и покажи всю программу.
0
skz
0 / 0 / 0
Регистрация: 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
171 / 168 / 11
Регистрация: 14.11.2009
Сообщений: 507
28.11.2009, 15:05 #8
не странно что выводит ошибку...y должен быть real
1
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
28.11.2009, 15:44 #9
skz, x,y - это вещественный тип, а не целочисленный.
1
Vexel
12 / 12 / 1
Регистрация: 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 / 0
Регистрация: 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-ве задачи (Итерационные циклы) - Pascal
Первая задача: Вторая задача: Я очень прошу помогите мне написать эти задачи на Паскале

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

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

Итерационные циклы. Вычислить значения функций f1(x) и f2(x) - Pascal
Видел на форуме похожую тему, но интересует меня вот что: условие задания :Тема задания Итерационные циклы. Предусмотреть вывод на...


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

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

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