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


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

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

№1         Вільне падіння.

За який час  тіло, яке вільно падає без початкової швидкості , проходить п-ий сантиметр свого шляху.

 

1.Розробка математичної моделі:

Дано: V0=0 м/с;

g=9,81 м/с;

Знайти: - час.

Розвязання .

1.1 Переміщення при прямолінійному рівноприскореному русі визначається  за формулою

1.2 Оскільки початкова швидкість дорівнює нулю , то формула набере вигляду  

1.3 Вихідним рівнянням є  де -час руху тіла на п-му сантиметрі шляху.

Звідси

 

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

2.1 Вивести текст : “Працює програма <Вільне падіння>”.

2.2 Вивести текст задачі.

2.3 Вивести текст: ”Введення вхідних даних”.

2.4 Вивести текст: “Введіть п ”.

2.5 Вивести <n=>; n.

2.6 Розрахувати значення по формулі 

2.7 Вивести текст: “Результат обчислень ”.

2.8 Вивести текст і значення змінної : “час = ” ; .

 

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

АЛГ  Вальне падіння (дійсні п,   )

АРГ п

РЕЗ

ПОЧ дійсн. g

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

      Виведення  Вона обчислює час , за який тіло

      Виведення     проходить п-ий сантиметр

      Виведення

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

      Виведення    п=”; п

                                       =SQRT(2/g)*(SQRT(n)-SQRT(n-1))

Виведення 

КІН

 

4. Запис програми на мові Паскаль:

    PROGRAM zadacha;

  Uses wincrt;

Const g =9,81;

Var  t,n : real ;

Procedure NAME;

Begin

Writeln (‘Працює програма <Вільне падіння>’);

Writeln  (‘Виконала студентка 32 групи );

Writeln  (фіз- мат  факультету );

Writeln (‘Сіміраз О. Я.’);

End;

Procedure TASK;

 Begin

Writeln  (‘Текст програми: ’);

Writeln (‘За який час t тіло ,’);

Writeln  (‘яке вільно падає без початкової  швидкості ,’ );

 Writeln   (‘проходить п-ий сантиметр свого шляху ?’);

End.

Procedure Work;

Begin

Writeln  (‘ Введіть  n ’);

Readln (n);

          t:=SQRT(2/g)+(SQRT(n)-SQRT(n-1));

writeln (‘t=’,t);

end;

begin

NAME;

TASK;

WORK;

End.

 

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

5.1 Оформлення програми

       В процедурі NAME представлена інформація про розробника.

5.2   Умова

    В процедурі  TASK описується  умова задачі.

5.3   Обчислення   В процедурі WORK вводиться n і обчислюється значення   по формулі 

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

Працює програма <Вільне падіння>

Виконала студентка 32 групи

Фіз-мат  факультету

Сіміраз О. Я.

Текст програми:

За який час t тіло ,

яке вільно падає без початкової  швидкості ,

проходить п-ий сантиметр свого шляху ?

Введіть  n 1

0.45   

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