Приклад 4.2

Приклад 4.1.

Виведення даних за допомогою формату

Виведення даних за допомогою формату

Виведення даних за допомогою формату

Приклад

writeln(' Роботу виконав студент Сидорко’);

writeln(‘Введіть значення tv=’);

read(tv); write(‘tv=’,tv);

writeln(‘rv=’,sin(tv));

Порівняння Write (Writeln)

Інструкція Write після виведення значень списку залишає курсор у рядку виведення.

Інструкція Writeln після виведення значень списку переводить курсор у новий рядок виведення.

Виведення даних за форматом програміста

Після імені змінної у списку інструкції Write ставиться двокрапка, за якою записується ціле число, що вказує на кількість знакомісць, які виділяються для виведення значення даної змінної.

Якщо виводиться змінна або вираз, що мають тип Real, то крім числа, що вказує на загальну кількість знакомісць при виводі значення змінної, ще через одну двокрапку записується число, яке вказує кількість знакомісць для виведення дробової частини значення змінної.

Виведення даних за допомогою формату
Наприклад, для фрагменту програми a=17.48;b=-0.7895;

Var a,b:real;

.....................................

Write(a:6:2,b:8:4);

результат матиме вигляд

__17.48_-0.7895

У списку інструкції Writeln можуть бути використані функції, результати яких також можна виводити з використанням формату, наприклад:

writeln('Введіть значення tv=');

read(tv);

writeln('tv=',tv:6:2,'rv=',int(tv):6:2);

program no_print;

var ch:real;

begin

read(ch);

write('ch1=',ch);

write(' ch2=',ch:13);

end.

Після надання змінній ch значення

12.457

Отримаємо наступні результати:

ch1= 1.2457000000E+01 ch2= 1.245700E+01

Після надання змінній ch значення 345.78

program no_print;

var ch:real;

begin

read(ch);

writeln('ch1=',ch);

writeln('ch2=',ch:13);

end.

Отримаємо наступні результати:

ch1= 3.4578000000E+02

ch2= 3.457800E+02

Умовна інструкція IF

IF u THEN b ELSE g,

де IF, THEN, ELSE - ключові слова

u - логічний вираз;

b,g - інструкції алгоритмічної мови Паскаль.

Порівнювальні операції (операції відношення)

Для побудови логічного виразу в Паскалі використовуються шість операцій:

= - знак piвностi;

>- знак більше;

<- знак менше;

>=-більше або дорівнює;

<=-менше або дорівнює;

<>- не дорівнює.

Для заданих х, у, z, k обчислити

Піднесення до степеню

У Паскалі відсутня операція піднесення до степеню, тому використовуємо формулу перетворення

Рис. 4.1 Схема алгоритму програми Приклад 4.1.

Програмна реалізація

program if_pryklad_4_l;

uses crt;

var f,x,z,y,k:real;

begin clrscr;

writeln('vvesty х у z k');

read(x,y,z,k); f:=3*x*y;

if f>0 then begin f:=f+exp(y*ln(f))+k/f;

writeln('f=',f); end

else writeln('f-не визначене');

end.

Дано х - дійсне, обчислити

якщо -4<=х<0 якщо 0=<х<10 якщо 10<=х<=100

Рис. 4.2 Схема алгоритму програми Приклад 4.2.

Програмна реалізаціяprogram

pryklad_4_2;

uses crt;

var x,y,k:real;

begin clrscr; writeln('vvod x');

read(x); k:=sqr(x);

if(x<0) and (x>=-4) then begin y:=k+1; writeln('1','y=',y); end

else if(x>=0) and (x<10) then begin y:=k*x+2*x;

writeln('2','y=',y:7:2); end

else if(x>=10) and (x<100) then begin y:=k*k*x+k*x+x; writeln('3','y=',y); end

else writeln('no solution');

end.

Дата добавления: 2014-01-07