Применение языка программирования Pascal для обработки и анализа экспериментальных данных
Особенность использования массива для хранения различных значений радиуса шара. Создание программы, которая выводит код символа, введенного пользователем. Написание системы, которая при помощи прямоугольников строит столбиковую диаграмму значений.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 29.10.2017 |
| Размер файла | 655,0 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
МИНИСТЕРСТВО ОБРАЗОВАНИЯИ НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
Тольяттинский Государственный Университет
Кафедра «Автоматизации технологических процессов и производств»
Курсовая работа
По дисциплине «Обработка экспериментальных данных с применением языков высокого уровня»
«Применение языка программирования PASCAL для обработки и анализа экспериментальных данных»
Студент:
Горбатюк Ю.А.
Преподаватель:
Копша О.Ю.
Тольятти 2014
Задание 1
Напишите программу, которая вычисляет объем шара , где
- радиус шара.
Блок-схема.
Листинг программы
Program Ex_1;
var
r,p,V:real;
begin
p:=3.14;
Writeln('vvedite chislo r', r:8:5);
Readln(r);
V:=3/(4*p*r*r*r);
Writeln('V=',V:8:5);
Readln;
End.
Результат:
Задание 2
В программе используйте проверку веденных пользователем значений. Если значения меньше или равны 0,выведите сообщение об ошибке.
Блок-схема.
Листинг программы
Program Ex_2;
var
r,p,V:real;
begin
p:=3.14;
Writeln('vvedite chislo', r:8:2);
Readln(r);
if r<=0 then writeln('Oshibca')
else V:=3/(4*p*r*r*r);
Writeln('V=',V:10:5);
Readln;
End.
Результат:
Задание 3
Блок-схема.
Напишите программу, которая по введённому номеру компьютерных устройств выводит предположительную их стоимость. В начале программы необходимо вывести ассортимент с соответствующими номерами. Если введено число, не соответствующее номеру из списка, выведите сообщение об этом (используйте ветвь else).
Листинг программы
Program Ex_3;
label 0;
Var m,n:integer;
begin
0:Writeln('vvedite nomer computer ystrostva');
Readln(n);
Writeln(n);
Case n of
1:Writeln('mouse 50ruble');
2:Writeln('keyboard 100ruble');
3:Writeln('system unit 4000ruble');
4:Writeln('memory card 900ruble');
5:Writeln('screen 1500ruble');
6:Writeln('hard drive 2000ruble');
else Writeln('oshibka');
goto 0; end; массив программа символ диаграмма
Writeln('vvesti nomer ystroistva? vvedite 1, else not vvedite 2');
Readln(m);
if m=1 then goto 0;
Readln;
End.
Результат:
Задание 4
Используйте массив для хранения различных значений радиуса шара. Проведите вычисление объема заданное число раз и занесите полученные значения в другой массив.
Блок-схема.
Листинг программы
Program Ex_4;
label 1;
const n=5;
var V,r:array[1..n] of real;
p,s:real;
i:integer;
begin
p:=3.14;
1:Writeln('vvedite array r 1-5');
for i:=1 to n do
begin
Readln(r[i]);
if r[i]<=0 then goto 1
else V[i]:=3/(4*p*r[i]*r[i]*r[i]);
end;
for i:=1 to n do
Writeln('V=',V[i]:10:5);
Readln;
End.
Результат:
Задание 5
Напишите программу, которая выводит код символа, введенного пользователем. Завершением ввода - символ «точка» (.).
Блок-схема.
Листинг программы
Program Ex_5;
label 1,2;
var p:char;
s:integer;
begin
Writeln('dlia polychenia ASKI-koda vvedite simvol');
Readln(p);
1:s:=ord(p);
Writeln('ASKI-kod',p,'=',s);
Writeln('povtorite vvod? else not-vvedite . else yes-vvedite simvol');
Readln(p);
if p='.' then goto 2
else begin goto 1;
Readln;
2:End;
End.
Результат:
Задание 6
В процедуре заполнить прямоугольную матрицу размером 3*5 случайными числами. В функции найдите факториал числа, введенного пользователем (не более 5), в основной программе найдите результирующую матрицу, полученную путем деления случайной матрицы на факториал.
Блок-схема.
Листинг программы
Program Ex_6;
const q=3; w=5;
var
A:array[1..q, 1..w] of real;
i,j:integer;
n,c:integer;
procedure matr(i,j:integer);
begin
for i:=1 to q do
begin
for j:=1 to w do
begin
A[i,j]:=random(100);
write(A[i,j]:8:2);
end;
writeln;
end;
end;
function f(k:integer):integer;
var f1:integer;
begin
f1:=1;
for i:=1 to k do
f1:=f1*i;
f:=f1
end;
begin
writeln('n-?');
readln(n);
if n<=5 then begin
matr(q,w);
writeln;
c:=f(n);
writeln(c);
for i:=1 to q do
for j:=1 to w do
A[i,j]:=A[i,j]/c;
for i:=1 to q do
begin
for j:=1 to w do
begin
write(A[i,j]:8:2);
end;
writeln;
end;
end else writeln('n<6');
readln;
readln;
end.
Результат:
Задание 7
Записать в типизированный файл информацию о студентах. Использовать тип "записи" со следующими полями:
1. Фамилия, Имя, Отчество,
2. Группа,
3. Оценка по математике,
4. Оценка по физики,
5. Оценка по информатике.
Результат - количество записей в файле и количество положительных оценка (хорошо и отлично).
Блок-схема.
Листинг программы
Program Ex_7;
uses crt;
Type student=record
fio:string[30];
group,ocenM,ocenF,ocenI: integer;
End;
var zap:student;
a:file of student;
name:string;
d1,g1,h1,s,z,d,g,h,n:integer;
begin
s:=0;
d:=0; d1:=0;
g:=0; g1:=0;
h:=0; h1:=0;
n:=0;
clrscr;
Writeln('zadaite name file');
Readln(name);
Assign(a,'doc.txt');
Rewrite(a);
Writeln('vvedite FIO studenta');
Readln(zap.fio);
While zap.fio <> '!' do
begin
Writeln('vvedite nomer group');
Readln(zap.group);
Write(a, zap);
Writeln('vvedite ocenky po matematike');
Readln(zap.ocenM);
Write(a, zap);
Writeln('vvedite ocenky po fithike');
Readln(zap.ocenF);
Write(a, zap);
Writeln('vvedite ocenky po informatike');
Readln(zap.ocenI);
Write(a, zap);
Writeln('vvedite FIO studenta');
Readln(zap.fio);
n:=n+1;
if zap.ocenM=4 then d1:=d1+1;
if zap.ocenM=5 then d:=d+1;
if zap.ocenF=4 then g1:=g1+1;
if zap.ocenF=5 then g:=g+1;
if zap.ocenI=4 then h1:=h1+1;
if zap.ocenI=5 then h:=h+1;
s:=d+g+h;
z:=d1+g1+h1;
End;
Writeln('s=',s);
Writeln('z=',z);
Writeln(n);
Close(a);
Writeln('file sothdan');
Readln;
End.
Результат:
Задание 8
Напишите программу, которая при помощи прямоугольников строит столбиковую диаграмму значений, хранящемся в одномерном массиве. Массив заполнить случайными целыми значениями в диапазоне от нуля до десяти.
Блок-схема.
Листинг программы
Program Ex_8;
uses Crt, Graph;
const Count=10;
Width =40;
var
I,X1,X2,Y1,Y2 : integer;
M : array[1..Count] of byte;
DriverVar, ModeVar: integer;
S_M : string;
begin
randomize;
for I:=1 to Count do M[I]:=random(11);
DriverVar:=Detect;
InitGraph(DriverVar,ModeVar,'..\bgi');
SetViewPort(10,10,630,400,True);
SetTextStyle(DefaultFont,HorizDir,1);
Y1:=325;
for I:=1 to Count do
begin
X1:=I*50;
Str(M[I],S_M) ;
SetFillStyle(I,I);
Bar3D(X1,Y1,X1+Width,Y1-M[I]*30,10,TopOn);
OutTextXY(X1+15,Y1-M[1]*(-5)-8,S_M);
end;
OutTextXY(0,200,'Q');
OutTextXY(150,GetMaxY-100,'dlia thavershenia najmite Enter');
Readln;
CloseGraph;
end.
Результат:
Размещено на Allbest.ru
...Подобные документы
Написание программы, которая выполняет лексический и синтаксический анализ входного языка программирования, порождает таблицу лексем с указанием их типов и значений, а также строит синтаксическое дерево; текст входного языка вводится с клавиатуры.
курсовая работа [761,5 K], добавлен 23.02.2012Описание возможностей языка программирования Turbo Pascal. Написание программы создания файлов с прямым доступом, которая также будет обрабатывать наборы данных с определенными полями и ограничениями. Контрольный пример работы поисковой программы.
курсовая работа [563,6 K], добавлен 22.01.2016Программа на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран. Лист с начальными данными. Ввод начальных (нулевых) значений для расчетных величин. Вспомогательные переменные, счетчики циклов. Формирование матрицы данных.
курсовая работа [2,7 M], добавлен 01.12.2010При помощи Turbo Pascal достаточно не просто создать программу, которая бы демонстрировала работу с базами данных. Для этого существует огромное количество специализированных программ. Основа и сущность формирования базы данных при помощи Turbo Pascal.
курсовая работа [479,7 K], добавлен 04.07.2008Создание программного обеспечения, позволяющего сортировать элементы числового массива в порядке возрастания или убывания их значений. Выбор языка программирования, среды разработки и построение алгоритма. Руководство пользователя и программиста.
курсовая работа [295,4 K], добавлен 07.04.2011Разработка программы в среде программирования Borland Pascal, которая является электронным тестирующим пособием в области химии для 8-10 классов. Написание алгоритма решения задачи, определение необходимых функций, процедур, модулей, файловых переменных.
контрольная работа [389,3 K], добавлен 19.09.2010Этапы написания программы на четырех языках программирования (Turbo Pascal 7.0, Borland C++ 3.11, Delphi 7, Builder C++ 6.0), которая выводит на экран имя и фамилию студента, используя стандартные средства графики и простейшие геометрические фигуры.
контрольная работа [1,4 M], добавлен 05.06.2010Рассмотрение правил записи, способов ввода и вывода, использования функций обработки символьных данных в Pascal. Описание алгоритмизации и программирования файловых структур данных, проектирования структуры файла. Ознакомление с работой данных массива.
курсовая работа [336,2 K], добавлен 27.06.2015Особенности построения программ реального времени на основе параллельных процессов. Реализация простой программы, которая выводит на экран текст приветствия и завершается. Создание массива из трехсот параллельных процессов, получающих уникальный индекс.
статья [19,8 K], добавлен 08.12.2016Особенности разработки программ на языке Turbo Pascal на примере программы обработки массива данных с построением диаграммы. Функции программы и основные требования к ней. Состав входных и выходных данных. Использование предметной области "Садовод".
курсовая работа [789,1 K], добавлен 13.03.2013Работа в Pascal, теория рядов. Главные признаки сходимости знакоположительных рядов. Общее понятие о ряде Тейлора. Вычисление конечной суммы факториального ряда для заданного массива значений. Исходный текст программы. Результаты выполнения программы.
контрольная работа [1,6 M], добавлен 06.08.2013Изучение текстового режима языка программирования Turbo Pascal. Написание игры "Змейка" с помощью средств, процедур и функций языка программирование Turbo Pascal. Структурное и функциональное описание разработки. Листинг и общие примеры работы программы.
контрольная работа [286,3 K], добавлен 10.04.2011Обработка экспериментальных данных с помощью программных продуктов. Редактирование и оформление электронных табличных расчётов. Метод наименьших квадратов: применение в качестве критерия близости суммы квадратов отклонений заданных и расчетных значений.
курсовая работа [275,5 K], добавлен 07.03.2011Интерфейсные средства СУБД MS Access 2003. Проектирование схемы данных. Создание составного отчёта, содержащего диаграмму. Группировка и сортировка в отчётах. Использование языка программирования VBА, создание макросов. Разработка программы и функций.
курсовая работа [5,2 M], добавлен 20.06.2010Написание программы "телеграф", который принимает от пользователя сообщения и выводит его на экран в виде последовательности точек и тире. Их вывод сортируется звуковым сигналом соответствующей длительности. Программа написана на языке Turbo Pascal.
курсовая работа [565,6 K], добавлен 18.08.2008Характеристика и основные особенности языка Pascal. Создание числового массива с использованием встроенной функции. Использование записей, массивов и файлов. Обработка и графическая визуализация данных средствами табличного процессора и пакета MathCAD.
курсовая работа [1,0 M], добавлен 22.08.2012Разработка программы обработки типизированных файлов с кодом на языке Object Pascal, с использованием компонентов Delphi для ввода и вывода данных. Разработка экранных форм и алгоритма программы. Описание программных модулей и инструкция оператору.
курсовая работа [1,5 M], добавлен 08.02.2011Структура записей входного массива. Описание основных типов данных. Алгоритм программы: присвоение начальных значений переменных, чтение списка из файла, вывод данных на экран, выполнение обработки данных, сохранение списка в файл. Листинг программы.
курсовая работа [325,2 K], добавлен 28.12.2012Написание программы для работы с клиентами средствами языка Delphi, которая предусматривает ввод, редактирование и удаление информации. Разработка алгоритма решения задачи, описание переменных, вспомогательных процедур, входных и выходных данных.
курсовая работа [355,7 K], добавлен 21.09.2010Система программирования LabVIEW и ее использование в системах сбора и обработки данных. Программирование, основанное на потоках данных. Генерирование детерминированных процессов. Способность инструментов программы изменяться. Расчет значений массива.
контрольная работа [424,4 K], добавлен 18.03.2011
