 Циклическая программа на Паскаль, 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 Город: кострома Учебное заведение: КГТУ |
|
|
|
|
Сообщений в этой теме
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 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, 23:14 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru