 Циклическая программа на Паскаль, 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)/2*k*x); k:=k+1 until abs((sin(x)/cos(x)+k)/2*k*x)>=m; writeln('t=',t:10:5); readln; end. (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/unsure.gif) |
|
|
|
Сообщений в этой теме
tonibis Циклическая программа на Паскаль 26.9.2009, 8:46
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, 17:40 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru