Министерство науки и образования РФ

Федеральное государственное образовательное учереждение высшего профессионального образования

РЭУ «имени Р.В Плеханова МПТ»

Среднее специальное образование

Московский приборостроительный техникум

Специальность 230701 Прикладная информатика (по отраслям)

Портфолио

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

Основы программирования и алгоритмизации

Листов(104)

Выполнил студент

Группы ПК-229

Оголенков Д.А.

____________________

Проверил преподаватель

Шимбирёв А.А.

____________________

Москва 2014

Оглавление

Введение 3

Лабораторная работа №1 4

Лабораторная работа №2 6

Лабораторная работа №3 9

Лабораторная работа №4 12

Лабораторная работа №5 17

Лабораторная работа №6 38

Лабораторная работа №7 41

Лабораторная работа №8-10 44

Лабораторная работа №11 79

Постановка задачи: Даны три целых числа: A, B, C. Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное». 81

Тест: 81

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

Скриншоты: 81

81

Рис 25. 81

Блок-схема: 82

Лабораторная работа №12 87

Лабораторная работа №14 89

Лабораторная работа №15 91

Лабораторная работа №16 95

Лабораторная работа №17 97

Заключение: 103

Введение

В данной работе нам предстоит познакомится с основами программирования на языках Паскаль и Си++, а именно: алгоритмы языков, осуществление ввода и вывода информации, организация условий, циклов, циклов с пред- и пост- условиями, работа с разными типами данных, работа с одномерными и двухмерными массивами данных, создание и обращение к функциям и процедурам, создание модулей к программе, работа с фаилами, работа с графическими примитивами, реализация интерактивности программ.

Лабораторная работа №1

Постановка задачи: Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т.д.). Определить количество дней в этом месяце для не високосного года.

Тест:

Данные:	Выходные данные:
а	Месяц и кол-во чисел в нём

Блок-схема:

Начало

а

X=1d11111111111211

Январь=31

Да

нет

X=22

Февраль=28

Да

нет

Конец

…

X=122

Декабрь=31

Да

Нет

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

program heisenberg_3;

uses crt;

var a:integer;

begin

readln(a);

case a of

1:writeln('Январь=31');

2:writeln('Февраль=28');

3:writeln('Март=31');

4:writeln('Апрель=30');

5:writeln('Май=31');

6:writeln('Июнь=30');

7:writeln('Июль=31');

8:writeln('Аггуст=30');

9:writeln('Сентябрь=31');

10:writeln('Октябрь=30');

12:writeln('Ноябрь=31');

13:writeln('Декабрь=30');

end;

end.

Скриншот:

Рис 1.

Лабораторная работа №2 Задача 1

Постановка задачи: Программа должна выполнить sum:=sum+(1+0.1) столько раз, сколько укажет пользователь.

Тест:

Данные	Выходные данные
N	Число

Блок-схема:

Начало

Конец

Вывод Sum

sum:=sum+(1+0.1)

I<=N

Ввод N

Sum:=0

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

program zadacha_2;

uses crt;

var i,n:integer;

sum:real;

begin

sum:=0;

writeln('Введите N:');

readln(n);

for i:=1 to n do

sum:=sum+(1+0.1);

writeln(sum);

end.

Скриншот:

Рис 2.

Задача 2

Постановка задачи: Программа должна выполнить сначала в цикле(n+1 и s+счетчик) после вывести результат деления s на n.

Тест:

Входные данные:	Выходные данные:
n и s	Результат деления s на n

Блок-схема:

Конец

sr:=s/n

n:=n+1

s:=s+i

i>=-5

s:=0; n:=0

Начало

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

Program Zadacha_1;

uses crt;

var

n,s,i: integer;

sr: real;

begin

s:=0;

n:=0;

for i:=51 downto -5 do

begin

n:=n+1;

s:=s+i;

end;

sr:=s/n;

writeln('Результат деления s на n=', sr);

end.

Скриншот:

Рис 3.