Массивы и их применение в PASCAL-программах
Основные направления и специфика использования одномерных и двухмерных массивов в наиболее часто используемых PASCAL-программах. Составление блок-схем алгоритмов решения поставленных задач. Порядок разработки соответствующих программ и их листинг.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | лабораторная работа |
| Язык | русский |
| Дата добавления | 15.12.2011 |
| Размер файла | 192,8 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Массивы и их применение в PASCAL-программах
Известны данные по продаже компьютеров в течение недели. Найти общее количество проданных компьютеров.
Блок - схема алгоритма решения задачи.
Листинг программы.
{программа подсчета суммы продаж компьютеров за неделю}
Program Massiv;
Uses crt;
Type MPROD = array [1..7] of integer; {продажа по дням недели}
var mas: MPROD;
i, j, s: integer;
Begin
clrscr; {очистка экрана}
s:= 0;
{ввод в цикле данных и подсчет суммы}
For i:= 1 To 7 Do
Begin
WriteLn ('Vvedite thislo prodaz za ', i, ' den nedeli');
ReadLn (mas[i]);
s:= s + mas[i];
End;
WriteLn;
WriteLn ('Summa prodaz za nedelu = ', s);
WriteLn ('Nazmite lubuyu klavicu dla vixoda');
Readkey;
End.
массив программа листинг схема
Задание на тему «двумерные массивы», вариант 8
Известны результаты сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба экзамена.
Блок - схема алгоритма решения задачи
Листинг программы
{программа определения фамилий студентов, не сдавших 2 экзамена}
Program Matrix;
Uses crt;
Type OCEN = array [1..5, 1..3] of BYTE;
STUD = array [1..5] of string[20];
var i, j, k: integer;
mo: OCEN; {матрица оценок}
ms: STUD; {массив фамилий}
Begin
clrscr; {очистка экрана}
{Ввод фамилий студентов и их оценок}
for i:=1 to 5 do
Begin
WriteLn ('Vvedite familiu ', i, '-go studenta');
ReadLn (ms[i]);
For j:=1 To 3 Do
Begin
WriteLn ('Vvedite ocenku studenta ', i, ' za ekzamen ', j);
ReadLn (mo[i, j]);
End;
End;
{печать на экране матрицы оценок и фамилий студентов}
ClrScr;
WriteLn ('Matrica ocenok');
For i:=1 To 5 Do
Begin
Write ('Student ', ms[i]:20);
For j:=1 To 3 Do
Begin
Write (mo[i, j]:6);
End;
WriteLn;
End;
{получение результатов и их вывод на экран}
For i:=1 To 5 Do
Begin
k:= 0;
For j:=1 To 3 Do
Begin
If (mo [i, j] <=2) Then Inc(k);
End;
If (k = 2) Then WriteLn (ms[i]:20);
End;
WriteLn ('Nazmite lubuyu klavicu dla vixoda');
Readkey;
End.
Размещено на Allbest.ru
Подобные документы
Понятие массива и правила описания массивов в программах на языке С. Рассмотрение основных алгоритмов обработки одномерных массивов. Примеры программ на языке С для всех рассмотренных алгоритмов. Примеры решения задач по обработке одномерных массивов.
учебное пособие [1,1 M], добавлен 22.02.2011Разработка программ на языке Turbo Pascal на основе использования массивов данных. Особенности хранения данных, способы объявления переменных, действия над элементами массивов, их ввод и вывод. Практическое применение одномерных и многомерных массивов.
методичка [17,8 K], добавлен 25.11.2010История появления и распространения Turbo Pascal - среды разработки для языка программирования Паскаль. Общий вид объявления файлового типа. Входная, выходная и промежуточная информация. Алгоритм решения задачи: словесный алгоритм, блок-схема, программа.
курсовая работа [359,4 K], добавлен 05.01.2010Структура программы Pascal и алгоритмы решения задач. Работа с циклическими операторами, массивами, процедурами. Составление блок-схем задач. Операции над матрицами в программе MathCad. Работа формулами, графиками и диаграммами в оболочке MS Excel.
курсовая работа [459,0 K], добавлен 13.08.2012Паскаль как язык профессионального программирования, который назван в честь французского математика и философа Блеза Паскаля, история его разработки и функциональные особенности. Задача с использованием двумерного массива, составление блок-схемы решения.
контрольная работа [819,0 K], добавлен 12.03.2014Создание схем алгоритмов и составление программы на языке Pascal для вычисления значений заданных функций. Сущность и порядок нахождения значения определенного интеграла. Анализ работы подпрограмм. Разработка тестов для проверки правильности алгоритмов.
контрольная работа [831,0 K], добавлен 24.11.2013Разработка алгоритмов методом пошаговой детализации. Типы данных и операции в Turbo-Pascal. Организация работы с подпрограммами. Составление алгоритмов и программ задач с использованием конечных сумм. Организация работы с динамическими переменными.
учебное пособие [1,4 M], добавлен 26.03.2014Разработка программы построения графика экспериментальных точек и полинома регрессии второй степени в среде Turbo Pascal. Блок-схемы алгоритмов используемых процедур. Листинг программы. Составление вектора свободных членов и матрицы коэффициентов.
курсовая работа [46,6 K], добавлен 24.11.2013Структура и основные элементы языка Turbo Pascal. Алгоритм составления простейших программ на Turbo Pascal. Применение условного оператора и сильноветвящихся алгоритмов. Циклы с предусловием и постусловием, сочетание циклических и условных операторов.
реферат [64,0 K], добавлен 20.03.2016Изучение функций и возможностей среды разработки языка программирования Pascal. Рассмотрение работы с одномерными и двумерными массивами, со строками и числами. Математическая формулировка задач. Разработка алгоритмов, описание структуры программ.
курсовая работа [879,8 K], добавлен 11.02.2016
