Вывести в порядке возрастания кодов все буквы латинского алфавита.

@Zzoyberg · Регистрация: 16.11.2011

Author24 — интернет-сервис помощи студентам

Пользователь вводит латинские буквы. Выведите в порядке возрастания кодов заданные буквы. Алгоритм сортировки необходимо оформить в виде процедуры или функции и поместить в отдельный модуль.

@BakhtiyarZ · 30.12.2011, 09:39

Сам только учусь этому)

Pascal

program sortsim;
uses crt;
var
   a:array [1..100] of char;
   i:integer;
   ch:char;
   n:integer;
procedure sort;
var
   i:integer; // count for mas
   x:char; // for save simbol
   s:integer; // count
begin
   s:=0;
   while s<=n do
   begin
      for i:=1 to n-1 do
      if a[i]>a[i+1] then
      begin
         x:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=x;
      end;
      s:=s+1;
   end;
end;
procedure input;
var
   i:integer;
begin
   for i:=1 to n do
   begin
      write('вводи символ:');
      readln(a[i]);
   end;
end;
procedure output;
var
   i:integer;
begin
   for i:=1 to n do
   write(a[i]:4);
   writeln
end;
begin
   clrscr;
   writeln('введи кол-во символов:');
   readln(n);
   input;
   output;
   sort;
   output;
   readkey;
   end.

@Zzoyberg 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 16
		1
	Вывести в порядке возрастания кодов все буквы латинского алфавита. 28.12.2011, 03:21. Показов 2308. Ответов 1 Метки нет (Все метки) Пользователь вводит латинские буквы. Выведите в порядке возрастания кодов заданные буквы. Алгоритм сортировки необходимо оформить в виде процедуры или функции и поместить в отдельный модуль. 0

	30.12.2011, 09:39

Вывести в порядке возрастания кодов все буквы латинского алфавита.

Решение