Помощ за една задачка на Паскал ...

[589632147]

Да се състави програма за пресмятане стойността на функцията при произволно въведена стойност на X:

[Реклама]

[mimiteto]

var x:real;
begin
if x<=3 then x:=sqrt(x-4) else
begin if (x>3)and(x<7) then x:=5*x*x-4 else
begin if x>=7 then x:=(2*x-100);begin if x<0 then x:=x*(-1);
end;
end;
end;
end;



Мисля, че това ще ти свърши работа!

[Vladi_mnt]

Драги, би ли си поподредил програмата да бъде по-четлива, че и аз самият не мога да я разбера лесно....

[Vladi_mnt]

Бтв, тази програма даже не ти извежда стойността на функцията!!!

[Vladi_mnt]

program Zad;
var x, f: real;
begin
write('x='); readln(x);
if (x<=3) f:=sqrt(4-x)
else if (x<7) f:=5*sqr(x)-4
else f:=abs(2*x-100);
write('F(',x,')=',f);
end.

[mimiteto]

Първо, скъпи съм, не съм скъпа, второ, кодът го писах на Delphi (нямах Pascal), за това не извежда резултатът... а и предполагам за никой не е проблем да го изведе сам

ПОЗДРАВИ
П.п.: Един съвет към Vladi_mnt, ползвай минимум от променливи.

[Vladi_mnt]

Благодаря за съвета, но в този форум такива като нас с теб си имат работа с хора, които (да не кажа изобщо) си нямат и понятие за тези неща и се стремя за максимално опростение на кода за тях, да бъде по разбираем. А това с намаляването разхода на памет те няма да го разберат.. Затова използвах f като f(x) не заради друго нещо
А колкото до това, че си момче, извинявай - не съм ти разбрал ника правилно. Ще се коригирам...

[Vladi_mnt]

ПОЗДРАВИ на теб също

[mimiteto]

По добре да им даваме само фрагменти, та поне нещо да научат, и нека да им е сложно, ако искат опростен код който да разберат, нека да седнат, да прочетат и да го напишат сами.

[Vladi_mnt]

Е, да, апълно съм прав с теб, но понятието на хората, които търсят този форум за помощ по информатика е толкова малко и нищожно, че повечето хора даже не знаят структурата на една програма, била на който и да е език....