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


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

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

II.  Словесний запис алгоритму:

2.1 Вивести на екран умову задачі

“Три туристи, які володіють одним велосипедом, повинні прибути на базу в найкоротший термін (час оцінюється по останньому прибулому). Велосипед може взяти лише двох, тому третьому туристу приходиться спочатку йти пішки. Велосипедист довозить другого туриста до деякої точки дороги, звідти той продовжує рух пішки, і вертається за третім. Знайти середню швидкість туристів, якщо швидкість пішохода V1, а велосипедиста V2.”

2.2 Вивести на екран надпис, який складається з 3-x рядків “Працює програма <швидкість>. Вона обчислює середню швидкість туристів”.

2.3 Вивести на екран надпис:

“Введіть значення швидкості пішохода V1 і швидкості велосипедиста V2”.

2.4 Ввести з клавіатури значення V1 і V2

2.5 Підрахувати значення Vср по формулі

2.6 Вивести значення Vср на екран.

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

АЛГ Швидкість (дійсн V1,V2,Vср)

АРГ V1, V2

РЕЗ Vср

ПОЧ

Виведення  Працює програма <Швидкість>

Виведення Три туристи, які володіють одним велосипедом, повинні прибути на базу в найкоротший термін (час оцінюється по останньому прибулому). Велосипед може взяти лише двох, тому третьому туристу приходиться спочатку йти пішки. Велосипедист довозить другого туриста до деякої точки дороги, звідти той продовжує рух пішки, і вертається за третім. Знайти середню швидкість туристів, якщо швидкість пішохода V1, а велосипедиста V2.

Виведення Введення початкових даних

Виведення Введіть V1

Введення V1=”, V1

Виведення Введіть V2

Введення V2=V2

Vср=((3* V1+ V2)/(3* V2+ V1))*V2

Виведення Vср

КІН.

 

IV.  Запис алгоритму на мові Паскаль.

Program Zad1;

      uses wincrt;

 

Procedure Task; {виведення умови задачі}

 

         begin

writeln (Три туристи, які володіють одним велосипедом,’);

writeln (‘повинні прибути на базу в найкоротший термін’);

writeln (‘(час оцінюється по останньому прибулому).’);

writeln (‘Велосипед може взяти лише двох,’);

writeln (‘тому третьому туристу приходиться спочатку йти пішки.’);

writeln (‘Велосипедист довозить другого туриста до деякої точки дороги,’);

writeln (‘звідти той продовжує рух пішки, і вертається за третім.’);

writeln (‘Знайти середню швидкість туристів,’);

writeln (‘якщо швидкість пішохода V1, а велосипедиста V2.);

writeln (‘Працює програма <швидкість>’);

writeln (‘Вона обчислює середню швидкість’);

writeln (‘туристів’);

end;

 

Procedure Enter;

      var V1, V2, Vcр:integer;

begin

  writeln (‘Введіть V1’);

    write (‘V1=’);

      readln (V1);

       writeln (‘Введіть V2’);

write (‘V2=’);

  readln (V2);

    Vср=((3* V1+ V2)/(3* V2+ V1))V2;

    writeln (‘Середня швидкість велосипедистів рівна Vср=’, Vср);

end;

 

      begin

Task;

Enter;

      end.

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

Три туристи, які володіють одним велосипедом, повинні прибути на базу в найкоротший термін (час оцінюється по останньому прибулому). Велосипед може взяти лише двох, тому третьому туристу приходиться спочатку йти пішки. Велосипедист довозить другого туриста до деякої точки дороги, звідти той продовжує рух пішки, і вертається за третім. Знайти середню швидкість туристів, якщо швидкість пішохода V1, а велосипедиста V2.

Працює програма <швидкість>

Вона обчислює середню швидкість туристів

Введіть V1=5

Введіть V2=10

Середня швидкість велосипедистів рівна Vср=7.1

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

В програмі використовуються дві процедури: Task, Enter.

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

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