Функция кодын енгізіңіз: 1 – y=sin(x) 2 – y=cos(x) 3 – у=ехр(х) Енгізілген кодқа сəйкес функция таңдалып алынады. 5.11-су-ретте программа алгоритмінің схемасы берілген.
Төменде құрастырылған алгоритмді іске асыратын программа мəтіні берілген.
Program ex;
Var x,y:real; Kod:byte; key:boolean; Begin
WriteLn(‘ Функция кодын енгіз:'); WriteLn(‘1 – sin(x)’); WriteLn(‘2 – cos(x)’); WriteLn(‘3 – exp(x)’); ReadLn(Kod);
Write(‘Аргумент мəнін енгіз’); ReadLn(x);
Key:=true; {код дұрыстығының белгісі} case Kod of
y:=sin(x);
y:=cos(x);
y:=exp(x);
else Key:=false; {код функцияға сəйкес емес} end;
if Key then
WriteLn(‘ x=’,x:12:6,’y=’,y:12:6)
else
WriteLn(‘Функция коды дұрыс енгізілмеген.’);
End.
