Циклическая программа на Паскаль - Образовательный студенческий форум

Решебник.Ру Правила форума

Помощь Поиск Пользователи Календарь

Здравствуйте, гость ( Вход | Регистрация )

Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование

Циклическая программа на Паскаль, please HElp!!!

Опции

tonibis	26.9.2009, 8:46 Сообщение #1
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	помогите пожалуйста нужен алгоритм и программа! http://lampert.ya.ru/replies.xml?item_no=3 Эскизы прикрепленных изображений

Ответов

граф Монте-Кристо	26.9.2009, 8:54 Сообщение #2
Доцент Группа: Преподаватели Сообщений: 3 840 Регистрация: 27.9.2007 Из: Старый Оскол Город: Москва Учебное заведение: МФТИ/МАИ Вы: другое	В чём проблема-то?Где собственные наработки?

tonibis	26.9.2009, 11:01 Сообщение #3
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	program my; uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=0; repeat t:=t+((sin(x)/cos(x)+k)/2kx); k:=k+1 until abs((sin(x)/cos(x)+k)/2kx)>=m; writeln('t=',t:10:5); readln; end. (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/unsure.gif)

tig81	26.9.2009, 11:08 Сообщение #4
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель	Цитата(tonibis @ 26.9.2009, 14:01) t:=t+((sin(x)/cos(x)+k)/2kx); Могу ошибаться, но это вы случайно не сумму пытаетесь сделать? У вас вроде произведение?! Попробуйте вручную для k=1, k=2...

tonibis	26.9.2009, 12:15 Сообщение #5
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	program my; uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=0; repeat t:=t((sin(x)/cos(x)+k)/2kx); k:=1,k:=2...k:=m until abs((sin(x)/cos(x)+k)/2k*x)>=m; writeln('t=',t:10:5); readln; end. (IMG:style_emoticons/default/smile.gif) помогите пожалуйста я же девушка

граф Монте-Кристо	26.9.2009, 12:17 Сообщение #6
Доцент Группа: Преподаватели Сообщений: 3 840 Регистрация: 27.9.2007 Из: Старый Оскол Город: Москва Учебное заведение: МФТИ/МАИ Вы: другое	Цитата(tonibis @ 26.9.2009, 16:15) program my; uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=01; repeat t:=t((sin(x)/cos(x)+k)/2kx); k:=1,k:=2...k:=m until abs((sin(x)/cos(x)+k)/2k*x)>=m; writeln('t=',t:10:5); readln; end. (IMG:style_emoticons/default/smile.gif) помогите пожалуйста я же девушка Зачем это?У Вас же теперь всё время ноль будет в итоге (IMG:style_emoticons/default/smile.gif) Скорее,нужно задать t=1.

Сообщений в этой теме

tonibis Циклическая программа на Паскаль 26.9.2009, 8:46

граф Монте-Кристо В чём проблема-то?Где собственные наработки? 26.9.2009, 8:54

tonibis program my; uses crt; var t,x:real; k,m:integer; b... 26.9.2009, 11:01

tig81 t:=t+((sin(x)/cos(x)+k)/2*k*x); Могу ошибаться, н... 26.9.2009, 11:08

tonibis program my; uses crt; var t,x:real; k,m:integer; b... 26.9.2009, 12:15

граф Монте-Кристо program my; uses crt; var t,x:real; k,m:integer; ... 26.9.2009, 12:17

tig81 t:=t*((sin(x)/cos(x)+k)/2*k*x); на первом шаге по... 26.9.2009, 12:19

tonibis щас попробую B) 26.9.2009, 12:26

tonibis проверьте пожалуйста program my; uses crt; var t,x... 26.9.2009, 12:40

tig81 k:=1; k:=2; k:=m это что? 26.9.2009, 12:42

tonibis как же записать k:=k+1 пока k не будет равно m или... 26.9.2009, 13:08

tonibis program my; uses crt; var t,x:real; k,m:integer; b... 26.9.2009, 14:29

tig81 t:=t*((sin(x)/cos(x)+k)/(2*k*x)); так вроде? ну ... 26.9.2009, 14:53

tonibis цикл должен повторяться m раз вроде и поэтому так... 26.9.2009, 15:04

tig81 цикл должен повторяться m раз вроде и поэтому та... 26.9.2009, 15:05

tonibis условием выхода из цикла является достижение задан... 26.9.2009, 15:13

tonibis может быть until abs(...) :unsure: дальше пока не... 26.9.2009, 15:37

граф Монте-Кристо Ну так и запишите, k:=k+1. А что это за число m,гд... 26.9.2009, 13:32

граф Монте-Кристо Если я правильно понял условие, нужно найти произв... 26.9.2009, 14:52

граф Монте-Кристо По-моему,проще сделать while'ом, примерно так:... 26.9.2009, 17:11

tonibis с while'ом k:=1; t:=1; while (k<=m) do beg... 27.9.2009, 8:01

tig81 в ответе постоянно получается 1. что это значит? ... 27.9.2009, 8:36

tonibis да верно. m не задавала. как же задавать, тоже 1? ... 27.9.2009, 8:41

tig81 как же задавать, тоже 1? :rolleyes: тогда в вашем... 27.9.2009, 8:45

tonibis program; uses crt; var t,x:real; k,m:integer; begi... 27.9.2009, 8:57

tig81 так вроде Я Паскаль не знаю, так что процедуры мн... 27.9.2009, 10:52

tig81 :) тоже так думала :rolleyes: 26.9.2009, 17:25

kaa для начала это не циклическая программа..почитайте... 27.9.2009, 12:15

tig81 притом нигде не фиксируется чему равна переменна... 27.9.2009, 13:16

tonibis вроде вводится с клавиатуры? делаю так program; v... 27.9.2009, 15:12

tonibis program; var t,x:real; k,m:integer; begin writeln(... 27.9.2009, 15:39

kaa может так лучше? program 123; uses crt; var j:rea... 27.9.2009, 16:43

tonibis не получается что-то по вашему <_< 27.9.2009, 18:21

kaa а так??? program 123; uses crt; var k, x:real; beg... 28.9.2009, 12:51

tonibis http://lampert.ya.ru/replies.xml?item_no=3 :) а м... 28.9.2009, 17:30

kaa 1 program cycle1; var t,x:real; k,m:i... 28.9.2009, 19:02

« Предыдущая тема · Информатика / Программирование · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

Сейчас: 25.5.2025, 21:24

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.

Зеркало сайта Решебник.Ру - reshebnik.org.ru