Строки и Массив Опции

[nSk]

Как Строку в массив засунуть ? одна ячейка массива одна буква из строки

Сообщение отредактировано: nSk - 6.01.2006 19:26

[nSk]

А вот с этого места - поподробнее...

Error 2 : Indentifier expected

наводит на мысль, что ты просто не пытался, и ждешь, чтобы это сделали ЗА ТЕБЯ.

Пытаюсь...пытался разными способами кидать все что я путался было флуудлм... извени
крч вот так... так как я думал можно сделать

Var
  c:string;
  loop : integer;
function upper(c:string):string;
begin
for loop := 1 to length© do
  begin
  if c[loop] in ['a'..'z']
        then upper := chr(ord(c[loop])-32)

        else upper := c;

  end;

end;

begin
        write('Enter a string: ');
        readln( с );
        writeln(upper(  с  );
  readln; 

из всей строки он оставляет тока последнюю букву и делает её большой !

Вопрос : Как сделать чтоб она выводила всю строку в больших буквах.
________________________________________

Если бы ты написал: "я ввел то-то и то-то, должно было получиться то-то и то-то, вот программа, но не работает, выдает вот это...", такое принимается.

ТАК подходит ????

Сообщение отредактировано: nSk - 6.01.2006 20:46