Помоги, люди добрые...

← →
Groof © (2005-11-05 21:52) [0]

Надо написать консольное приложение для дельфи.С клав-ы вводятся 5 чисел..в динамический массив, и все переменные должны быть динамическими..Надо отсортировать массив, и отобразить изначальный массив, и отсортированный. Только есть минус, мне нельзя писать преподу что-то сложное и заумное..
вот для с++ эту проу я написал. Вот код:

#include <string>
#include <windows.h>
#include <iostream>
using namespace std;
char* sta(char *ps)
{
char *bf=new char[strlen(ps)];
CharToOem(ps,bf);
return bf;
}

int main ()
{
int *a=new int[5],
*pi=new int,
*h=new int,
*pj=new int;
cout<<sta("Ââåäèòå 5 öåëûõ ÷èñåë:")<<endl;
for ((*pi)=0;(*pi)<5;(*pi)++)
cin >> a[*pi];
delete pi;
cout<<sta("Èñõîäíûé ìàññèâ:")<<endl;
for (*pi=0;*pi<5;(*pi)++)
cout<<a[*pi]<<" ";
cout<<endl;
cout<<sta("Óïîðÿäî÷åííûé ïî óáûâàíèþ ìàññèâ:")<<endl;

for(*pi=4;(*pi)>=0;(*pi)--)
{
for(*pj=1;(*pj)<=(*pi);(*pj)++)
{
if (a[*pj]<a[*pj-1])
{
*h=a[*pj];
a[*pj]=a[*pj-1];
a[*pj-1]=*h;
}
}
cout<<a[*pi]<<" ";
}
delete h;
delete pj;
delete []a;
cout<<endl;
cin.get();
return 0;
}

← →
TUser © (2005-11-06 07:46) [1]

program 2prep;
{$apptype console}
uses SysUtils;

const Count = 5;

var Ar: array of integer;

procedure PrintArray;
var i: integer;
begin
for i:=0 to High(ar) do
writeln ("Ar["+inttostr(i)+"] = "+inttostr(Ar[i]));
writeln;
end;

var
i, j,k: integer;
s: string;
begin
SetLength (Ar,Count);

// вводим числа
for i:=0 to Count-1 do begin
write ("Ar["+inttostr(i)+"] = ");
readln(s);
Ar[i]:=StrToInt (s);
end;

writeln;
writeln ("Source array");
PrintArray;

// пузырек
for i:=Count-1 downto 1 do
for j:=1 to i do
if Ar[j] < Ar[j-1] do begin
k:=Ar[j]; Ar[j]:=Ar[j-1]; Ar[j-1]:=k;
end;

writeln ("Result array");
PrintArray;

end.

← →
PZ (2005-11-06 09:24) [2]

>TUser © (06.11.05 07:46) [1]

if Ar[j] < Ar[j-1] do begin
if Ar[j] < Ar[j-1] then begin

← →
PZ (2005-11-06 10:21) [3]

>TUser © (06.11.05 07:46) [1]

Можно несколько упростить Вашу программу: переменная S - ни к чему

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
Count = 5;

var
Ar: array of integer;

procedure PrintArray;
var i: integer;
begin
for i:=0 to High(ar) do
writeln ("Ar["+inttostr(i)+"] = ", Ar[i]);
writeln;
end;

var
i, j, k: integer;

begin
SetLength (Ar, Count);

// вводим числа
writeln;
for i:=0 to Count-1 do
begin
write ("Ar["+inttostr(i)+"] = ");
readln(Ar[i]);
end;

writeln;
writeln ("Source array");
PrintArray;

// пузырек
for i:=Count-1 downto 1 do
for j:=1 to i do
if Ar[j] < Ar[j-1] then //do
begin
k:=Ar[j]; Ar[j]:=Ar[j-1]; Ar[j-1]:=k;
end;

writeln ("Result array");
PrintArray;
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Помоги, люди добрые... Найти похожие ветки