Идентификаторы. Константы и переменные. Выражения. Комментарий

End.

Case MONTH of

Begin

Write( 'Введіть порядковий номер місяця (від 1 до 12): ' );

readln(MONTH);

3,4,5:writeln('Becнa');

6,7,8: writeln ('Літо');

9,10,11:writeln('Ociнь');

12,1,2:writeln('Зимa')

end;

8.Типи задач, що вирішуються за допомогою розгалужень.

Задача 1. Знайти значення складеної функції у для заданого значення х, якщо функція задана формулою:

var x,y:real;

begin clrscr;

writeln (‘Ввести х’);

read(x);

if x>0 then y:=x+3

else y:=x-5;

writeln (‘y=’, y)

readln

end.

Задача 2. Розв’язати квадратне рівняння (а≠0)

ax2+bx+c=0.

^ Program Equation;

uses crt;

var a, b, c, d, x1, x2: real;

begin

clrscr;

writeln(‘Введіть коефіцієнти a, b, c’);

readln(a, b, c);

d:=sqrt(b)- 4*a*c;

if d<0 then writeln(‘коренів немає’)

else begin

x1:= (-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln(‘корені є:’, x1:6:2, x2:6:2) end;

readln

end.

Дано три числа а, в, с. З’ясуйте, чи має місце нерівність а<в<с. Відповідь подати у вигляді тексту: „так” чи „ні”.

Program P1;

uses crt;

var a, b, c:real;

begin

writeln(‘Введіть три числа а, в, с’);

readln(a,b,c);

if(aand (bthen writeln (‘так’)

else writeln (‘ні’);

readln

end.

№7. Присвоїти z значення більшого з чисел х і у у тому разі, якщо х<0, і меншого, якщо х≥0.

Program EX7;

var x, y, max,min,z:real;

begin

writeln(‘Введіть два числа х,у’);

readln(x,y);

if x>y then begin

max:=y; min:=x;

writeln(‘max=’, max:4:2);

end;

else begin

max:=y; min:=x;

writeln(‘min=’, min:4:2);

end;

if xthen writeln (‘z=’, max:4:2);

else writeln(‘z=’, min:4:2);

readln;

end.

А тепер за цією блок- схемою напишем програму на мові Паскаль.

^ Program Triangle;

uses crt;

var a,b,c,p,s: real;

label 2;

begin clrscr;

writeln(‘Ввести довжини трьох сторін трикутника a,b,c’);

2: readln(a,b,c);

writeln(‘a=’, a, ‘b=’, b,’c=’,c);

if (aand (band (c<(a+b) then {нерівність трикутника}

begin writeln(‘трикутник існує’);

p:= (a+b+c)/2;

s:= sqrt(p*(p-a)*(p-b)*(p-c));

p:=p*2;

writeln(‘s=’, s:6:2, ‘p=’, p:6:2);

end

else

begin writeln (‘трикутника не існує’);

writeln(‘ввести нові сторони а, в, c’);

goto 2;

end;

readln

end.

Задача 2. Для заданого місяця року вивести пору року. Місяць задається числом.

Запишем програму для розв’язання цієї задачі, використовуючи оператор сase.

^ Program Season;

uses crt;

var month: 1..12;

begin clrscr;

writeln (Введіть номер місяця’);

read(month);

сase month of

1,2,12: writeln(‘зима’);

3,4,5: writeln(‘весна’);

6, 7,8: writeln(‘літо’);

9, 10, 11: writeln(‘осінь’);

end;

end.

Якщо замість сase використати неповні логічні оператори, то програма матиме такий вигляд:

^ Program Season;

uses crt;

var month: integer;

begin clrscr;

writeln (Введіть номер місяця’);

read(month);

if(month=1) or (month=2) or (month=12) then writeln(‘зима’);

if(month=3) or (month=4) or (month=5) then writeln(‘весна’);

if(month=6) or (month=7) or (month=8) then writeln(‘літо’);

if(month=9) or (month=10) or (month=11) then writeln(‘осінь’);

if month >12 writeln(‘помилка’);

readln

end.

10.Алгоритми розгалуження, які призначені для пошуку найбільших або найменших величин.

Задача. Скласти програму, де у змінні а та b ввести два цілих числа. Третій змінній с присвоїти значення більшого з-поміж уведених. Якщо числа рівні, то змінні с присвоїти значення будь-якого з чисел.

program twonumbers;

var a,b, c: integer;

begin

write (’Введіть два числа’);

read ln(a,b);

if a>b then c:=a;

if a<b then c:=b;

if a=b then c:=a;

write ln (‘c=’, c); read ln

end.

Дано три числа а, в, с. З’ясуйте, чи має місце нерівність а<в<с. Відповідь подати у вигляді тексту: „так” чи „ні”.

Program P1;

uses crt;

var a, b, c:real;

begin

writeln(‘Введіть три числа а, в, с’);

readln(a,b,c);

if(aand (bthen writeln (‘так’)

else writeln (‘ні’);

readln

end.

№7. Присвоїти z значення більшого з чисел х і у у тому разі, якщо х<0, і меншого, якщо х≥0.

Program EX7;

var x, y, max,min,z:real;

begin

writeln(‘Введіть два числа х,у’);

readln(x,y);

if x>y then begin

max:=y; min:=x;

writeln(‘max=’, max:4:2);

end;

else begin

max:=y; min:=x;

writeln(‘min=’, min:4:2);

end;

if xthen writeln (‘z=’, max:4:2);

else writeln(‘z=’, min:4:2);

readln;

end.

12.Алгоритми розгалуження, які призначені для перевірки влучення в один з декількох інтервалів.

Бали Оцінка

88-100 <<відмінно>>

71-87 <<добре>>

50-70 <<задовільно>>

0-49 <<незадовільно>>

Скласти програму, яка для конкретного студента (name) і його кількості

балів (bal) виводить його оцінку (mark).

program Marks;

var bal: integer; name, mark: string;

begin

write (‘Введіть прізвище’);

readln (name);

write (‘Введіть бали’);

readln (bal);

case bal of

88…100: mark:= ‘відмінно’;

71…87: mark:= ‘добре’;

50…70: mark:= ‘задовільно’;

0…49: mark:= ‘незадовільно’;

else mark: = ‘0’

end;

if mark < > ‘0’ then writeln (name:15, mark:15)

else writeln (‘помилка під час введення кількості балів’):

end.

Напишем программу, которая определяет квартал года по введенному числу месяца.

program vetvlenija8;

uses crt;

var NUM:integer;

begin

clrscr;

write (‘Введите номер месяца’);

readln (NUM);

case NUM of

1,2,3: writeln (‘Первый квартал’);

4,5,6: writeln (‘Второй квартал’);

7,8,9: writeln (‘Третий квартал’);

10,11,12: writeln (‘Четвертый квартал’)

else

writeln (‘Вы неправильно указали месяц’)

end;

readln

end.

Задача 1. Обчислити і вивести значення складеної функції у у деякій заданій користувачем точці х, якщо

program Myfunction;

uses Crt;

var x,y:real;

begin

writeln ('Bвeдіть x');

readln(x);

if x < -1 then y:=ln(abs(x)) else

if (x>=-l) and (x<l) then y:=sin(x) else y:=cos(x);

writeln('x=',x:5:2,' y=',y:5:2);

readln;

end.

За рейтинговою системою оцінка визначається таким чином: якщо загальний бал учня становить не менше 92% від максимального, то виставляється оцінка 12, якщо не нижче 70%,

то – оцінка 8, якщо ж не нижче 50%, то – оцінка 5, в інших випадках – оцінка 2. Визначте оцінку учня, якщо він набрав N балів, а максимальне значення загального балу становить S.

Program Task_14;

Uses crt;

Var N, S, Grade:integer; {N – бали, що набрав учень;

S – максимальне значення сумарного балу;

Grade – оцінка учня}

Begin

Clrscr;

Wrіte(‘Введіть максимальне значення сумарного балу, що може набрати учень: ‘);

Readln(S);

Write (‘Введіть кількість балів, що отримав учень: ‘);

Readln(N);

If (S<=0) or (N<=0) or (N>S) Then writeln(‘Помилка вхідних даних’)

Else

Begin

N:=round(N/S*100); {Знаходження відношення балів учня до максимально можливого}

If N>=92 then Grade:=12;

If (N<92)>=70) then Grade:=8;

If (N<70)>=50) then Grade:=5;

If (N<50)>0 then Grade:=2;

Writeln(‘Учень отримав оцінку: ’, Grade);

End;

Readkey;

End.

14.Алфавіт і словник мови Турбо Паскаль. Правила запису ідентифікаторів.

Основними елементами мови Паскаль є символи, слова, вирази, команди (оператори).

Символи — нероздільні знаки, які обробляє транслятор мови.

Слова — мінімальна смислова одиниця мови, що складається із символів (ідентифікатори, числа, службові слова).

Вирази — це послідовності, що складаються з імен змінних, функцій, констант, знаків операцій і круглих дужок, що визначають порядок виконання дій.

Вирази можуть бути арифметичними і логічними. Арифметичними є вирази, які записуються за допомогою арифметичних операцій і в результаті обчислення яких одержують числові значення. Окрім відомих чотирьох арифметичних дій у Паскалі є дії div (частка від ділення націло двох цілих чисел) і mod (остача від ділення націло двох цілих чисел). В арифметичних виразах можуть використовуватися також стандартні функції: тригонометричні (sin(x), cos(x), arctan(x)), визначення модуля (abs(x)), округлення (round(x)), піднесення до квадрата (sqr(x)) та інші.

Команди (оператори) — це вказівки на виконання окремих дій.

Мова Паскаль містить символи для складання ідентифікаторів (великі та малі латинські букви, арабські цифри, знак підкреслення); символи-роздільники (пропуск, керуючі символи з ASCII-кодами від 0 до 31);спеціальні символи, що виконують певні функції при побудові різних конструкцій мови (+ – * / = > <.,;: @ ‘ () { } [ ] # $ ^); складові символи, які сприймаються компілятором як єдине ціле (=: = (* *) (..)..); «невживані» символи (символи, що не входять до алфавіту мови, але використовуються в коментарях та у вигляді значень символьних і рядкових констант).

Идентификатор - это строка символов, используемая для идентификации (или именования) некоторого элемента программы.

Идентификаторы в Паскаль- это имена констант, переменных, типов, процедур и функций используемых в программах.

Идентификатор всегда начинается буквой или знаком подчёркивания, за которым могут следовать буквы и цифры. Идентификатор может иметь произвольную длину, но значащими являются только первые 63 символа.

Пробелы и специальные символы не могут входить в идентификатор.

Приведём примеры идентификаторов:

Дата добавления: 2015-05-08