Інформатика

Безкоштовно

Зараховано 2 учнів

Урок 53. Розробка програмного рішення.

Проект «Роль всесвітньої мережі Інтернет у нашому житті» 

Звіт проекту оформити у вигляді презентації, або у вигляді реферату.

Розглянемо етапи роботи над проектом на прикладі проекту «Роль всесвітньої мережі Інтернет у нашому житті».
Мета проекту:
• дослідити, яке місце займає Інтернет в нашому житті;
• дізнатись, які небезпеки та можливості приховує в собі мережа;
• підготувати рекомендації для активних користувачів Інтернету.

У ході виконання проекту ви проаналізуєте користь та можливу шкоду від Інтернету та знайдете відповідь на питання: як не за­блукати у всесвітній мережі.

Розв’язати компетентнісні задачі проекту.
    І. Дослідження моделі необмеженого розповсюдження комп’ю­терного вірусу в мережі Інтернет.
    1) Учень отримав електронного листа, до якого був прикріплений файл, що містив комп’ютерний вірус ILOVEYOU. Коли учень відкрив файл, вірус видалив усі графічні і звукові файли на диску, а потім, використовуючи адресну книгу поштової про­грами, розіслав такого саме листа всім знайомим учня. Завдя­ки використанню електронної пошти вірус ILOVEYOU заразив величезну кількість комп’ютерів по всьому світу за один день. Визначте, скільки комп’ютерів інфікував комп’ютер учня через 24 години, якщо середній коефіцієнт поширення вірусу дорівнює двом адресам за годину. Наявність засобів антивірусного захисту не враховувати. Динаміку поширення комп’ютерного вірусу можна описати за допомогою математичної моделі.Дано: Кі, Кі+1 — число заражених комп’ютерів в i-й та (і+1)-й моменти часу;
R — коефіцієнт поширення вірусу;
Т — загальний час поширення вірусу;

                dt — період поширення вірусу.

 Знайти: К — кількість заражених комп’ютерів за час Т.

    
    Зв’язок: N = Т / dt; Кі+1 = Кі+ Кі *  R, i = 1..N
2) Розробіть інтерфейс проекту згідно з рисунком. 

 3) Запишіть код обробника події для кнопки Обчислити: 

var K, R, T, dt, N, i: integer;
begin
K:=StrToInt(Edit1.Text);
R:=StrToInt(Edit2.Text);
T:=StrToInt(Edit3.Text);
dt:=StrToInt(Edit4.Text);
N:=Round(T/dt);
for i:=0 to N do K:=K+K*R;
Edit5.Text:=IntToStr(K);
end;

0.00 на основі 0 рейтингів

5 зірок
0%
4 зірок
0%
3 зірок
0%
2 зірок
0%
1 зірок
0%