Кому не сложно, помогите с написанием программ.
1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.
2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае. 3. Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности. |
Цитата:
Цитата:
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. |
Цитата:
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. |
вот
Цитата:
вот http://www.tehnari.ru/imagehosting/2...664993578d.jpg |
ку
Меня тоже интересует первая задача с функцией.очень бы помогла мне.
|
Кто нибудь может помочь с зазачей по функции? очень надо.
Напишите программу вычисления функции S. Значения величин a, b, x задаются |
Цитата:
Цитата:
P.S. Черт вас побери, молодежь, ну когда вы, наконец, поймете, что учиться нужно в первую очередь для себя, а не для папы-мамы? Ведь вам жить! И что, думаете так чужим умом и чужими знаниями и просуществовать всю жизнь? Извините, если что не так. Накипело! |
Да я понимаю как это должно быть написано.у меня и затруднение с тем что стпень отрицательная.и может ее дополнительно как то прописывать тогда надо.
|
Саму функцию вы так и не написали, а без этого что-либо говорить о решении попросту бесполезно.
От отрицательной степени можно избавиться путем преобразования в частное :) |
в предыдущих сообщениях ссылка. я незнаю как это сделать иначе не писала бы.
|
Часовой пояс GMT +4, время: 13:14. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.