На бирже курсовых и дипломных проектов можно найти образцы готовых работ или получить помощь в написании уникальных курсовых работ, дипломов, лабораторных работ, контрольных работ, диссертаций, рефератов. Так же вы мажете самостоятельно повысить уникальность своей работы для прохождения проверки на плагиат всего за несколько минут.

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


Курсовик Обработка массивов с использованием подпрограмм

Информация:

Тип работы: Курсовик. Предмет: Информатика. Добавлен: 15.09.2016. Страниц: 11. Уникальность по antiplagiat.ru: < 30%

Описание (план):



Содержание:
1. Условие задачи ………………………………………………..……………………..3
2. Блок-схема основного алгоритма …………………………………………………..4
2.1 Схема подпрограммы ввода массива (zapolnenie) …5
2.2 Схема подпрограммы вывода массива (pechat) 5
2.3 Схема функции нахождения суммы диагональных элементов массива(KN) .6
3. Текст программы ………………………………………………………………….7-8
4. Исходные данные …………………………………………………………………..9
5. Результат выполнения программы ……………………………………………10-11

П. 1

Условие задачи:
Даны две целочисленные квадратные матрицы разной размерности А,
В. Вычислить SA, SB - количество нулевых элементов на побочной
диагонали в матрицах А и В соответственно. Если SA>SB, то напечатать
матрицу А, иначе напечатать матрицу В. Основная программа должна
содержать: подпрограмму ввода матрицы; подпрограмму вывода матрицы;
подпрограмму вычисления количества нулевых элементов на побочной
диагонали в матрице.
?
П. 3
Текст программы:
program kursach;
type
matr = array [1..100,1..100] of integer;
var A,B:matr;
SA,SB,Ra,Rb: integer;
procedure zapolnenie (var d: matr; var F:integer; e:string);
var i,j: integer;
begin
writeln(Ввод массива ,e);
write(Введите размерность массива ,e, - );
readln(F);
for i:= 1 to F do
begin
for j:= 1 to F do
begin
write(e,[,i,,,j,]=);
readln(d[i,j]);
end;
end;
writeln;
end;
procedure pechat (d: matr; F:integer; e:string);
var i,j:integer;
begin
writeln(Вывод массива ,e);
for i:= 1 to F do
begin
for j:= 1 to F do
begin
write(d[i,j], );
end;
writeln
end;
writeln;
end;
function kn(d:matr; F:integer):integer;
var k,i: integer;
begin
k:=0;
for i := 1 to F do
begin
if d[i,((F-i)+1)] =0 then k:= k+1;
end;
kn:= k;
end;
begin
writeln(Курсовая работа по информатике);
writeln(Тема: Обработка массивов с использованием подпрограмм);
writeln(Вариант 8);
writeln( Выполнил ст. гр. ТС-11-1 Сапрыкин Максим);
writeln;
{обработака массива А}
zapolnenie(A,Ra,A);
SA:=kn (A,Ra);
writeln(SA = ,SA);
{обработка массива B}
writeln;
zapolnenie(B,Rb,B);
SB:= kn(B,Rb);
writeln(SB = ,SB);
{Сравнение полученных результатов и вывод на печать}
If SA > SB then
begin
writeln( ‘ SA > SB; ‘, SA,’>’,SB);
pechat(A,Ra,A)
end
else
begin
writeln( ‘ SB > SA; ‘, SB,’>’,SA);
pechat(B,Rb,B);
end;
writeln;
end.
.............



Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.