![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Вывод программыСтр 1 из 5Следующая ⇒
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПРИБОРОСТРОЕНИЯ И ИНФОРМАТИКИ
Кафедра: «Автоматизированные системы управления и информационные технологии» Специальность: Мехатроника и робототехника (Компьютерные технологии управления в робототехнике и мехатронике) Зачётная работа По дисциплине: «Алгоритмические языки программирования высокого уровня»
Выполнил: студент 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 в задачах и примерах» Культин Н.Б.
|