Заменить буквы в слове на их порядковый номер в алфавите

@Lady_Boo · Регистрация: 16.03.2010

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

помогите отредактировать задачу и составить к ней блок-схему)

Пользователь задает слово, компьютер заменяет буквы в слове на их порядковый номер в алфавите

вот решение

Pascal

uses crt;
var s:array [1..100] of char;
a:array [1..100] of integer;
i,j,l,w,n:integer;
c,t:char;
begin
clrscr;
writeln('vvedite slovo');
l:=0;
repeat
read (c);
if (ord (c)>=32) then begin
l:=l+1;
s[l]:=c;
end;
until (ord (c)<32);
textcolor(14);
for l:=1 to l do begin
if (ord(s[l])>=65) and (ord(s[l])<=90) then begin
w:=ord(s[l])+32-96;
end;
if ord(s[l])>=96 then begin
w:=ord(s[l])-96;
end;
write (w:5);
end;
readln;
end.

@Puporev · 22.03.2010, 17:30

Pascal

uses crt;
var s,s1:string;
    i:byte;
begin
clrscr;
writeln('Введите слово:');
readln(s);
for i:=length(s) downto 1 do
 begin
  str(ord(s[i]),s1);
  insert(s1,s,i);
  delete(s,i+length(s1),1);
 end;
write(s);
readln
end.

@WolfCF · 24.03.2010, 11:49

в ЛС только код не надо скидывать.

	24.03.2010, 11:49