Приклади розв'язування задач на мові програмування Паскаль. Частина 9 - Інформатика - Уроки, реферати, виховні роботи та багато іншого - Обмін досвідом


Форма входу

Вітаю Вас Гість!

Пошук

чат

200

Наше опитування

Чи потрібне зовнішнє оцінювання
Усього відповідей: 235

Статистика


Усього онлайн: 1
Гостей: 1
Користувачів: 0
Головна » Стаття » Інформатика

Приклади розв'язування задач на мові програмування Паскаль. Частина 9

2.     Запис алгоритму на навчальній алгоритмічній мові.

алг “Рій”

     арг

     рез R

поч  цілі  R

     вивести “Умова задачі”

вивести “Працює програма <Рій>

вивести “Програма обчислює кількість бджіл у рою R

 вивести  “Якщо R - кількість бджіл у рою, то:

вивести   - кількість бджіл що сіли на кущ жасміну;“

     вивести    - кількість бджіл, що залишились позаду;”

вивести “ 2 - кількість бджіл біля квітки лотосу.”

ввести “Отже R=+.

вивести Значення R шукається з рівняння:

вивести+, або

вивести “Отже кількість бджіл у рою рівна:

вивести R

кін.

3.     Запис алгоритму на мові програмування Pascal.

program riy;

uses wincrt;

var R:real;

BEGIN

writeln('                       Умова задачі');

writeln('  Із стародавньої Індії до нас прийшла така задача.');

writeln(' Бджоли в кількості рівній квадратному корню із половини всього рою,');

writeln(' сіли на кущ жасміну, залишивши позаду себе 8/9 рою. І тільки одна бджола');

writeln(' з того ж рою кружляла навколо лотосу, зачарована жужанням подруги, необережно');

writeln(' попавшої в полон солодко пахучої квітки.');

writeln('  Скільки всього бджіл в рою?');

writeln('                                                             ');

writeln('                     Працює програма <Рій>');

writeln(' Програма обчислює кількість бджіл у рою R.');

writeln(' Якщо R - кількість бджіл у рою, то: ');

writeln(' корінь квадратний з R/2 - кількість бджіл що сіли на кущ жасміну;');

writeln(' 8*R/9 - кількість бджіл, що залишились позаду;');

writeln(' 2 - кількість бджіл біля квітки лотосу.');

writeln(' Отже R=sqrt(R/2)+8*R/9+2 або 2*R*R-153*R+648=0.');

writeln(' Значення R шукається з квадратного рівняння:2*R*R-153*R+648=0');

R:=(-(-153)+sqrt(-153*(-153)-4*2*648))/(2*2);

writeln('                                                             ');

writeln(' Отже кількість бджіл у рою рівна:R=',R);

END.

5. Коментарій до програми

   Програма виконана за допомогою оператора writeln. В ній спочатку виводиться умова задачі, потім коротке пояснення і результат її виконання.

R – описується як змінна і обчислюється як корінь квадратного рівняння, після чого виводиться на екран. Програма виконується при підключені лише одного модуля wincrt.

 

6. Приклад роботи програми

 

Категорія: Інформатика | Додав: stdynzosh (23.03.2009) | Автор: Олександр
Переглядів: 653 | Рейтинг: 0.0/0
Усього коментарів: 0
Додавати коментарі можеть тільки зареєстровані користувачі.
[ Реєстрація | Вхід ]