Задача в паскале…

Diman · 23.04.2009, 23:02

Matrix · 23.04.2009, 23:17

выложите задание на форум, а не файл для скачивания...
люди не станут качать

Price · 23.04.2009, 23:20

Выложу за него
Задача в паскале…
Пожалуйста помогите мне решить практическую работу…Я очень тут на всех надеюсь….
Задание 1
Написать программу для вычисления суммы, слагаемыми которой являются :
а) = ,где n-номер слагаемого;
б) вычислить до тех пор, пока ;
Задание 2
Написать программу для вычисления произведения .
Заранее спасибо….

Автор темы купи учебник там все написано это же элементарно ватсон

Vladimir_S · 24.04.2009, 10:03

Цитата:

Сообщение от Price

Выложу за него

Да уж, выложили, называется... А формулы где?

http://s60.radikal.ru/i167/0904/f4/901658e995bf.jpg

Сейчас прикину решения.

Vladimir_S · 24.04.2009, 10:24

1. (Варианты а) и б) сразу, если надо - разделите сами):
VAR
An,Sn:REAL;
n:INTEGER;
BEGIN
n:=-1;
Sn:=0;
REPEAT
INC(n);
An:=2.0*Cos(1.0*n)/SQR(1+n);
Sn:=Sn+An;
WriteLn(n:1, Sn:10:5);
UNTIL An<1.0/35;
ReadLn;
END.

2.
VAR
n,i:INTEGER;
P:REAL;
BEGIN
Write('n = '); ReadLn(n);
P:=1;
FOR i:=1 TO n DO
P:=P*(1-Exp(1.0/(i+1)*Ln(2.0)));
WriteLn('P = ', P);
ReadLn;
END.

Diman · 24.04.2009, 11:36

Спасибо...я просто не знал как формулы выложить поэтому и выложил документ...

23.04.2009, 23:02	#1 (permalink)
Diman Member Регистрация: 26.01.2009 Сообщений: 721 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 741	Задача в паскале… Задача в паскале.doc pomogite

23.04.2009, 23:02
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пожалуйста, посмотрите схожие по содержанию темы Задача на массивы в Паскале Задача на Паскале и С++ Задача на Паскале Задача на Паскале Задача на Паскале Задача на Паскале...

23.04.2009, 23:17	#2 (permalink)
Matrix IT-Specialist Регистрация: 12.04.2007 Сообщений: 2,906 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1845	выложите задание на форум, а не файл для скачивания... люди не станут качать

23.04.2009, 23:20	#3 (permalink)
Price Member Регистрация: 19.11.2008 Сообщений: 47 Записей в дневнике: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Выложу за него Задача в паскале… Пожалуйста помогите мне решить практическую работу…Я очень тут на всех надеюсь…. Задание 1 Написать программу для вычисления суммы, слагаемыми которой являются : а) = ,где n-номер слагаемого; б) вычислить до тех пор, пока ; Задание 2 Написать программу для вычисления произведения . Заранее спасибо…. Автор темы купи учебник там все написано это же элементарно ватсон

24.04.2009, 10:24	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	1. (Варианты а) и б) сразу, если надо - разделите сами): VAR An,Sn:REAL; n:INTEGER; BEGIN n:=-1; Sn:=0; REPEAT INC(n); An:=2.0Cos(1.0n)/SQR(1+n); Sn:=Sn+An; WriteLn(n:1, Sn:10:5); UNTIL An<1.0/35; ReadLn; END. 2. VAR n,i:INTEGER; P:REAL; BEGIN Write('n = '); ReadLn(n); P:=1; FOR i:=1 TO n DO P:=P(1-Exp(1.0/(i+1)Ln(2.0))); WriteLn('P = ', P); ReadLn; END.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

24.04.2009, 11:36	#6 (permalink)
Diman Member Регистрация: 26.01.2009 Сообщений: 721 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 741	Спасибо...я просто не знал как формулы выложить поэтому и выложил документ...