22.12.2009, 14:03 | #1 (permalink) |
Новичок
Регистрация: 22.12.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста решить задачи на паскале.
Помогите пожалуйста решить 5 задач!!!!10 задач я решила сама, они элементарные, а вот тут что то не получается!!!! Очень надо для курсовой! Спасибо за ранее огромное!!! кто что сможет!!!!! 1. Вычислить значение функции y = 4x3 – 2x2 + 5 для значений х, изменяющих¬ся от –3 до 1 с шагом 0,1. 2. Дано целое положительное число n. Вычислить 1+1/2+1/3-...+1/n. 3. Известна сумма вклада в банке n и число k, обозначающее величину процентов, начисляемых ежегодно. Определить, через сколько лет сумма вклада превысит m. 4. Даны натуральные числа m и n, представляющие числитель и знаменатель некоторой дроби. Сократить эту дробь. 5. Дано натуральное число k. Напечатать "Да" или "Нет" в зависимости от того, является ли оно степенью числа 3 или нет. СПАСИБО ОГРОМНОЕ ЗА РАНЕЕ!!! |
22.12.2009, 14:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные топики имеют сходства с вашей темой Помогите, пожалуйста, решить три задачи по Pascal Помогите пожалуйста решить матрицу в паскале Помогите решить четыре задачи в Паскале Помогите решить задачи на C++ |
22.12.2009, 16:21 | #2 (permalink) | |||||||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
FOR i:=-30 TO 10 DO BEGIN x:=0.1*i; y:=4.0*x*x*x+2.0*x*x+5.0; END; Цитата:
Код:
SUM:=0; FOR i:=1 TO n DO SUM:=SUM+1/i; Цитата:
Код:
Number_of_Years:=0; REPEAT INC(Number_of_Years); n:=n+n*k/100; UNTIL n>m; Цитата:
Код:
VAR n,m,i:BYTE; BEGIN Write('m= '); ReadLn(m); Write('n= '); ReadLn(n); i:=(m div 2); REPEAT IF ((m mod i)=0) AND ((n mod i)=0) THEN BEGIN m:=(m div i); n:=(n div i); END; DEC(i); UNTIL i=1; WriteLn('New m = ',m); WriteLn('New n = ',n); ReadLn; END. Цитата:
Код:
i:=1; REPEAT i:=i*3; UNTIL i>=k; IF i=k THEN WriteLn('Yes!') ELSE WriteLn('No!'); Цитата:
|
|||||||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|