Організація введення-виведення інформації. Вивчення стандартних типів даних.. Лабораторна робота з Основи програмування та алгоритмічні мови. Робота № 200710

Перехід до торгівельного партнера Binance

Організація введення-виведення інформації. Вивчення стандартних типів даних.

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Інститут комп’ютерних наук та інформаційних технологій

Факультет:

Не вказано

Кафедра:

Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:

2006

Тип роботи:

Лабораторна робота

Предмет:

Основи програмування та алгоритмічні мови

Група:

КН-1

Варіант:

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 3 з курсу «Основи програмування та алгоритмічні мови» Тема. Організація введення-виведення інформації. Вивчення стандартних типів даних Варіант №12 Виконав: ст. гр. КН-1 Львів-2006 Мета - засвоїти найпростішу структуру програми; 2. Одержання навиків організації введення-виведення значень стандартних типів даних. 3. Одержання практичних навиків роботи в діалоговому режимі. Завдання: Організувати введення і виведення значень даних заданих типів згідно з варіантами таблиці, надаючи їм відповідні заголовки. Постановка задачі : N вар. Цілі числа Дійсні числа Кількість символів Вивести значення логічної змінної Кількість значень для вводу Ширина поля Кількість значень для вводу Ширина поля Кількість знаків після крапки 12 3 4 6 6 2 5 FALSE Блок-схема алгоритму Початок Ввід Х у11 = |у| Вивід у11 у22= |у11+0.5| Вивід у22 Ввід Х,У result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1) Ввід result Кінець program lab3; uses crt; label 1; var y,y11,y12,x,x1,y1,r:real; result:boolean; begin clrscr; 1:write('Vvedit x '); readln(x); if (x>-1)and(x<1) then begin y:=arctan(1/(sqrt(1-x*x)))+x*x; y11:=round(y);y12:=trunc(y); writeln('y=',y:5:2); writeln('y11=',y11:5:2); writeln('y12=',y12:5:2); end else begin writeln('nepravulnuu arhyment x e (-1;1)'); goto 1; end; writeln('Vvedit x1,y1'); readln(x1,y1); result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1); writeln(result); readln; end. Протокол роботи програми : ----------------------------------------------------------------------------------------------- Vvedit X = 2 nepravulnuu arhyment x e (-1;1) Vvedit X = 0.2; y=0.84 y11 = 1.00 y22 = 0.00 ---------------- X = 0.9 Y = 0.7 FALSE ----------------------------------------------------------------------------------------------- X = 0.9 y=1.97 y11 = 2 y22 = 1 --------------- X = 0.3 Y = 0.1 TRUE ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я одержав деякі навики запису виразів у середовищі Turbo Pascal, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.

Лабораторна робота Основи програмування та алгоритмічні мови

01.01.1970 03:01-

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись