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


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

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

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

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

2.2. Вивести на екран монітора надпис: “Введіть площі <S> і периметра <p>.

2.3. Ввести з клавіатури значення S і p.

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

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

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

АЛГ       трикутник (дійсн p1, S, c)

    АРГ   p1, S

    РЕЗ  с

ПОЧ

Виведення    Працює програма <Трикутник>.

Виведення    Умова задачі

  Виведення   Дано площу і периметр прямокутного трикутника.

 Знайдіть гіпотенузу.

Виведення

Виведення  Введіть р1

Введення     “р1=”, р1

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

Введення     “S=”, S

   p=p1/2    

            c=p-S/p

Виведення   c

КІН.

 

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

Program Trikutnik;

uses wincrt;

     procedure Task;

         begin

            writeln (‘Задача Ньютона’);

writeln (‘Дано площу і периметр прямокутного трикутника. Знайдіть його гіпотенузу’);

end;

 

porcedure Hipotenyza;

var s,p1,c:integer;

    begin

   writeln (‘Введіть периметр’);

     write (‘p1=’);

       readln (p1);

         writeln (‘Введіть площу’);

write (‘S=’);

  readln (S);

p:=p1/2;

c:=p-S/p;

writeln (‘Гіпотенуза трикутника рівна’);

  write (‘c=’);

    readln (c);

   end;

       begin

Task;

Hipotenyza;

       end.

 

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

Задача Ньютона

Дано площу і периметр прямокутного трикутника. Знайдіть його гіпотенузу

Введіть периметр p1=30

Введіть площу S=60

Гіпотенуза трикутника рівна c=11

 

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

В програмі Tricutnik виконується дві процедури:

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

В процедурі Hipotenyza вводяться початкові дані за допомогою оператора writeln, а також обчислюється шукана величина – гіпотенуза за відповідною формулою, а також виводиться результат обчислень за допомогою оператора writeln.

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