 Циклическая программа на Паскаль, please HElp!!! |
Здравствуйте, гость ( Вход | Регистрация )
| tonibis |
 26.9.2009, 8:46
Сообщение
#1
|
|
Школьник  Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ  |
помогите пожалуйста нужен алгоритм и программа!
http://lampert.ya.ru/replies.xml?item_no=3 Эскизы прикрепленных изображений 
|
   |
 
|
  |
Ответов
| kaa |
27.9.2009, 16:43
Сообщение
#2
|
|
Аспирант Группа: Активисты Сообщений: 422 Регистрация: 7.1.2009 Город: Украина Киев Вы: школьник |
может так лучше?
program 123; uses crt; var j:real; begin clrscr; k:=1; while j<=10 do begin writeln('T=',-2.4*sqr(j)+5*j-3:5:1); k:=k+0.5; end; readkey; end. |
|
|
|
Сообщений в этой теме
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 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, 22:57 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru