Предмет: Информатика,
автор: tailun
Хэлп плиз
Составить блок схему и программу на языке паскаля вычисления значения двух функций
значения для второй по строкам
x больше 0 и меньше либо равно 1
х больше 1
х меньше либо равно 0
Ответы
Автор ответа:
1
Вот, держи задачу))
var x: integer;
t,y: real;
begin
writeln('x = ');
readln(x);
t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;
writeln('t = ',t:0:5);
begin
if x <= 0 then
begin
y := 17.9 + exp(ln(x)*2);
end;
if (0 < x) and (x <= 1) then
begin
y := sqrt(x + 2);
end;
if x > 1 then
begin
y := ln(x - 1);
end;
writeln('y = ',y:0:5);
end;
end.
tailun:
Спасибо большое! Но это две раздельные функции. Два кода нужно, на том что ты написал, где конец первой?
var x: integer;
t,y: real;
begin
writeln('x = ');
readln(x);
t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;
writeln('t = ',t:0:5);
end.
#2:
var x: integer;
t,y: real;
begin
writeln('x = ');
readln(x);
begin
if x <= 0 then
begin
y := 17.9 + exp(ln(x)*2);
end;
if (0 < x) and (x <= 1) then
begin
y := sqrt(x + 2);
end;
if x > 1 then
begin
y := ln(x - 1);
end;
writeln('y = ',y:0:5);
end;
end.
Похожие вопросы
Предмет: Математика,
автор: veronikabozko
Предмет: Литература,
автор: deepiinss
Предмет: Математика,
автор: pikachu2280
Предмет: Литература,
автор: ПомурчимПроУроки