Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2007, 15:40   #1
burunduk
 
Регистрация: 18.01.2007
Сообщений: 3
По умолчанию Помогите написать 3 программы на Delphi

1) Дан текст, за которым следует точка. Вывести га экран в обратном порядке все буквы, входящие в массив 1 раз.
Процедуры функции.

2) Написать программу, с помощью которой можно перемножить две матрицы.

3) написать программу на сортировку парный обмен. Алгоритм парного обмена. Написать так , чтобы выводился каждый шаг праграммы на экран.


Помогите пожалуйсто, очень срочно надо. Долгов выше крыши, ничего не успеваю. Сидел голову ломал-ломал. Не получилось у меня. ='(
burunduk вне форума Ответить с цитированием
Старый 18.01.2007, 16:48   #2
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
2) Написать программу, с помощью которой можно перемножить две матрицы
уже написано, ищи на форуме.
zetrix вне форума Ответить с цитированием
Старый 19.01.2007, 10:13   #3
burunduk
 
Регистрация: 18.01.2007
Сообщений: 3
По умолчанию

а остальные ?
burunduk вне форума Ответить с цитированием
Старый 19.01.2007, 11:05   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
написать программу на сортировку парный обмен. Алгоритм парного обмена. Написать так , чтобы выводился каждый шаг праграммы на экран.
знаю штук 5 способов сортировок (если постараться, могу и больше найти), но такого способа не слышал.
Цитата:
Дан текст, за которым следует точка. Вывести га экран в обратном порядке все буквы, входящие в массив 1 раз.
Процедуры функции.
задача мне не очень понятна: есть текст... входящие в массив... Какой массив? при чём здесь точка? (для чего она). Процедуры и функции - ну это я понял
ICQ есть?

Последний раз редактировалось zetrix; 19.01.2007 в 11:08.
zetrix вне форума Ответить с цитированием
Старый 19.01.2007, 11:16   #5
Prowler
Форумчанин
 
Регистрация: 30.11.2006
Сообщений: 128
По умолчанию

Zetrix, парный обмен имеется в виду, когда сравниваются два рядом стоящих элемента и больший сдвигается к концу и т.д. Так в несколько проходов происходит сортировка. Этот метод как-то по друкому называется и ,наверное самый распространённый.
Burunduk ищи, в сети таких примеров туева хуча - быстрее будет найти, чем ответа ждать.
nosce te ipsumj...
Prowler вне форума Ответить с цитированием
Старый 19.01.2007, 11:24   #6
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Цитата:
парный обмен имеется в виду, когда сравниваются два рядом стоящих элемента и больший сдвигается к концу и т.д. Так в несколько проходов происходит сортировка. Этот метод как-то по друкому называется и ,наверное самый распространённый.
Сортировка "Пузырьком".
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 19.01.2007, 12:29   #7
Prowler
Форумчанин
 
Регистрация: 30.11.2006
Сообщений: 128
По умолчанию

Точно! Точно! Сортировка методом пузыря!
nosce te ipsumj...
Prowler вне форума Ответить с цитированием
Старый 19.01.2007, 14:03   #8
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

хех, парный обмен, это обычная сортировка обменом (или пузырька).
Вот задачка №3:
Код:
uses crt;
const n=10;
type mas = array[1..n] of integer;
var a:mas; i:integer;

procedure vivod;
var g:integer;
begin
for g:=1 to n do write(a[g]:4);
writeln;
end;

procedure sort(var a:mas);
var i,j,tmp: integer;
begin
for i:=1 to n-1 do
 begin
 for j:=i to n do
 if a[i]>a[j]  then begin
                     tmp:=a[j];
                     a[j]:=a[i];
                     a[i]:=tmp;
                     end;
 vivod;
 end;
end;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
 a[i]:=random(255)+1;
 write(a[i]:4);
 end;
 writeln;
sort(a);
readln;
end.
zetrix вне форума Ответить с цитированием
Старый 19.01.2007, 23:54   #9
burunduk
 
Регистрация: 18.01.2007
Сообщений: 3
По умолчанию

Спасибо огромнейшее за помощ.


А насчёт 1 задачки, там просто условие было такое, то что дан текст и в конце стоит точка.
И и я точно не помню как это звучало, но препод сказала, чтоб присудствовали процудуры, функции. Наверно чтоб и так и так было

Последний раз редактировалось burunduk; 19.01.2007 в 23:57.
burunduk вне форума Ответить с цитированием
Старый 21.01.2007, 14:02   #10
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Цитата:
Сообщение от burunduk Посмотреть сообщение
А насчёт 1 задачки, там просто условие было такое, то что дан текст и в конце стоит точка.
И и я точно не помню как это звучало, но препод сказала, чтоб присудствовали процудуры, функции. Наверно чтоб и так и так было
Код:
 
program lit;
 
uses crt;
 
var
symb, ext: set of char;
t: string;
 
procedure check(text: string);
var 
i: integer;
begin
for i:=length(text) to 1 do
if not ((text(i) in symb) and (text(i) in ext)) then
include(text(i),symb) 
else if (text(i) in symb) then 
begin 
include(text(i),ext);
exclude(text(i),symb);
end;
end;
 
procedure textsplit(text: string);
var
i: integer;
begin
for i:= 1 to length(text) do
if (text(i) = '.') then delete(text,i,length(text)-i);
 
procedure writeit;
var
i: byte;
begin
for i:=0 to sizeof(symb) do
write(symb(i),' ');
end;
 
begin
slrscr;
writeln('Type your text');
readln(t);
textsplit(t);
check(t);
writeit;
end.
К паскалю не притрагивался, но должно быть правильно (с мелкими недочетами)...
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программы в паскале пожалуйста neomaximus Помощь студентам 1 15.06.2008 07:43
Помогите написать программы на Delphi Markovnik Помощь студентам 1 06.04.2008 11:29
Помогите написать программы на с++ =42na= Помощь студентам 4 27.11.2007 13:59