Навигация
Главная
Поиск
Форум
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
Имитационное мо... 59465
Реклама
Сейчас на сайте
Гостей: 3
На сайте нет зарегистрированных пользователей

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

Метод конечных разностей для интерполяции/экстраполяции на Delphi
Расчет мер близости на отношениях на Delphi + Пояснительная записка
Расчет обратной матрицы на Delphi + Пояснительная записка

Реклама



Подписывайся на 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 Комментариев · 22036 Прочтений · Для печати

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


Комментарии
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...
Шаблон для новост...

Случайные загрузки
Доступа к БД Fire...
Программирование ...
Delphi 2005 Учимс...
Защита от спама ...
Delphi 7: Для про...
Adapter (пример D...
Язык программиров...
GPSS World Studen...
Разработка интерн...
PHP5. Профессиона...
MiniTetris [Исход...
Turbo Pascal for ...
Генетический алго...
Модифицированная ...
PHP в примерах
Visual Basic Script
ATComponents
Создание отчетов ...
Pass [Исходник на...
Zoom [Исходник на...

Топ загрузок
Приложение Клие... 100512
Delphi 7 Enterp... 90258
Converter AMR<-... 20092
GPSS World Stud... 14994
Borland C++Buil... 12711
Borland Delphi ... 8944
Turbo Pascal fo... 7093
Калькулятор [Ис... 5129
Visual Studio 2... 5018
FreeSMS v1.3.1 3554
Случайные статьи
Unknown Identifier
План книги
Прямая адресация
Для редактирования...
Создание иконки пр...
Выбор ключа итерации
Где купить кухню в...
Гарантирует, что п...
Узел ограничения д...
Проверка жесткого ...
ListBox на Windows
Архитектура Ethern...
Подход к реализаци...
Ещё о защите e-mai...
Режим нагрева водо...
О файле Favicon.ico
Duplicate Identifier
Измерение времени ...
Перспективное план...
Клуб Вулкан снова ...
Параллелизм и инст...
Книги и статьи
32-битовое целое ч...
Стандарт IEEE 802....
Деструктор
Статистика



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


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