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


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

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

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

2.2  Вивести на екран надпис:”Працює програма <Шлях>вона обчислює переміщення точки В¢ за певний час t”;

2.3  Вивести на екран надпис:”Введіть значення швидкості V точки A, прискорення <a> яким рухається точка C¢, час руху t;

2.4  Ввести з клавіатури значення V, a, t;

2.5  Підрахувати значення ВВ¢ за формолою:

BB¢ =;

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

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

алг “Шлях точки В¢

     арг V, a, t

     рез S

поч      дійсні V, a, t, S

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

вивести “Працює програма <Шлях точки В¢>

вивести Програма обчислює S точки B¢

 вивести Введіть V, a, t

ввести  V

ввести  a

ввести  t

;

вивести “Шлях точки В¢ за час t рівний:

вивести S

кін.

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

Program shlyah;      {Заголовок програми}

 uses wincrt;

 procedure Task;

begin

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

    writeln ('   Три точки A, B, C, в початковий момент часу розміщені');

writeln (' на одній прямій, на рівних відстанях одна від одної.  Точка А');

writeln (' почала рухатись вертикально вверх з постійною швидкістю V,');

writeln (' а точка С без початкової швидкості вертикально вниз зсталим');

writeln (' прискоренням <a>. Як повина рухатись по вертикалі точка В, щоб');

writeln (' всі три точки знаходились постійно на одній прямій? Точки ');

writeln ('починають рухатись одночасно.');

    writeln('Працює програма <Шлях точки В>');

    writeln('Вона обчислює шлях точки В за час руху t.');

end;

procedure enterout;

 var a,S,V,t:real;   {Опис змiнних}

begin

    write ('Введіть V, a, t');

    readln(V,a,t);

    S:=V*t/2-a*t*t/4;

    writeln('Шлях точки В рівний S=',S);

end;

    BEGIN

    TASK;

    enterout;

    END.

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

В програмі виконано дві процедури TASK і ENTEROUT.

В процедурі TASK здійснюється вивід на екран умови задачі, та повідомлення про те що програма буде конкретно робити. Це здійснюється за допомогою оператора WRITELN.


В процедурі ENTEROUT здійснюється вивід запросу на введення, та введення величин V, a, t. Також очислюється шлях S, за формолою    S:=V*t/2-a*t*t/4.

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

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