Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Енциклопедія сузір’їв
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут підприємництва та перспективних технологій
Факультет:
КН
Кафедра:
Не вказано
Інформація про роботу
Рік:
2006
Тип роботи:
Курсова робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство науки та освіти України
Інститут підприємництва та перспективних технологій
При Національному університеті «Львівська політехніка»
Кафедра інформаційних систем
та технологій
Основи програмування та алгоритмічних мов
Курсова робота на тему:
«Енциклопедія сузір’їв»
Вступ
Дана програма – «Енциклопедія сузір’їв» може використовуватись у школі для графічеого відображення сузір’їв, для їх вивчення в курсі астрономії, у навчальних астрономічних гуртках, для дистанційного вивчення за допомогою інтернету, для розваг: у планетарії може створити враження зоряного неба, чи поокремо відображати сузір’я для їх вивчення та для перевірки знань.
Крім Паскаль-програми дану енциклопедію можна створити в інших середовищах програмування типу С++ , Delphi та в графічних чи текстових редакторах типу Paint, CorelDraw, Word, Excel, Access та ін.
Я виконав дану програму саме за допомогою середовища програмування Паскаль, тому що цього вимагає відпрацювання навчальної практики, тобто я відпрацював та вдосконалив свої теоретичні знання у середовищі Turbo Pascal. Отримана в результаті програма, виконана в Паскалі, має зрозумілий, доступний та наочний вигляд, легко піддається обробці та змінам. Але програма Паскаль має певні недоліки – це її примітивність щодо С++ чи Delphi, неприємний інтерфейс, порівняно невелика функціональність.
У програмі я використав 14 вхідних файлів даних типу текст, доступних для перегляду та корекції текстовими редакторами, що надає програмі властивості такзваної «Оболонки» для створення подібних завдінь.
Зміст:
Опис програми
Вступ
Процедура
Початок програми
Список сузір’їв
Оголошення графіки
Сузір’я ВОДОЛІЙ
Сузір’я КОЗЕРІГ
Сузір’я ПІВДЕННА РИБА
Сузір’я СКОРПІОН
Сузір’я ТЕРЕЗИ
Сузір’я ДІВА
Сузір’я ЛЕВ
Сузір’я РАК
Сузір’я ДРАКОН
Сузір’я РИБИ
Сузір’я МАЛИЙ КІВШ
Сузір’я ВЕЛИКИЙ КІВШ
Сузір’я ОВЕН
Блоксхема
Опис програми:
Вступ
(відображає назву програми, використані модулі, змінні)
Program Kursova; - оголошення назви програми;
uses crt, graph; - оголошення викоритованих модулей crt для дружелюбного оформлення програми, graph для включення графіки, що являєтькя ключовим елементом програми;
var f,ff:text; n:string; d,m,g,x,y:integer; - у розділі var оголошую наступні змінні:
f,ff:text; - два файли типу текст, що відповідатимуть вхідним файлам, n:string; - оголосив змінну для зчитування з файлу назв сузір’їв, d,m,g,x,y:integer; - оголосив змінні d,m змінні типу цілі для ініціалізації графіки, g – змінна типу цілі для перевірки умови номера сузір’я, x,y – змінні типу цілі для зчитування координат зірок з вхідного файла даних;
Процедура
(відображає структуру та функцію процедури,
змінні та команди задані у ній)
procedure mal(p,r:integer); - оголошення процедури mal з такими вхідними змінними: p,r:integer – ці змінні типу цілі використовуються у процедурі для розташування координатів зірок (у програмі задаються змінні x,y);
var q,e:integer; t:real; - у розділі процедури var я оголосив наступні змінні: q,e:integer; - змінні типу цілі, для координат зірок, t:real; - змінна типу цисло, що використовується у процедурі для малювання зірки спеціальною кривою побудованою за параметричним поданням (у програмі я використав крок для цієї змінної 0,02);
begin – оголосив початок виконання процедури;
t:=0; - початкове значення змінної t встановив 0;
while t<=6.28 do begin – задано умову, при якій якщо t<=6.28 то виконуються наступні команди;
q:=trunc(25*cos(2*t)*cos(3*t)*cos(4*t)+p); - обчислюється координата за абсцисою для зірки за параметричним поданням;
e:=trunc(25*sin(2*t)*sin(3*t)*sin(4*t)+r); - обчислюється координата за ординатою для зірки за параметричним поданням;
putpixel(q,e,15); - ця команда малює точку за заданими координатами білого кольору (15 – відповідає білому кольору);
t:=t+0.02; - змінній t присвоюється значення t+0.02 тобто t збільшується на 0,02 – це і є кроком процидури;
end; - оголошується закінчення циклу з умовою;
end; - оголошується закриття процедури;
Початок програми
(починається сама програма, на початку якої
відображається титульна сторінка)
begin – оголошую про початок програми, програму прочинаю з титульної сторінки:
textbackground(10); - ця команда задає колір тла;
clrscr; - очищення екрану, без цієї команди заданий колір тла буде лише кольором знакомісця;
textcolor(5); - цією командою задається колір тексту;
gotoxy(16,2); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Ministerstvo osvity ta nauky Ukrajiny'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(10,3); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Instytut pidpryjemnyctva ta perspektyvnyh tehnologij'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(11,4); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Pry Nacionalnomu universyteti "Lvivska politehnika"'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(15,7); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Kafedra informacijnyh system i tehnologij'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(25,11); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Kursova robota'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(18,12); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Na temu "Encyklopedija suzirjiv"'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(45,17); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Vykonav'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(45,18); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Student grupy KNm-21'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(45,19); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Bernatskyy Roman'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(45,20); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Pryjnav'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(45,21); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Pasichnyk Olena Georgijivna'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
gotoxy(30,24); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
writeln('Lviv 2006'); - за допомогою цієї команди програма виводить но екран задані у дужках дані;
readln; - дякуючи команді запиту з клавіатури, програма затримує дані на екрані до натиску клавіші вводу;
clrscr; - очищення екрану;
Список сузір’їв
(відображаються дані з вхідного файла з назвами сузір’їв,
відбувається запит конкретного сузір’я)
assign(ff,'star.txt'); - команда, що встановлює зв’язок між файлом 'star.txt' на диску та ff, що буде використовуватись у програмі;
reset(ff); - відкриття файлу для перегляду;
while not(eof(ff)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу ff, що відповідає файлу 'star.txt' на диску;
readln(ff,n); - команда для зчитування змінної n з ff(зчитується текстова інформація, що міститься в одному рядку файла вхідних даних);
writeln(n); - виводиться змінна n зчитана з файла з переходом на наступний рядок, що зумовлює написання наступних даних у новому рядку;
end; - закривається процедура з умовою;
gotoxy(40,25); - ця команда зумовлює перехід у визначене місце для подальшого написання певного тексту;
write('Vvedit nomer suzirja =>'); - за допомогою цієї команди на єкран виводиться у дружелюбній формі запитання щодо номера сузір’я, якого хоче побачити користувач;
readln(g); - ця команда зчитує відповідь користувача, присвоює значення номера сузір’я змінній g;
clrscr; - відбувається очищення екрану;
close(ff); - закривається файл вхідних даних;
Оголошення графіки
(оголошуються змінні та ініціалізація графіки за ними)
d:=detect; m:=0; - змінні набувають значень необхідних для ініціалізації графіки;
initgraph(d,m,''); - ця команда ініціалізує (включає) графіку;
Сузір’я ВОДОЛІЙ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=1 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'VL.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я КОЗЕРІГ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=2 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'KR.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ПІВДЕННА РИБА
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=3 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'PR.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я СКОРПІОП
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=4 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'SN.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ТЕРЕЗИ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=5 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'TZ.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ДІВА
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=6 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'DV.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ЛЕВ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=7 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'LV.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я РАК
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=8 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'RK.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ДРАКОН
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=9 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'DN.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я РИБИ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=10 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'RB.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я МАЛИЙ КІВШ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=11 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'MK.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ВЕЛИКИЙ КІВШ
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=12 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'VK.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Сузір’я ОВЕН
(у цій частині програми відбувається перевірка бажаного до відображення користувачем сузір’я, якщо умова справджується, то за рахунок нижчеописаних команд малюється зображення даного сузір’я)
if g=13 then begin – за допомогою цієї команди здійснюється перевірка змінної g на рівність значенню номера сузір’я, якщо умова виконується, то виконуються й наступні команди:
assign(f,'ON.txt'); - команда, що встановлює зв’язок між файлом на диску та f, що буде використовуватись у програмі;
reset(f); - відкриття файлу для перегляду;
while not(eof(f)) do begin – умова, за якої до кінця файлу буде зчитуватись інформація з файлу f, що відповідає на диску, з якого зчитуються наступні дані:
readln(f,x); - зчитується змінна x з файлу f, що використовується у процедурі mal для обчислення координати за віссю абсцис;
readln(f,y); - зчитується змінна y з файлу f, що використовується у процедурі mal для обчислення координати за віссю ординат;
mal(x,y); - використання вищезгаданої процедури;
end; - закривається процедура з умовою;
close(f); - закривається файл вхідних даних;
end; - закриття умови з перевіркою змінної g;
Кінець програми
(у цій частині програми затримується результат, тобто зображення сузір’я на екрані, після чого й закривається дана програма)
readln; - дякуючи команді запиту з клавіатури, програма затримує дані на екрані до натиску клавіші вводу;
clrscr; - очищення екрану, використовується для того, щоб при запуску іншої програми не залишалось нічого на екрані від попередньої;
closegraph - за допомогою цієї команди закривається графіка;
end. – команда закриває програму.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора