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

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

28.11.2009, 09:38. Просмотров 2015. Ответов 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
Ответы с готовыми решениями:

итерационные циклы
данная программа должна осуществлять подсчет sin...и выводить в 6 столбцов..1)х...

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

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

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

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

10
TAVulator
3958 / 1117 / 161
Регистрация: 27.07.2009
Сообщений: 3,477
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
3958 / 1117 / 161
Регистрация: 27.07.2009
Сообщений: 3,477
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
3958 / 1117 / 161
Регистрация: 27.07.2009
Сообщений: 3,477
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
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
28.11.2009, 15:05 8
не странно что выводит ошибку...y должен быть real
1
TAVulator
3958 / 1117 / 161
Регистрация: 27.07.2009
Сообщений: 3,477
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 / 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-ве задачи (Итерационные циклы)
Первая задача: Вторая задача: Я очень прошу помогите мне написать эти...

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


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

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

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