Вывод программы

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПРИБОРОСТРОЕНИЯ И ИНФОРМАТИКИ

Кафедра:

«Автоматизированные системы управления и информационные технологии»

Специальность:

Мехатроника и робототехника (Компьютерные технологии управления в робототехнике и мехатронике)

Зачётная работа

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

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

Выполнил:

студент 1 курса

группы 1101

вечернего факультета

ИТ-7

шифр зачетки 110349

Бадалян Армен Геннадьевич

Проверил:

Чуваев Сергей Викторович

Москва – 2011 г.

СОДЕРЖАНИЕ

1.Задача …………………………………………………….………………..………2

2. Листинг программы ………………………………………………..…..……….3

3. Вывод программы ………………………………………………………...……5

4. Заключение …………………………...……….…………………………….…….6

5. Список использованной литературы ………………………………………….7

Задача

В среде программирования Turbo Pascal разработать программный продукт который будет выполнять задание:

«Даны два массива содержащих соответственно 10 и 6 целых элементов, найти сумму положительных элементов»

Листинг программы

Program DvaMassiva;

var

A: array[1..10] of integer; {massiv A}

B: array[1..6] of integer; {massiv B}

i, S1, S2, S: integer; { i-nomer elementа; S, S1, S2 -symma polozhitelnykh elementov}

Begin

S: =0;

S1: =0;

S2: =0;

writeln('');

writeln('Danny dva massiva soderzhashchikh sootvetstvenno 10 i 6');

writeln('tselykh elementov naiti summu polozhitelnykh');

writeln('');

writeln('vedite 10 elementov mssiva A');

for i: =1 to 10 do

readln(A[i]);

for i: =1 to 10 do

if A[i]> 0 then

S1: =S1+A[i];

writeln('summa polozhitelnykh elementov massiva A ravna=', S1);

writeln('vedite 6 elementov mssiva B');

for i: =1 to 6 do

readln(B[i]);

for i: =1 to 6 do

if B[i]> 0 then

S2: =S2+B[i];

writeln('summa polozhitelnykh elementov massiva B ravna=', S2);

S: =S1+S2;

writeln('');

write('symma polozhitelnykh elementov massiva A i B ravna=', S);

readln;

End.

Вывод программы

Заключение

В ходе работы мы научились программировать на языке Pascal и научились работать с масивами.

В данной работе удалось реализовать поставленную задачу.

Список использованной литературы

1) Конспекты по предметам:

1. Технология Разработки Программных продуктов

2. Основы Алгоритмизации и Программирования

3. Алгоритмические языки программирования высокого уровня

2) Учебники

1. «Основы программирования в Delphi 7» Культин Н.Б.

2. «Turbo Pascal в задачах и примерах» Культин Н.Б.