4.3 Примеры решения задач
(*Найти сумму элементов линейного массива*)
programzad;
const N=10 ;
type
massiv=array [1..N] of integer;
var
a:massiv;
sum,i:integer;
procedure input (var x:massiv);(* Вводэлентамассива*)
var
i:integer;
begin
for i:=1 to N do
begin
write ('a=');
readln (x[i]);
end;
end;
Procedure Output (var z:massiv);
var
i:integer;
begin
for i:=1 to N do
write;
end;
functionfsum (c:massiv):integer;
var
s,i:integer ;
begin
s:=0;
for i:=1 to N do
if c[i] mod 5=0
then
s:=s+c[i];
fsum:=s;
end;
begin
writeln ('input massuv');
input (a);
output (a);
sum:=fsum(a);
writeln ('sum=',sum);
5. Практическая часть
6. Заключение
В результате выполнения курсовой работы было изучено, программирование на языке Паскаль, а именно: основные понятия языка программирования (общая структура программы, раздел описания меток, раздел определение констант, раздел определения типов, раздел описания переменных), простые типы данных(перечисляемый тип, логический тип, целый тип, и т.д), операторы(оператор присваивания, составной оператор, оператор цикла, оператор выбора, и т.д ), стандартные файлы input и output, процедуры и функции(описание процедур, описание функций)и т.д.При выполнении практической части курсовой работы разработано и отложены программы.
7. Список литературы
1.О.Н. Перминов Программирование на языке Паскаль.Москва “радио и связь” 1988
2.Бутомо И.Д., Самочадин, А.В.,Усанов Д.В., Программирование на алгоритмическом языке Паскаль для микро –ЭВМ
3.Вирт Н. Язык программирования Паскаль//Алгоритмы и организация решение экономических задач.
4. Перминов О.Н. Язык программирования Паскаль.