IPB

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

2 страниц V < 1 2  
Ответить в эту темуОткрыть новую тему
> Циклическая программа на Паскаль, please HElp!!!
tig81
сообщение 26.9.2009, 17:25
Сообщение #21


Академик
********

Группа: Преподаватели
Сообщений: 15 617
Регистрация: 15.12.2007
Город: Украина, Запорожье
Учебное заведение: ЗНУ
Вы: преподаватель



(IMG:style_emoticons/default/smile.gif) тоже так думала (IMG:style_emoticons/default/rolleyes.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tonibis
сообщение 27.9.2009, 8:01
Сообщение #22


Школьник
*

Группа: Продвинутые
Сообщений: 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
Сообщение #23


Академик
********

Группа: Преподаватели
Сообщений: 15 617
Регистрация: 15.12.2007
Город: Украина, Запорожье
Учебное заведение: ЗНУ
Вы: преподаватель



Цитата(tonibis @ 27.9.2009, 11:01) *

в ответе постоянно получается 1.
что это значит?

как так?
Вместо {...} вы заданное выражение подставляли? m задавали?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tonibis
сообщение 27.9.2009, 8:41
Сообщение #24


Школьник
*

Группа: Продвинутые
Сообщений: 30
Регистрация: 26.9.2009
Город: кострома
Учебное заведение: КГТУ



да верно. m не задавала.
как же задавать, тоже 1? (IMG:style_emoticons/default/rolleyes.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tig81
сообщение 27.9.2009, 8:45
Сообщение #25


Академик
********

Группа: Преподаватели
Сообщений: 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
Сообщение #26


Школьник
*

Группа: Продвинутые
Сообщений: 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)
так вроде
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tig81
сообщение 27.9.2009, 10:52
Сообщение #27


Академик
********

Группа: Преподаватели
Сообщений: 15 617
Регистрация: 15.12.2007
Город: Украина, Запорожье
Учебное заведение: ЗНУ
Вы: преподаватель



Цитата(tonibis @ 27.9.2009, 11:57) *

так вроде

Я Паскаль не знаю, так что процедуры мне частично знакомы, частично нет. Так вроде по логике вещей похоже на правду. Программка запускается, нужное выдает? Придут специалисты ,подскажут точнее.

Вот вопрос: проверку для k
Цитата
while (k<=m) do

надо делать до цикла или в самом цикле? (IMG:style_emoticons/default/rolleyes.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kaa
сообщение 27.9.2009, 12:15
Сообщение #28


Аспирант
***

Группа: Активисты
Сообщений: 422
Регистрация: 7.1.2009
Город: Украина Киев
Вы: школьник



для начала это не циклическая программа..почитайте про циклы сначало
http://school87.kubannet.ru/pascal/5.html

t:=1;
while (k<=m) do


вообще не понятно к чему обе строчки, притом нигде не фиксируется чему равна переменная М, а Т не может равняться 1

Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tig81
сообщение 27.9.2009, 13:16
Сообщение #29


Академик
********

Группа: Преподаватели
Сообщений: 15 617
Регистрация: 15.12.2007
Город: Украина, Запорожье
Учебное заведение: ЗНУ
Вы: преподаватель



Цитата(kaa @ 27.9.2009, 15:15) *

притом нигде не фиксируется чему равна переменная М

вроде вводится с клавиатуры?
Цитата
, а Т не может равняться 1

почему?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tonibis
сообщение 27.9.2009, 15:12
Сообщение #30


Школьник
*

Группа: Продвинутые
Сообщений: 30
Регистрация: 26.9.2009
Город: кострома
Учебное заведение: КГТУ



Цитата(tig81 @ 27.9.2009, 17:16) *

вроде вводится с клавиатуры?

делаю так
program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
for k:=1 to m do begin
t:=t*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
насчет T думаю надобно задавать значение, для начала цикла

как быть с Т подскажите пожалуйста?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tonibis
сообщение 27.9.2009, 15:39
Сообщение #31


Школьник
*

Группа: Продвинутые
Сообщений: 30
Регистрация: 26.9.2009
Город: кострома
Учебное заведение: КГТУ



program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
repeat t:=t*{...}
k:=k+1
until k>m;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
так може
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kaa
сообщение 27.9.2009, 16:43
Сообщение #32


Аспирант
***

Группа: Активисты
Сообщений: 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
сообщение 27.9.2009, 18:21
Сообщение #33


Школьник
*

Группа: Продвинутые
Сообщений: 30
Регистрация: 26.9.2009
Город: кострома
Учебное заведение: КГТУ



не получается что-то по вашему (IMG:style_emoticons/default/dry.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kaa
сообщение 28.9.2009, 12:51
Сообщение #34


Аспирант
***

Группа: Активисты
Сообщений: 422
Регистрация: 7.1.2009
Город: Украина Киев
Вы: школьник



а так???
program 123;
uses crt;
var k, x:real;
begin
clrscr;
k:=1;
x:=30;
while k<=10 do
begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.

если что-то не получается делайте скриншот ошибки и выставляйте сюда)так легче решить проблему)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tonibis
сообщение 28.9.2009, 17:30
Сообщение #35


Школьник
*

Группа: Продвинутые
Сообщений: 30
Регистрация: 26.9.2009
Город: кострома
Учебное заведение: КГТУ



http://lampert.ya.ru/replies.xml?item_no=3 (IMG:style_emoticons/default/smile.gif)
а можно приближенно к моему примеру
1
program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
for k:=1 to m do begin
t:=t*((sin(x)/cos(x)+k)/(2*k*x));
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
2
program 123;
uses crt;
var k, x:real; begin clrscr;
k:=1; x:=30;
while k<=10 do begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.
почему не вводите значение 'M'?
зачем задавать фиксированное значение k, когда оно должно вводиться с клавиатуры?
и что это еще за условие "while k<=10 do begin"?
еще вроде нужно задавать в начале цикла значение Т, ведь это нужно для отсчета цикла,
поэтому произвольно задаю 1.
подробней отвечайте пожалуйста. (IMG:style_emoticons/default/smile.gif)

зачем задавать фиксированное значение 'X', когда оно должно вводиться с клавиатуры?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kaa
сообщение 28.9.2009, 19:02
Сообщение #36


Аспирант
***

Группа: Активисты
Сообщений: 422
Регистрация: 7.1.2009
Город: Украина Киев
Вы: школьник



1

Код
program cycle1;
var
  t,x:real;
  k,m:integer;
begin
  writeln('x, m');
  readln(x, m);
  {k:=1; эта строчка не нужна, переменная паскалевского for'а инициализируется в самой конструкции цикла}
  t:=1;
  
  for k:=1 to m do
  begin
    t:=t*((sin(x)/cos(x)+k)/(2*k*x));
    {k:=k+1; а эта строчка не должна компилироваться, записывать в переменную цикла нельзя, инкремент компилятор
    подразумевает в конструкции цикла}
  end;

  writeln('t=',t:10:4);
  readln;
end.



2
Код

program prg123; {не помню, подчиняется ли имя программы правилам именования идентификаторов, но лучше не начинать имена с цифр}
uses crt;
var
  k, x: real;
begin
  clrscr;
  k:=1;
{  x:=30; эта переменная нигде не используется}
  while k<=10 do
  begin
{тут на первый взгляд ошибки не видно. Если все-таки не работает,
единственное в чем у меня сомнение - это в форматировании строки вывода, попробуйте переписать так:
  x := -2.4*sqr(k)+5*k-3;
  writeln('T=', x:5:1);}
    writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
    k:=k+0.5;
  end;
  readln;
end.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

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

 



- Текстовая версия Сейчас: 29.3.2024, 15:04

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




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