Лабораторно – практична робота №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.

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

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

12. Введіть дану програму та знайдіть значення функції при 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.

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

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

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

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

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

Мета: навчити учнів складати циклічні програми

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

Терміни і поняття до ЛПР №24: циклічні програми, вказівки повторення з параметром, for, to, do, факторіал.

Хід роботи

Задача. Знайти значення всіх натуральних чисел від 1 до N ( N=57) ( вказівки повторення з параметром)

Program SUMM1;

Var I,N,S : integer;

Begin

WriteLn( 'Введіть кількість натуральних чисел:');

Write( 'N=' );

ReadLn( n );

S:=0;

For i:=1 to N do

S:=S+i;

WriteLn( 'S=',S )

end.

1. Запустіть програму середовища мови програмування Паскаль

2. Введіть текст програми.

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

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

5. Перепишіть результати у зошит..

4. Змініть вхідні дані програми так: N =25, N =порядковий номер в журналі

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

6. Складіть програму для знаходження факторіала числа n

n!= 1*2*3*…*n, n = порядковой номер в журналі учня +50

9. Результат запишіть в зошит і збережіть програму під назвою Factorial (порядковой номер в журналі +50)