Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ОПЕРАТОР ПРИСВОЄННЯ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2009
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра інформаційних
систем та мереж
Лабораторна робота №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.
Висновок На лабораторній роботі освоїв найпростішу структуру програми; отримав основнвні навики організації вводу-виводу значень стандартних типів даних та використання оператора присвоєння.
15.03.2012 12:03-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора