Детальний розпис програми:
Надамо ім’я програмі будь-яке на Ваш розсуд.
Program Rozgaluz;
Використаємо зарезервоване слово Var-це підрозділ оголошення змінних; дана команда надає нам можливість вказати змінні, які будуть приймати участь у виконанні програми, на даний час наші змінні x,y. І цим змінним нам необхідно задати тип, який саме? (Цілі типи позначаються ідентифікаторами Integer, Byte, ShortInt, Word, LongInt, або Турбо Паскаль підтримує чотири різних речових типів. Вони іменуються ідентифікаторами Real, Single, Double, Extended і Comp). Двокрапка між змінними і заданим типом означає присвоєння типу змінним. Тобто x,y задамо реального значення – real.
Var x,y: real;
Після задання програмі опису типів змінних. Вказуємо зарезервоване слово Begin, що означає початок виконання програмного коду.
Begin
Вказуємо оператор Write, що виводить значення «х» на екран і чекає вводу з клавіатури).
Write('Введiть х='); ReadLn(x);
Оператор if слугує для переходу рядка. Зазвичай програма виконується по порядку, рядок за рядком. Оператор if дозволяє перевірити умову (наприклад, чи рівні дві змінні) і змінити хід виконання програми, направивши її в інше русло, яке залежатиме від результату порівняння. Проста форма оператора if має наступний вигляд:
if(умова)
вираження;
При заданні умови оператором if що х більше нуля виконується умова прикладу, який описаний мовою Паскаль.
if x>0 then y:=SQR(x)+1 else y:=SQRT(x*x+5);
Розглянемо два варіанти прикладу:
Х2+1, мовою паскаль це виглядає (присвоюємо значення ігреку по чисельнику) y: = sqr(x)+1 else(правда, якщо) y: = (присвоюємо значення ігреку по знаменнику) визначаємо корінь квадратний sqrt (х*х+5) ікси перемножаються тому що один ікс відноситься до корня, інший до ікса.
writeLn('X=',x:5:2,' Y=',y:5:2) writeln(''); (виводить символи заключені в одинарні лапки)
End.
Результати роботи програми:
Введіть х=2
X= 2.00 Y=5.00
Введіть х=-3
X=-3.00 Y=3.74, 10.00
Обчислити:
Завдання 4. Скласти програму для розв'язування квадратного рівняння. Описати кожний рядок.
Program PR1;
Var a,b,c,D,X1,X2:Real;
Begin
Write ('Введіть а,b,c '); ReadLn(a,b,c);
D:=a*a-4*a*c;
If D>=0 Then
Begin
X1:=(-b+SQRT(D))/2*a;
X2:=(-b-SQRT(D))/2*a;
WriteLn('X1=',X1:5:2,' X2=',X2:5:2)
End
Else
WriteLn ('Рівняння не має коренєв!')
End.
Результати роботи програми:
Введіть а, b, c 1 -2 8
Рівняння не має коренів!
Введіть а, b, c 3 -4 -1
X1=12.87 X2=-0.87
Завдання 4.1. Скласти програму для розв'язування рівняння ax+b=0 Зауваження. Ділення на нуль !!!
Завдання 5. Обчислити значення виразу, опишіть кожен рядок.
Program pr4_3;
var x,y:real;
begin Write('Введіть х='); ReadLn(x);
if (-1<=x) and (x<=1) then y:=sin(x);
if x>1 then y:=cos(x);
if x<-1 then y:=sin(x)/cos(x);
WriteLn('X=',x:5:2,' Y=',y:5:2)
End.
Результати роботи програми:
Введіть х=0
X= 0.00 Y= 0.00
Введіть х=2
X= 2.00 Y=-0.42
Введіть = -2
X=-2.00 Y= 2.19
Завдання 6. Обчислити значення виразу:
Program pr4_4;
var x,y:real;
begin
Write('Введіть х='); ReadLn(x);
if (-1<=x) and (x<=-1) then y:=sin(sqr(x+4.23);
if (x>1) or(x<-1) then y:=cos(x+41/x);
WriteLn('X=',x:5:2,' Y=',y:5:2)
End.
Результати роботи програми:
Введіть х=0
Введіть х=2
Введіть х=-2