27.10.2009, 17:23 | #1 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Кому не сложно, помогите с написанием программ.
2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае. 3. Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности. |
27.10.2009, 17:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Упрощу вам решение проблемы - вот список аналогичных обсуждений Проблемы с написанием классов на языке С++ Проблемы с написанием программы на языке Турбо Паскаль Помогите с архитектурой программ ГИС,для горного дела |
27.10.2009, 20:00 | #2 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
a,b:REAL; BEGIN Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); IF a<b THEN BEGIN a:=a*2; b:=b*2; END ELSE BEGIN a:=SQR(a); b:=SQR(b); END; WriteLn('a= ',a); WriteLn('b= ',b); ReadLn; END. Последний раз редактировалось Vladimir_S; 27.10.2009 в 21:26 Причина: Небольшая косметика |
||
27.10.2009, 21:25 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
n= ; {Здесь нужно указать значение n} VAR i:INTEGER; A:ARRAY[1..n] of REAL; Max:REAL; BEGIN Write('A[1]= '); ReadLn(A[1]); MAX:=A[1]; FOR i:=2 TO n DO BEGIN Write('A[',i,']= '); ReadLn(A[i]); IF A[i]>MAX THEN MAX:=A[i]; END; WriteLn('MAX= ',MAX); ReadLn; END. |
|
08.11.2009, 10:26 | #4 (permalink) | |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот
Цитата:
вот http://www.tehnari.ru/imagehosting/2...664993578d.jpg |
|
07.11.2010, 20:01 | #5 (permalink) |
Member
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ку
Меня тоже интересует первая задача с функцией.очень бы помогла мне.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.11.2010, 12:59 | #7 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
P.S. Черт вас побери, молодежь, ну когда вы, наконец, поймете, что учиться нужно в первую очередь для себя, а не для папы-мамы? Ведь вам жить! И что, думаете так чужим умом и чужими знаниями и просуществовать всю жизнь? Извините, если что не так. Накипело! |
|
08.11.2010, 16:48 | #8 (permalink) |
Member
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да я понимаю как это должно быть написано.у меня и затруднение с тем что стпень отрицательная.и может ее дополнительно как то прописывать тогда надо.
|
08.11.2010, 17:18 | #9 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Саму функцию вы так и не написали, а без этого что-либо говорить о решении попросту бесполезно.
От отрицательной степени можно избавиться путем преобразования в частное
__________________
Убить всех человеков! |
08.11.2010, 17:52 | #10 (permalink) |
Member
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
в предыдущих сообщениях ссылка. я незнаю как это сделать иначе не писала бы.
Последний раз редактировалось Wiki; 08.11.2010 в 17:58 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|