="justify"> присвоювання може перебувати мінлива, константа , арифметичне вираження або виклик функції.
6. Процедури введення - виведення.
програма функція аргумент ідентифікатор
Процедури виведення на екран - write () і writeln (). У дужках вказується список фактичних параметрів даної процедури через кому. Якщо в якості фактичних параметрів використовується рядок, укладена в апострофи, то на екран буде виводитися все, що знаходиться всередині апострофів в тому вигляді, в якому це записано в програмі. Якщо в якості фактичних параметрів використовується змінна, то на екран виведеться значення даної змінної. При виведенні значень змінних можна задавати формат виведених значень. Для змінних цілого типу формат - це ціле число, що визначає кількість позицій, яке буде займати значення на екрані. Для змінних дійсного типу формат - це два числа, розділених двокрапкою. Перше задає кількість позицій, яке буде займати значення на екрані, друге - кількість знаків після коми. Наприклад, writeln ('y =', y: 5: 3);
Процедури введення (читання з клавіатури) - read () і readln (). У дужках вказується через кому список змінних. При виконанні оператора введення комп'ютер чекає введення з клавіатури якого-небудь значення. Користувач повинен ввести з клавіатури значення і натиснути Enter, після чого це значення присвоїться змінної, вказаної в операторі введення. Наприклад, readln (x);
Завдання № 4
1. Постановка завдання.
Дан одновимірний масив, що складається з 6 елементів дійсного типу. Обчислити кількість позитивних елементів масиву. p align="justify"> Дамо ім'я масиву - А.
А = {2.1, - 3.5, 2.8, - 4.3, 7.1, 0.5}
2. Таблиця ідентифікаторів
позначення у заданииидентификаторназначениеAAИмя массіваiiІндекс елементів масиву, лічильник ціклаnnКолічество елементів массіваsКолічество позитивних елементів масиву
. Текст програми CRT; {підключення модуля CRT}
const n = 6; {оголошення константи n = 6}
var A: array [1. n] of real; {оголошення масиву А, що складається з n
елементів дійсного типу}
s, i: byte; {оголошення змінних s і i цілого типу}
begin {початок основної програми}
clrscr; {процедура clrscr очищає екран}
writeln ('Введіть елементи масиву'); i: = 1 to n do ('A [', i, '] ='); (A [i]); {введення елементів масиву}
