Лабораторно – практична робота №23

Тема: Запуск програми та виконання. Створення та реалізація найпростіших циклічних програм

Мета: навчити учнів вводити програми, запускати на виконання та виправляти помилки. Переглядати результат

 

Обладнання: комп’ютер, опорний конспект

 

Терміни і поняття до ЛПР №23: мова програмування Паскаль, turbo.exe, транслювання, Alt+F5, Ctrl+F9, program, var, integer, real, begin, writeln, end

 

Хід роботи

Задача.. Скласти програму обчислення значення функції Y:= (a+b-c)/(a-b) при а:=10 в:=15; с:=7.

 

Program Fun1;

Var

y: real;a, b, c: integer;

Begin

write ('Введіть значення a=');

readln (a);

write ('Введіть значення b=');

readln (b);

write ('Введіть значення c=');

readln (c);

Y:=(a+b-c)/(a-b);

writeln ('Значення функції Y=',Y)

end.

 

2. Запустіть програму середовища мови програмування Паскаль, клацнувши на відповідній піктограмі, чи виконавши команду turbo.exe.

3. Відкрийте нове вікно (F10, File, New).

4. Введіть текст програми. Символи «:», «;» є на клавіші з літерою «ж», а
«'» — з літерою «є». Поставте крапку в кінці тексту.

5. Виправте очевидні помилки.

6. Командою Run запустіть програму на виконання.

Відбудеться транслювання тексту програми i виконання, якщо в тексті не буде помилок.

7. Якщо є помилки, то виправте їх.

8. Щоб побачити результати роботи програми, відкрийте вікно з
результатами (Alt+F5 ). Перепишіть результати у зошит.

9. Щоб повернутися у вікно програми, натисніть на будь-яку клавішу.

10. Змініть вхідні дані програми так: а:=6 в:=14; с:=4.

11. Запустіть програму на виконання ще раз, застосувавши другий спосіб
— (Ctrl+F9 ). Перепишіть результати з екрану в зошит.

12. Збережіть програму на диску чи дискеті з назвою Fun 1.pas.

13. Вийдіть з середовища програмування ( F10 або File _ Exit ).

14. Складіть програму обчислення значення функції:

15. Введіть дану програму та знайдіть значення функції при a =3, b=4.5, c=7

 

Program Fun2;

Var

y: real;a, b, c: real;

Begin

write ('Введіть значення a=');

readln (a);

write ('Введіть значення b=');

readln (b);

write ('Введіть значення c=');

readln (c);

Y:=(a*b)+(sqr(a)-cos(c))/sqrt(sqr(a)+1);

writeln ('Значення функції Y=',Y)

end.

 

16. Збережіть програму на диску чи дискеті з назвою Fun 2.pas.

17. Складіть програму обчислення значення функцій по варіантах (додаткові завдання).

 

№ з/п Розрахункова формула (в програму формули вводити за правилами) Значення змінних
  а:=6.2, в:=1.4; с:=4  
  а:=2.1, в:= 4.1; с:=3  
  а:=4, в:=7; с:=5  
  а:=1, в:=4; с:=4  
  а:=3.2, в:=5.3; с:=4  

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



double arrow
Сейчас читают про: