Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
Имитационное мо... 59477
Реклама
Сейчас на сайте
Гостей: 3
На сайте нет зарегистрированных пользователей

Пользователей: 13,110
новичок: kostya001001
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Расчет мер близости на отношениях на Delphi + Пояснительная записка
База данных студентов на Turbo Pascal (Списки) + Пояснительная записка
Моделирование процесса обработки заданий на вычислительном центре на GP...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Упорядочить по возрастанию одномерный массив A размером N
program primer_1;
const N = 5;
var A : array [ 1..N ] of real;
p : real;
i, j, k, g : integer;
begin
writeln('упорядочение массива по возрастанию');
writeln('введите элементы массива через пробел в конце ENTER ');
for i := 1 to N do read (A [ i ] ); writeln;
{ второй вариант ввода одномерного массива }
{ for i := 1 to N do
begin write (' введите A [', i:2 ,' ] = ' ) ; readln ( A[i] ); end;}
{ для упорядочивания массива задействуем промежуточные
переменные p - для запоминания минимального значения массива,
k - для запоминания его местонахождения }
for i := 1 to N - 1 do
begin
p := a [ i ] ; k := i ;
for j := i + 1 to N do
if A [ j ] < p then begin p := A[ j ]; k := j ; end;
A [ k ] := A [ i ] ; A [ i ] := p ;
end;
for i := 1 to N do
begin write( ' A [ i ] ='); writeln( A [ i ] : 8 : 5 ); end;
end.


В следующем примере представлен более удобный вариант оформления программ, где самостоятельные части работы вынесены в процедуры. Главная программа ( вызывающая ) получается тогда очень короткой, а отладка таких программ значительно проще.

Пример 2.
Программа для умножения сцепленных матриц A = ?aik? размера m x n и B = ?bik? размера r x s ( матрицы называются сцепленными, если число столбцов первой матрицы равно числу строк второй ). Произведение AB двух сцепленных матриц есть матрица C=?cik? размера m x s, где cik = ? aijbjk.

program primer_2;
uses CRT;
const n = 3; m = 2; r = 3; s = 3;
type massiv = array [1..10,1..10] of real;
var a,b,c : massiv;
sum : real;
i, j, k : integer;
ch : char;
procedure VVOD_2(n,m:integer;ch:char;var a:massiv);
{ процедура ввода двумерной матрицы построчно}
begin
writeln( ' введите элементы массива ');
for i := 1 to n do
begin
for j := 1 to m do read ( A [ i , j ] );
writeln; { для перехода на новую строку}
end;
end;
procedure PRINT_MAS(n,m:integer;ch:char;a:massiv);
{ печать матрицы построчно }
{ n,m - размер матрицы }
{ ch - название матрицы , для обозначения при выводе }
begin
writeln(' Элементы массива ',ch);
for i := 1 to n do
begin
for j := 1 to m do write(a [ i , j ] : 8 : 2);
writeln; { для перехода на новую строку }
end;
end;


begin {---------- main ------------------}

{ В рассматриваемом примере размеры матриц A, B, C заданы с помощью
констант. Заметим, что лучше это сделать вводом с клавиатуры или чтени-
ем данных из файла }
VVOD_2(m,n,'A',a); { вызов процедуры VVOD_2 для ввода матрицы A }
VVOD_2(r,s,'B',b); { вызов процедуры VVOD_2 для ввода матрицы B }
{ формирование матрицы C равной произведению матриц A*B }
for i := 1 to m do
for k := 1 to s do
begin
sum := 0; { обнуление переменной для вычисления суммы }
for j := 1 to N do sum := sum + a[ i , j ] * b [ j , k ] ;
c[ i , k ] := sum;
end;
{ вывод на экран исходных данных и результатов }
PRINT_MAS(m,n,'A',a); { m,n - размеры матрицы A }
PRINT_MAS(r,s,'B',b); { r,s - размеры матрицы B }
PRINT_MAS(m,s,'C',c); { m,s - размеры матрицы C }
end.

Опубликовал Kest November 13 2008 00:19:33 · 3 Комментариев · 22042 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
anuta_kirova November 01 2011 00:13:53
Благодарю!
новичек December 17 2011 17:33:08
кому нужно перевела в С++:

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
int a[7],i,j,k,p,n;
cout<<"vvedi n";cin>>n;
srand(time(NULL));
for (i=0;i<n;i++){
a[i]=rand()%90+10;
cout<<a[i]<<" ";
}
for ( i=0;i<n-1; i++) {p=a[i];k=i;
for (j=i+1;j<n;j++)
if(a[j]<p){p=a[j];k=j;}
a[k]=a[i];a[i]=p;
}
cout <<"Novii massiv";
for(i=0;i<n;i++)
cout << a[i]<< " ";
system("PAUSE");
return EXIT_SUCCESS;
}
лол December 28 2011 13:01:26
Кто может перевести в Delphi
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Добавление басса ...
Visual Basic Script
Переработанный пл...
Flash MP3 Player ...
VksButton
TDBF
Prolog Interprete...
SearchAndReplace
CABfiles
MpegPlay
Создание оригинал...
CLR via C#
Краснов М. - Open...
C++ Стандартная б...
Определние размер...
База Allsubmitter...
PrevInst
Swat [Исходник на...
Пишем программы и...
Программирование ...

Топ загрузок
Приложение Клие... 100512
Delphi 7 Enterp... 90288
Converter AMR<-... 20092
GPSS World Stud... 15006
Borland C++Buil... 12719
Borland Delphi ... 8945
Turbo Pascal fo... 7093
Калькулятор [Ис... 5137
Visual Studio 2... 5018
FreeSMS v1.3.1 3554
Случайные статьи
Пользовательский п...
транспортном режим...
А сколько человек ...
Объекты Connection...
быть применены в д...
Чтобы туннельный р...
Как привлечь 1000 ...
Если он перечислен...
чтения смарт-карт,...
Типизация перемен...
Управление потокам...
Добавление объекта...
Анонимный доступ г...
Списки приборов
Протокол Х.21 - чт...
Рабочий стол
Приемы синтезаторов.
Задание: обзор чле...
Шифрование алгорит...
Разработать прикла...
Добывание инета
11.2. Простая быст...
Оптимизации
Предикат поиска ст...
tld и engineering,...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?