Задача в паскале…
Вложений: 1
Вложение 1665 pomogite
|
выложите задание на форум, а не файл для скачивания...
люди не станут качать ;) |
Выложу за него
Задача в паскале… Пожалуйста помогите мне решить практическую работу…Я очень тут на всех надеюсь…. Задание 1 Написать программу для вычисления суммы, слагаемыми которой являются : а) = ,где n-номер слагаемого; б) вычислить до тех пор, пока ; Задание 2 Написать программу для вычисления произведения . Заранее спасибо…. Автор темы купи учебник там все написано это же элементарно ватсон |
Цитата:
http://s60.radikal.ru/i167/0904/f4/901658e995bf.jpg Сейчас прикину решения. |
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. |
Спасибо...я просто не знал как формулы выложить поэтому и выложил документ...
|
Часовой пояс GMT +4, время: 07:46. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.