Контрольная: Основы алгоритмизации и программирования - текст контрольной. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Контрольная

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

Банк рефератов / Компьютерные сети

Рубрики  Рубрики реферат банка

закрыть
Категория: Контрольная работа
Язык контрольной: Русский
Дата добавления:   
 
Скачать
Архив Zip, 32 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной работы

Узнайте стоимость написания уникальной работы

20 Московский госу дарственный университет экономики , статистики и инфор матики Филиал в г . Минске Кафедра экономи ки и информатики Контрольная раб ота по дисциплине «ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПР ОГРАММИРОВАНИЯ» ВАРИАНТ № 7 Выполнил студент I курса Минец Наталья Владимировна Руководите ль Васильев Владимир Павлович МИНСК 2004 Содержание. Содержание 1. Операторы организации разве твляющихся алгоритмов 3 2. Процедуры – операторы и процедуры - функции в языке Паскаль 6 2.1 Общие сведения 6 2.2 Процедуры и функции пользователя 6 3. Задача 1 10 3.1 Постанов ка задачи 10 3.2 Блок-схема алгоритма задачи 10 3.3 Текст программы на языке Паскаль 11 3.4 Контрольные примеры 11 4. Задача 2 12 4.1 Постанов ка задачи 12 4.2 Блок-схема алгоритма задачи 12 4.3 Текст программы на языке Паскаль 13 4.4 Контрольные примеры 14 5. Задача 3 16 5.1 Постанов ка задачи 16 5.2 Блок-схема алгоритма задачи 16 5.3 Текст программы на языке Паскаль 18 5.4 Контрольный пример 19 Список литературы 20 1. Операторы организации разветвляющихся алгори тмов Данные операторы обеспечивают выполнение или невыполнение нек оторого оператора или блока в зависимости от заданных условий. Услов ие - выражение булевского типа . Например : Var flag: boolean; a>b; a<=b; a<>b Условие может быть составным , т.е . состоять из нескольких логически связа нных частей . Для связи частей между собой применяются логические операции : And (и ) ( a=b ) and (b<>x) усло вие истинно , если каждая соста вляющая его часть истина ; Or ( или ) (a>b) or (b=x) условие истинно , если хотя бы одна из составляющих истина ; Not ( отрицани е ) Not (x=a) условие истино , если a не равно b. Для записи ветвления в Паскале примен яется оператор IF ( если ). Формат записи оператора : If условие then оператор 1 else оператор 2; В качест ве оператора может быть любой оператор (в том числе и составной ). Часть else может отсутствовать (ветвление неполное ). If условие then оператор 1; Пример : X: =2; … if x>0 then y: =1 else y: =2; Write(Y); … Внутри оператора if могут содерж аться другие операторы if: If x=0 then If y<0 then If y= - 2 then y: = 3 else if x= - 5 then y: = - 2 else y: =1; Для запи си нескольких вариантов действий удобно приме нение оператора CASE (выбор ). Формат записи оператора : с ase выражение-се лектор of список 1: оператор 1; список 2: оператор 2; … cписок n: оператор n; else оператор end; Оператор CASE работает следующим о бразом : 1 шаг - вычисляет ся выражение (оно должно быть перечислимого ти па ). 2 шаг - обеспечив ается реализация того оператора , константа вы бора которого равна текущему значению селекто ра (выражения ) если ни одна из констант не равна текущему значению селектора , то выполняется оператор после else, если он присутствует. Пример : Var x: integer; … с ase x of 12: y:=1; 5,30,46: y:=2; 1..10: y:=3; else y:=4 end; Если переменная х будет ра вна 12, то y примет значение 1. Если переменная х будет равна 5, 30 или 46, то y примет значение 2. Если переменная х будет равна от 1 до 4, или от 6 до 10, то y примет значени е 3. Если переменная х не будет равна ни одному из перечисленных значений , то y примет з начение 4. 2. Процедур ы – операторы и процедуры - функции в языке Паскаль 2.1 Общие св едения В языке Turbo Pascal п одпрограммы реализованы посредством процедур и функций . Процедура - это независимая поименованная часть программы , которую можно вызвать по имени для выполнения определенных действий . С труктура процедуры повторяет структ уру пр ограммы . Процедура не может выступать как операнд в выражении . Функция аналогична процедуре , но имеются два отличия : функция передает в точку вызова скалярное значение ; имя функции може т входить в выражение как операнд . Все процедуры и функции языка Turbo Pascal подразделяю тся на две группы : встроенные и определенн ые пользователем . Первые входят в состав я зыка и вызываются для выполнения по строг о фиксированному имени . Вторые разрабатываются и именуются самим пользователем . Все станда ртные средства р асположены в специа лизированных библиотечных модулях , которые имеют системные имена . 2.2 Процедуры и функции пользователя Процедуры и функции пользователя являются основой модульного программирования . Разбивая задачу на части и фор мируя логически обособленные моду ли как процедуры и функции , программист ре ализует основные принципы широко используемого в практике системного подхода. Процедуры. Описание процедуры включает за головок (имя ) и тело процедуры . Заголовок с остоит из зарезерви рованного слова PROCEDURE, иде нтификатора (имени ) процедуры и необязательного заключенного в круглые скобки списка форма льных параметров с указанием типа каждого параметра . Имя процедуры - идентификатор , уникаль ный в пределах программы . Тело процедуры п ре д ставляет собой локальный блок , по структуре аналогичный программе . Описания меток , констант , типов и т . д . действительны только в пределах данной процедуры . В теле процедуры можно использ овать любые глобальные константы и переменные . PROCEDURE <имя > (Фо р мальные параметры ); CONST ...; TYPE ...; VAR ...; BEGIN < операторы > END; В качест ве примера опишем процедуру , которая прерывае т выполнение программы и выдает соответствующ ее сообщение об ошибке : PROCEDURE Abort(Msg: string); BEGIN Writeln(' Ошибка : ', Msg); Halt(1); END; Сохраним данный пример в файле ABORT . PAS для дальнейшего использ ования в примере ниже по тексту. Процедура не может выполниться сама , ее необходимо вызвать по имени и указать фактические параметры того же типа , что и формальны е . Количество и тип формальных парамет ров равны количеству и типу фактических п араметров . В качестве примера приведем фрагмент программы , в котором используется описанная в ыше процедура Abort: PROGRAM DemoProc; Подсчет суммы десяти введенных целых по ложительных чисел , если будет введе но отрицательное число , прервать выполнение CONST Limit = 10; ограничение на количество вводимых чисел VAR Count, Item, Sum: integer; $I ABORT.PAS включение в текст файла ABORT.PAS BEGIN Count:= 0; Sum:= 0; WHILE (Count < Limit) DO BEGIN условие выполнение цикла Count:= Count+1; Write(' Введите ', Count, '- ое целое число : '); Readln(Item); IF Item < 0 THEN вызов процедуры : Abort('введено отрицательное число '); Sum:= Sum+Item; END; Writ eln('Сумма введенных чисел равна ', Sum); END. Параметры обеспечивают механизм замены , который позволяет выполнять процедуру с различными строковыми сообщениями . Если процедура возвращает в программу какие-то значения , соответствующие переменные д олжны быть описаны как параметры-переменные с использованием слова VA R . Функции. Функция , определенная пользователе м , состоит из заголовка и тела функции . Заголовок содержит зарезервированное слово FUNCTION, идентификатор (имя ) функции , заключенный в круг лые ско бки , необязательный список формаль ных параметров и тип возвращаемого функцией значения . Тело функции представляет собой локальный блок , по структуре аналогичный пр ограмме : FUNCTION <имя > (Фо рмальные параметры ) : <тип результата >; CONST ...; TYPE ...; V AR ...; BEGIN < операторы > END; В раздел е операторов должен находиться по крайней мере один оператор , присваивающий имени фун кции значение . В точку вызова возвращается результат последнего присваивания . Обращение к функции осуществляется по имени с ука занием списка аргументов , если таковые имеются . Каждый аргумент долже н соответствовать формальным параметрам , указанны м в заголовке , и иметь тот же тип . В качестве примера приведем функцию возведени я в степень : PROGRAM DemoPower; VAR Z:real; FUNCTION Po wer(X,Y:real): real; BEGIN Power:= Exp(Y* Ln(X)) END; BEGIN Z:=5.31; возведение значения Z в 4-ю степень Write(Power(Z,4.0)); END. 3. Задача 1 3.1 Постановка задачи Написать и о тладить программу , которая вычисляет значени е функции y=f(х ), при заданном с клавиатуры значении х , или выдает сообщение , что фу нкция неопределенна : 3.2 Бл ок-схема алгорит ма задачи 3.3 Текст программы на языке Паскаль Задача 1. Program z1; uses crt; var x,y:real; Begin clrscr; write(' Введите х : '); readln(x); if x<=0 then y:=sqr(x)-5*x+6 else if sqr(x)-5*x+6<>0 then y:=1/(sqr(x)-5*x+6) else begin writeln('При х =',x:5:2,' функция f(x) не о пределена .'); readln; halt; end; writeln(' Ответ : y=f(',x:5:2,')=',y:5:2); readln; End. 3.4 Контрольные примеры Введите х : 2 При х = 2.00 функция f(x) не определена. Введите х : 5 Ответ : y=f( 5.00)= 0.17 Вве дите х : -2 Ответ : y=f(-2.00)=20.00 4. Задача 2 4.1 Постановка задачи Написать и о тладить программу , которая вычисляет значение матричного выражения , или выдает сообщение о невозможности его выполнения , при задан ии с клавиатуры значениях размерностей и элементов матриц А [ M , N ]; B [ L , M ]; C [ N , L ]: А *С +4*В 4.2 Блок-схема алгоритма задачи 4.3 Текст пр ограммы на языке Паскаль Задача 2. Program z2; uses crt; var M,N,L,i,j,k:integer; A,B,C,D,E,Y:array[1..10,1..10] of real; Begin clrscr; writeln('Вычисление матричного выражения Y[L,M]=A[M,N]*C[N,L]+4*B[L,M]'); Ввод размерностей матриц. write('Введите размерность матриц - значения M,N,L (<=10): '); readln(M,N,L); if (M>10) or (N>10) or (L>10) or (M<1) or (N<1) or (L<1) then begin writeln('Введены некорректные данные . (1<= M,N,L<=10)'); readln; halt; end; if M<>L then begin writeln('При заданных значения х M, N, L вычислить выражение '); writeln('A[M,N]*C[N,L]+4*B[L,M] невозможно,т.к.складываются '); writeln('только матрицы одинаковых размеров .'); writeln('Введите одинаковые значения для M и L.'); readln; halt; end; Ввод элементов матриц. writeln('Введите построчно элементы матрицы A[',M,',',N,']:'); for i:=1 to M do for j:=1 to N do read(A[i,j]); writeln('Введите построчно элементы матрицы B[',L,', ',M,']:'); for i:=1 to L do for j:=1 to M do read(B[i,j]); writeln('Введите построчно элементы матрицы C[',N,',',L,']:'); for i:=1 to N do for j:=1 to L do read(C[i,j]); writeln(' Ответ :'); Вычисление произведения м атриц : D[M,L]=A[M,N]*C[N,L] for i:=1 to M do for j:=1 to L do begin D[i,j]:=0; for k:=1 to N do D[i,j]:=D[i,j]+A[i,k]*C[k,j]; end; Вычисление умножения матрицы на число : Е [L,M]=4*B[L,M] for i:=1 to L do for j:=1 to M do E[i,j]:=4*B[i,j] ; Вычисление сложения матриц : Y[L,M]=D[M,L]+Е [L,M] for i:=1 to L do begin for j:=1 to M do begin Y[i,j]:=D[i,j]+E[i,j]; write(Y[i,j]:9:2); end; writeln; end; readln; End. 4.4 Контрольные примеры Вычисление матри чно го выражения Y[L,M]=A[M,N]*C[N,L]+4*B[L,M] Введите размерность матриц - значения M, N, L (<=10): 5 4 6 При заданных значениях M, N, L вычислить выраже ние A[M,N]*C[N,L]+4*B[L,M] невозможно , т.к . складываются только матрицы одинаковых размеров. Введите одина ковые значения для M и L. Вычисление матричного выражения Y[L,M]=A[M,N]*C[N,L]+4*B[L,M] Введите размерность матриц - значения M, N, L (<=10): 4 3 4 Введите построчно элементы матрицы A[4,3]: 3 2 4 1 5 2 4 2 1 6 3 2 Введите построчно элементы матрицы B[4,4 ]: 5 2 7 1 3 5 2 8 9 2 9 3 1 4 7 2 Введите построчно элементы матрицы C[3,4]: 5 2 1 7 2 4 2 8 2 1 6 5 Ответ : 47.00 26.00 59.00 61.00 31.00 44.00 31.00 89.00 62.00 25.00 50.00 61.00 44.00 42.00 52.00 84.00 5. Задача 3 5.1 Постановка задачи Разработать прог раммы : a) ввода дан ных с клавиатуры и формирования текстового файла ; b) чтения те кстового файла с диска и вывода его н а экран в виде таблицы. Данные для фор мирования файла. ФКС -2 0,01 10 -8 ч 10 -9 АМД -94 1 10 -6 ч 10-5 РСК -94 10 10-7 ч 10 -6 5.2 Блок-схема алгоритма задачи а ) Запись дан ных в файл ( Fn – имя файла ). а ) Чтение данных из файл и их вывод на экран. 5.3 Текст программы на языке Паскал ь Задача 3. Program z3a; uses crt; var f:text; n,i:integer; fn,s1,s2:string; r:real; Begin clrscr; writeln('Формирование текстового файла с данн ыми , введенными с клавиатуры .'); write('Введите имя файла :'); readln(fn); assign(f,fn); rewrite(f); write('Введите количество строк : '); readln(n); write ln('Введите данные :'); for i:=1 to n do begin write(' Название :'); readln(s1); write('Численное значение :'); readln(r); write(' Д иапазон :'); readln(s2); writeln(f,s1:15,r:15:2,s2:15); end; close(f); writeln('Данные успешно записаны в файл ',fn); readln; End. Задача 3 б . Program z3b; uses crt; var f:text; s,fn:string; r:real; Begin clrscr; writeln('Чтение данных из текстового файла и их вывод на экран .'); write('Введите имя файла : '); readln(fn); assign(f,fn); reset(f); writeln('Данные из файла ',fn); while not eof(f) do begin readln(f,s); writeln(s); end; close(f); readln; End. 5.4 Контрольный пример Формирование тек стового файла с данными , введенными с клав иатуры. Введите имя файла :f1.txt Введите количество строк : 3 Введите данные : Название :ФКС -2 Численное значение :0.01 Диапазон :10-8..10-9 Название :АМД -94 Численное значение :1 Диапазон :10-6..10-5 Название :РСК -94 Численное значение :10 Диапазон :10-7..10-6 Данные успешно записаны в файл f1.txt Чтение данных из текстового файла и их вывод на экран. Введите имя файла : f1.txt Данные из файла f1.txt ФКС -2 0.01 10-8..10-9 АМД -94 1.00 10-6..10-7 РСК -94 10.00 10-7..10-6 Список литературы 1. Бородич Ю.С . и др . Паскаль для персонадьных компьютеров : Справочное пособие . Мн .: Выш . шк .: БФ ГИ ТМП " Ника ", 1991 г. 2. Вальвачев А . Н ., Крисевич В.С . Програм мирование на языке Паскаль для персонадьных ЭВМ ЕС : Справочное пособие . - Мн .: Вы ш . шк ., 1989 г. 3. Васюкова Н . Д ., Тюляева В . В . Прак тикум по основам программирования . Язык Паска ль : Учебное пособие . - М .: Высш . шк .,1991 г. 4. Офицеров Д . В ., Старых В . А . Прогр аммирование в интегрированной среде Турбо-Пас каль : Справочное пособие . – МН .: Белару сь , 1992 г.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
А вообще жизнь прекрасна и удивительна, я конечно сам пока не видел, но я много про это слышал, и даже в фильмах смотрел.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, контрольная по компьютерным сетям "Основы алгоритмизации и программирования", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru