МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Кафедра інформаційних систем та мереж Лабораторна робота №2 на тему ОПЕРАТОР ПРИСВОЄННЯ. ВВЕДЕННЯ ТА ВИВЕДЕННЯ ІНФОРМАЦІЇ Львів-2009 Мета роботи Освоїти найпростішу структуру програми; отримати основну навики організації вводу-виводу значень стандартних типів даних та використання оператора присвоєння. Перший рівень Написати програму, яка виводить на екран Ваше ім’я. program name; uses crt; begin clrscr; writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++'); writeln ('+ ++ +'); writeln ('+ ++++ ++ ++ +++ +++++ ++ ++ + +++ +'); writeln ('+ ++ ++ ++ ++ ++++ ++ ++ ++ ++ ++++ +'); writeln ('+ ++ ++ ++++++ ++ ++ ++ ++ ++ ++ ++ ++ +'); writeln ('+ +++++++ ++ ++ ++ ++ +++++ ++ ++++ ++ +'); writeln ('+ ++ ++ ++ ++ +++++++ ++ ++ +++ ++ +'); writeln ('+ ++ ++ +'); writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++'); readln; end.
Другий рівень Написати програму, яка обраховує значення f(x)=x/76 та g(x)=23x-2*x*x, а також будує наступну таблицю: 0 100  F(x) f(0) f(100)  G(x) g(0) g(100)   program calc; uses crt; var f1,f2,g1,g2,x1,x2 : real; begin clrscr; writeln ('vvedit x'); read (x1,x2); f1:=x1/76; f2:=x2/76; g1:=23*x1-2*x1*x1; g2:=23*x2-2*x2*x2; writeln (' ',x1:8:1,' ',x2:8:1); writeln ('F(x) ',f1:8:3,' ',f2:8:3); writeln ('G(x) ',g1:8:3,' ',g2:8:3); readln; readln; end.
Третій рівень Коли Слоник бачить, що хтось знайшов Пусика, він починає помирати від заздрості. У четвер Мряка у присутності Слоника знайшла спочатку N Пусиків, а потім ще на M Пусиків більше. Скільки разів у цей день помирав від заздрощів Слоник? program slonek; uses crt; var a,n,m : integer; begin clrscr; writeln ('Vvedit kilkist pusykiv yaki mrjaka znajshla spo4atku'); read (n); writeln ('Vvedit na skilkyt pusykiv bilshe znajshla mrjaka'); read (m); a:=n+n+m; writeln ('U cej den slonek vmerav ',a,' raz vid zazdroshchiv'); readkey; end.
Висновок На лабораторній роботі освоїв найпростішу структуру програми; отримав основнвні навики організації вводу-виводу значень стандартних типів даних та використання оператора присвоєння.