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

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

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

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

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

Циклическая программа на Паскаль, 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, 17:11 Сообщение #2
Доцент Группа: Преподаватели Сообщений: 3 840 Регистрация: 27.9.2007 Из: Старый Оскол Город: Москва Учебное заведение: МФТИ/МАИ Вы: другое	По-моему,проще сделать while'ом, примерно так: k:=1; t:=1; while (k<=m) do begin t:=t*{...} k:=k+1; end;

tonibis	27.9.2009, 8:01 Сообщение #3
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	с while'ом k:=1; t:=1; while (k<=m) do begin t:=t*{...} k:=k+1; end; в ответе постоянно получается 1. что это значит?

tig81	27.9.2009, 8:36 Сообщение #4
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель	Цитата(tonibis @ 27.9.2009, 11:01) в ответе постоянно получается 1. что это значит? как так? Вместо {...} вы заданное выражение подставляли? m задавали?

tonibis	27.9.2009, 8:41 Сообщение #5
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	да верно. m не задавала. как же задавать, тоже 1? (IMG:style_emoticons/default/rolleyes.gif)

tig81	27.9.2009, 8:45 Сообщение #6
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель	Цитата(tonibis @ 27.9.2009, 11:41) как же задавать, тоже 1? (IMG:style_emoticons/default/rolleyes.gif) тогда в вашем произведение будет всего один сомножитель. Тоже вариант. А так задайте 1, 2, 3, ....посмотрите, что будет. Сделайте так, чтобы оно (m) вводилось интерактивно, любой пользователь сел и задал его самостоятельно.

tonibis	27.9.2009, 8:57 Сообщение #7
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ	program; uses crt; var t,x:real; k,m:integer; begin writeln('x,m'); readln(x,m); k:=1; t:=1; while (k<=m) do begin t:=t*{...} k:=k+1; end; writeln('t=',t:10:4); readln; end. (IMG:style_emoticons/default/rolleyes.gif) так вроде

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

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

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

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

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

Сейчас: 19.4.2026, 18:19

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

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