Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформатика
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІТРЕ
Факультет:
ЗІ
Кафедра:
Радіоелектроніки та електронної техніки (РЕПС)
Інформація про роботу
Рік:
2024
Тип роботи:
Лабораторна робота
Предмет:
Інформатика та обчислювальна техніка
Варіант:
13
Частина тексту файла (без зображень, графіків і формул):
1.ПОСТАНОВКА ЗАДАЧІ.
Проаналізуємо дані.
Вхідні дані: змінні x,y( дійсні.
Вихідні дані: змінні Z, W( дійсні; повідомлення: “Умова виконується” та “Умова не виконується”.Потрібно скласти програму за заданою блок-схемою.
2.РОЗРОБКА СТРУКТУРИ ДАНИХ.
№п(п
Позначення
Ім’я
Тип
Призначення, опис
1
x
x
дійсна
Аргумент функції, вхідна
2
y
y
дійсна
Аргумент функції, вхідна
3
Q
Q
дійсна
Значення функції, вихідна
4
(
t1
символьна
Повідомлення: “Умова ”
5
(
t2
символьна
Повідомлення: “виконується”
3.РОЗРОБКА БЛОК-СХЕМИ АЛГОРИТМУ.
Н
Т
ФУНКЦІЯ Z(X,Y):
Функція W (x,y):
4.ЗАПИС ТЕКСТУ ПРОГРАМИ.
program Project1;
uses crt;
var x,y,q:real;t1,t2:string;
function Z(x,y:real):real;
begin
Z:= sqr(1+exp(x))*sin(2*y+1)/exp(0.2*ln(abs(2*y+1)));
end;
function W(x,y:real):real;
begin
w:=exp(0.6*ln(1+exp(x)))*abs(cos(2*y+1))*ln(3)/ln(2*y+1);
end;
begin
writeln('vvedit x');readln(x);
writeln('vvedit y');readln(y);
t1:='ymova';t2:='vukonyjetcja';
if (y+1=0) and (x+1<>0) then begin
q:=z(x,y);writeln(t1,' ',t2); end else begin
q:=w(x,y);writeln(t1,' ne ',t2); end; write('q=',q:8:3); readln;
end.
5.ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.
Висновок:я ознайомився з оператором розгалуження та його властивостями, символьними змінними та діями над ними, та з логічними функціями «не», «або», «і».
Міністерство освіти і науки україни
НУ «Львівська Політехніка»
Кафедра теоретичної радіотехніки та радіовимірювань
ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №2
НА ТЕМУ «ПРОГРАМУВАННЯ АЛГОРИТМІВ З РОЗГАЛУЖЕННЯМ»
з дисципліни «Інформатика та обчислювальна техніка»
Варіант 13
Підготував:
студент
групи РТ-11
Андрій Новосельський
Прийняв:
Нестор Н. І.
Львів 2009р.
05.05.2014 22:05-
Коментарі
Ви не можете залишити коментар. Для цього, будь ласка, увійдіть
або зареєструйтесь.
05-10-2014 20:54:11
t6
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора