Цитата:
Сообщение от Pashka1991
Здравствуйте, помогите пожалуйста с программами на паскале, очень нужны =(:
2) Составить две программы на языке программирования высокого уровня (одну с оператором присваивания, перехода, условными; вторую – используя оператор цикла) для вычисления функции.
http://www.tehnari.ru/imagehosting/2...bf6685e1ce.jpg
|
Извините, уважаемый, но куда тут воткнуть оператор цикла - решительно не вижу! Так что могу предложить только одну программу:
VAR
x,y,t:REAL;
BEGIN
Write('x = '); ReadLn(x);
Write('t = '); ReadLn(t);
IF x<0.5 THEN y:=(Ln(x)*SQR(Ln(x))+x)/SQRT(x+1) ELSE
IF x=0.5 THEN y:=SQRT(x+t+Exp(x)) ELSE
y:=Cos(x)+t*SQR(Sin(x));
WriteLn('y = ',y);
ReadLn;
END.