Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 06.02.2015
Сообщений: 5
1

Написать программу для вычисления выражения S=π*R*R при изменении R в интервале от 1до 10 с шагом 1

06.02.2015, 11:43. Показов 1991. Ответов 11
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Delphi
1
2
3
4
5
6
7
8
9
10

var
R,S:integer;
const Pi=3.141593
begin
S:=0;
for R:=1 to 10 do;
S:=S+ Pi*R*R;
label1.Caption:=IntToStr(S);
end;
end.
Пишет ошибку в самом выражении S:=S+ Pi*R*R.
Еще вопрос по поводу число Pi, его вводят только через константу или есть какая нибудь функция?
0
Лучшие ответы (1)
Сообщение: #7195430
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.02.2015, 11:43
Ответы с готовыми решениями:

Составить программу вычисления значений функции Y при изменении X от A до D с шагом H
Составить программу вычисления значений функции Y при изменении X от A до D с шагом H....

написать программу для вычисления значений функции F(x) для х, изменяющегося в интервале от A до B с шагом DEL.
С использованием оператора цикла с предусловием написать программу для вычисления значений функции...

Составить программу для вычисления значений функции при изменении аргумента в диапазоне [A;B] с шагом h
Помогите пожалуйста с заданием .

Составьте программу вычисления значений заданной функции при изменении аргумента на заданном отрезке с заданным шагом

11
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
06.02.2015, 11:49 2
Цитата Сообщение от ЛаА Посмотреть сообщение
Пишет ошибку в самом выражении S:=S+ Pi*R*R.
какую ошибку?
Цитата Сообщение от ЛаА Посмотреть сообщение
Еще вопрос по поводу число Pi, его вводят только через константу или есть какая нибудь функция?
в модуле Windows она есть
0
Модератор
3492 / 2614 / 742
Регистрация: 19.09.2012
Сообщений: 7,977
06.02.2015, 11:51 3
Тип переменной S задан неверно.
0
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
06.02.2015, 11:56 4
Цитата Сообщение от FIL Посмотреть сообщение
Тип переменной S задан неверно.
Delphi
1

S : double;
вот так сделай

Добавлено через 3 минуты
кстати, я перепутал, не в Windows, а в System
0
0 / 0 / 0
Регистрация: 06.02.2015
Сообщений: 5
06.02.2015, 18:09  [ТС] 5
Теперь показывает что ошибка в константе. Пыталась ввести модуль System. При выводе показывает что в нем ошибка.
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.02.2015, 18:24 6
Лучший ответ Сообщение было отмечено ЛаА как решение

Решение

Цитата Сообщение от ЛаА Посмотреть сообщение
Пыталась ввести модуль System
Это не нужно, автоматически подключается SysUtils;
Delphi
1
2
3
4
5
6
7
8
9
10
11

var
R:integer;
S:double;
//const Pi=3.141593 это не нужно Делфи и сам знает чему=pi
begin
S:=0;
for R:=1 to 10 do;
S:=S+ Pi*R*R;
label1.Caption:=FloattToStrF(S,ffFixed,6:2);
end;
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32974 / 21287 / 8173
Регистрация: 22.10.2011
Сообщений: 36,561
Записей в блоге: 8
06.02.2015, 18:24 7
Точка с запятой в 7-ой строке порадовала
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.02.2015, 18:43 8
А я скопировал и не поправил...
0
0 / 0 / 0
Регистрация: 06.02.2015
Сообщений: 5
06.02.2015, 18:45  [ТС] 9
После удаления константы все ровно работает. Спасибо!
Не подскажете, не сталкивались ли с подобными задачами, нужен один ответ, или 10 ответов на каждое значение R?
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.02.2015, 18:52 10
Цитата Сообщение от ЛаА Посмотреть сообщение
нужен один ответ, или 10 ответов на каждое значение R?
А это зависит от точного условия задачи, которое Вы не написали.
0
0 / 0 / 0
Регистрация: 06.02.2015
Сообщений: 5
06.02.2015, 18:55  [ТС] 11
Написать программу для вычисления выражения S=π*R*R при изменении R в интервале от 1до 10 с шагом 1
Точного условия нет. Но при решении он будет выдавать ответ при значении радиуса 10
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.02.2015, 18:58 12
Delphi
1
2
3
4
5
6
7
8
9
10

var
R:integer;
begin
for R:=1 to 10 do
 begin
  S:=S+ Pi*R*R;
  Memo1.Lines.Add('x='+intToStr(R)+'  S='+floattostrF(ffFixed(S),7:3);
 end;
end;
end.
0
06.02.2015, 18:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 06.02.2015, 18:58
Помогаю со студенческими работами здесь

Написать программу для табулирования функции y(x) на интервале [Хнач, Хкон] с шагом dx
　　　Cоставить программу для табулирования функции y(x) на интервале с шагом dx. ...

Протабулировать функцию при изменении аргумента x на интервале с заданным шагом
Табулировать функцию при изменении аргумента x на интервале с заданным шагом: ...

Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н
Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н,...

Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н
Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н,...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru