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

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

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

ВУЗ:

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

Інститут:

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

Факультет:

Не вказано

Кафедра:

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

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

Рік:

2015

Тип роботи:

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

Предмет:

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

Група:

КН-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, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.

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

2015

Коментарі

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

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

поділитись