ШРИФТЫ

[Snapper]

как уменьшить шрифт без ascii кода и без прописи каждого символа алфавита в отдельности...так же программка не работает если при вводе в командной строке последний символ цифра... объясните если не сложно..

uses crt;
var s:string;
    i,n:integer;
begin
  write('Введите парметр: ') ;
  readln(s);
  n:=length(s);          //n- присваивает занчение всей длины строки
  for i:=1 to n do
   if s[i] in ['A'..'Z'] then
     begin
      if s[i]='A' then s[i]:='a'; if s[i]='B' then s[i]:='b';
      if s[i]='C' then s[i]:='c'; if s[i]='D' then s[i]:='d';
      if s[i]='E' then s[i]:='e'; if s[i]='F' then s[i]:='f';
      if s[i]='G' then s[i]:='g'; if s[i]='H' then s[i]:='h';
      if s[i]='I' then s[i]:='i'; if s[i]='J' then s[i]:='j';
      if s[i]='K' then s[i]:='k'; if s[i]='L' then s[i]:='l';
      if s[i]='M' then s[i]:='m'; if s[i]='N' then s[i]:='n';
      if s[i]='O' then s[i]:='o'; if s[i]='P' then s[i]:='p';
      if s[i]='Q' then s[i]:='q'; if s[i]='R' then s[i]:='r';
      if s[i]='S' then s[i]:='s'; if s[i]='T' then s[i]:='t';
      if s[i]='U' then s[i]:='u'; if s[i]='V' then s[i]:='v';
      if s[i]='W' then s[i]:='w'; if s[i]='X' then s[i]:='x';
      if s[i]='Y' then s[i]:='y'; if s[i]='Z' then s[i]:='z';
     end
      else if not (s[i] in ['a'..'z']) then begin
                                               delete(s,i,1);
                                               i:=i-1;
                                               n:=length(s);
                                             end;

  writeln(s) ;
end.

[Niro]

Для перевода маленьких букв в большие есть функция upcase, а вот наоборот, насколько я знаю нет, но можно сделать так

for i:=1 to length(st) do
new_st:=nev_st+chr( ord(st[i])+32 );

где st - исходная строка
new_st - новая строка

[Snapper]

Не робит!!! плиз глянь еще раз....

                   uses crt;
label metka;
var s,k:string;
    i:integer;
begin
metka:  write('Введите парметр: ') ;
  readln(s);
  for i:=1 to length(s) do
k:=k+chr( ord(s[i])+32 );
  writeln(s) ; goto metka;
end.

оператор удаления убрал чтоб не мешала...

[Stilet]

LowCase еще не отменяли.

[Snapper]

я кривой надо было не: writeln(s),а writeln(k);***

[Snapper]

Хотя стоп... если прописать в нижнем регистре, то выдает какую-то адабрукадабру....что за?

[Snapper]

I need help=/

[Snapper]

uses crt;
label metka;
var s:string; n,i:integer;
     begin
metka:  write('Введите параметр: ') ;
  readln(s); n:=length(s);
  for i:=1 to n do
  s[i]:=LowCase(s[i]);
  writeln(s) ; goto metka;
end.

если кому надо... сейчас приделаю удалятель не буков)

[Snapper]

ВСЯ ПРОГА ВЫГЛЯДИТ ВОТ ТАК! робит на двух языках: русский, английский

uses crt;
label metka;
var s:string; n,i:integer;
begin
metka:  write('Введите параметр: ') ;
  readln(s); n:=length(s);
  for i:=1 to n do
begin
  s[i]:=LowCase(s[i]);
   if not (s[i] in ['a'..'z']) and not (s[i] in ['а'..'я']) then begin
                                               delete(s,i,1);
                                         if i<n   i:=i-1;
                                                n:=length(s);
                                             end;
end;
  writeln(s) ;  goto metka;
end.