Пример оформления задания к РГР

№ 3. Даны действительные числа a[1],..., a[10]. Вычислить сумму положительных чисел.

Program PRIM;

var a: array[1..10] of integer; i, s: integer;

begin

writeln('Введи 10 чисел массива А');

for i: =1 to 10 do read(a[i]);

write('Исходный массив: ');

for i: =1 to 10 do write(' ', a[i]: 3); writeln;

s: =0;

for i: =1 to 10 do

if a[i]> 0 then s: =s+a[i];

writeln('Сумма = ', s: 4)

end.

Исходный массив: 5 -4 2 -6 -7 3 -1 11 -9 -1

Сумма = 21

Приложение Г

Пример диалога с ПЭВМ

ВВОД ДАННЫХ

Введите номер курса (1 или 3): 1

Введите номер РГР (1-4 или 1-2): 1

Введите номер варианта: 1

Введите путь и имя файла: С: \ТЕМР\ИТ06-1\ргр1

Методические указания

к расчетно-графическим и самостоятельной работам

по дисциплине

«Основы программирования и алгоритмические языки»

(для студентов специальности 7.080402)

Составители: Валерий Иванович Кравченко,

Ольга Владимировна Веремей,

Редактор Ольга Николаевна Болкова

Подп. в печ. Формат 60х80 ¹/₁₆.

Ризограф. печать Усл. печ. л. 2, 5 Уч.-изд. л. 1, 82

Тираж 75 экз. Заказ №

¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾ ¾

ДГМА. 84313, Краматорск, ул. Шкадинова, 72