Циклическая программа на Паскаль, please HElp!!! |
Здравствуйте, гость ( Вход | Регистрация )
Циклическая программа на Паскаль, 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) |
tig81 |
26.9.2009, 11:08
Сообщение
#4
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
|
tonibis |
26.9.2009, 12:15
Сообщение
#5
|
Школьник Группа: Продвинутые Сообщений: 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:=1,k:=2...k:=m until abs((sin(x)/cos(x)+k)/2*k*x)>=m; writeln('t=',t:10:5); readln; end. (IMG:style_emoticons/default/smile.gif) помогите пожалуйста я же девушка |
tig81 |
26.9.2009, 12:19
Сообщение
#6
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
t:=t*((sin(x)/cos(x)+k)/2*k*x); на первом шаге получим вроде 0. Цитата помогите пожалуйста я же девушка Первый, кто скажет, что я мальчик, пусть бросит в меня камень. (IMG:style_emoticons/default/rolleyes.gif) Скорее,нужно задать t=1. Тоже так думаю. Ура, значит я права. (IMG:style_emoticons/default/clap.gif) |
tonibis |
26.9.2009, 12:26
Сообщение
#7
|
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ |
щас попробую (IMG:style_emoticons/default/cool.gif)
|
tonibis |
26.9.2009, 12:40
Сообщение
#8
|
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ |
проверьте пожалуйста
program my; uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=1; repeat t:=t*((sin(x)/cos(x)+k)/2*k*x); k:=1; k:=2; k:=m until abs((sin(x)/cos(x)+k)/2*k*x)>=m; writeln('t=',t:10:5); readln; end |
tig81 |
26.9.2009, 12:42
Сообщение
#9
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
|
tonibis |
26.9.2009, 14:29
Сообщение
#10
|
Школьник Группа: Продвинутые Сообщений: 30 Регистрация: 26.9.2009 Город: кострома Учебное заведение: КГТУ |
program my;
uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=1; 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 так вроде? |
tig81 |
26.9.2009, 14:53
Сообщение
#11
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
|
Текстовая версия | Сейчас: 13.5.2024, 12:11 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru