Ввести з клавіатури чотирьохзначне число та знайти добуток цифр цього числа.
Лістинг програми
PROGRAM PRIMER1;
USES CRT;
VAR A, A1, A2, A3, A4, A5, A6, A7 : INTEGER;
BEGIN
WRITELN (‘Введіть ціле 4-х значне число’);
READLN (A); // 4375
A1 := A MOD 10; // 5
WRITELN (A1);
A2 := A DIV 10; // 437
A3 := A2 MOD 10; // 7
WRITELN (A3);
A4 := A2 DIV 10; // 43
A5 := A4 MOD 10; // 3
WRITELN (A5);
A6 := A DIV 1000; // 4
WRITELN (A6);
A7 := A1 * A3* A5*A6; // 420
WRITELN (A1, ‘*’, A3, ‘*’, A5, ‘*’, A6, ‘=’, A7);
WRITELN;
END.
Хід роботи:
1. Вивчити теоретичний матеріал.
2. Виконати індивідуальне завдання.
3. Скласти звіт, в якому відповісти на теоретичні питання, описати алгоритм, описати програму, привести контрольний приклад виконання програми.
Контрольні запитання:
1. Для чого призначена мова програмування Pascal?
2. Що таке транслятор?
3. Що таке інтерпретатор?
4. Який порядок створення програми і запису її в файл?
5. Як створити exe-файл?
6. Як виконати програму?
7. З яких розділів складається Pascal-програма?
8. Які стандартні типи даних використовуються у мові Pascal?
9. Який оператор введення даних використовується у мові Pascal?
10. Який оператор виведення інформації використовується у мові Pascal?
11. Які пріоритети математичних операцій використовуються при створенні математичних виразів у мові Pascal?
Індивідуальні завдання: Створити програму на мові Pascal для приведеної задачі згідно варіанту:Обчислити значення функції f(x) при заданому значенні аргументу.