Написать программу, сортирующую символы

@Ulquiorra69666 · Регистрация: 14.03.2010

решите задачу плз
Написать программу, сортирующую символы, введенной с клавиатуры строки в порядке возрастания их номеров в ASCII -таблице.( 'СВА' в 'ABC')

необходимо использование процедур или функций и модулей.
напишите полностью с вводом и выводом.

@Puporev · 16.03.2010, 10:55

Сообщение от Ulquiorra69666

напишите полностью с вводом и выводом.

А если не напишем, нас накажут?

@Ulquiorra69666 · 16.03.2010, 10:59 **[ТС]**

вас нет а меня не то что накажут...просто покарают

@Puporev · 16.03.2010, 11:12

1. Текст модуля. Файл с текстом сохраните с именем unit1. Нажмите Ctrl+F9 -> Ok.
Будет модуль Unit1.tpu, подключите к программе.

Pascal

unit unit1;
interface
procedure Sort(var st:string);
implementation
procedure Sort;
var n,i,j:byte;
    c:char;
begin
n:=ord(st[0]);
for i:=1 to n-1 do
for j:=i+1 to n do
if st[i]>st[j] then
 begin
  c:=st[i];
  st[i]:=st[j];
  st[j]:=c;
 end;
writeln;
writeln('Сортировка:');
write(st);
readln
end;
end.

Текст программы.

Pascal

uses crt,unit1;//подключаем модуль
var s:string;
begin
clrscr;
writeln('Строка:');
readln(s);
Sort(s)
end.

@Ulquiorra69666 2 / 2 / 0 Регистрация: 14.03.2010 Сообщений: 27
		1
	Написать программу, сортирующую символы 16.03.2010, 10:54. Показов 1017. Ответов 3 Метки нет (Все метки) решите задачу плз Написать программу, сортирующую символы, введенной с клавиатуры строки в порядке возрастания их номеров в ASCII -таблице.( 'СВА' в 'ABC') необходимо использование процедур или функций и модулей. напишите полностью с вводом и выводом. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	16.03.2010, 10:55	2
	Сообщение от Ulquiorra69666 напишите полностью с вводом и выводом. А если не напишем, нас накажут? 0

@Ulquiorra69666 2 / 2 / 0 Регистрация: 14.03.2010 Сообщений: 27
	16.03.2010, 10:59 [ТС]	3
	вас нет а меня не то что накажут...просто покарают 0

Опции темы