Комментарии: Решаем задачи Абрамян на Паскале. String4

Автор: Anton

Anton — Thu, 09 Mar 2017 05:01:32 +0000

Это из за того, что код добавляют без использования кнопки «Вставить код» (кажеться её в те времена небыло). Часть кода пропала. Там было что то типо:
while ((1 >= Number) or (Number >= 26)) do

while (Number 26) do
begin
writeln(‘Wrong input, please try again.’);
writeln;
write(‘Enter a Number from 1 to 26: ‘);
readln(Number);
end;
Это проверка на правильность ввода числа N. Если вырезать этот кусок, то просто не будет проверки на правильность ввода.

Код поправил в решении от Newton
было:
while (Number 26) do,
стало:
while ((1 >= Number) or (Number >= 26)) do

Автор: Гор

Гор — Tue, 07 Mar 2017 10:47:58 +0000

Извините скажете пожалуйста while(number 26) это у меня не работает , без знаков (=) while работает?

Автор: Anton

Anton — Fri, 02 Dec 2016 04:13:52 +0000

В ответ на Newton. ммм... решение хорошее... добавил в шапку. Но на этом этапе лучше бы скачать уже "ascii таблицу символов" ... а то дальше будет хуже :)

Автор: Newton

Newton — Thu, 01 Dec 2016 21:57:29 +0000

Я сначала тоже хотел так сделать и выяснил коды для латинских букв при помощи цикла с ord(), и у меня получился диапазон 65-90. Потом решил сделать иначе, а заодно и отвязался от кодировки:

program String4;

var
   Number, Counter : byte;
   Symbol          : char;

begin
   write('Enter a Number from 1 to 26: ');
   readln(Number);
   while (Number  26) do
      begin
         writeln('Wrong input, please try again.');
         writeln;
         write('Enter a Number from 1 to 26: ');
         readln(Number);
      end;  
   Symbol := 'A';    
   for Counter := 1 to Number do 
      begin
         writeln(Counter :4, Symbol :4);
         inc(Symbol);
      end;
end.

program String4;

var

Number, Counter : byte;

Symbol : char;

begin

write('Enter a Number from 1 to 26: ');

readln(Number);

while (Number 26) do

begin

writeln('Wrong input, please try again.');

writeln;

write('Enter a Number from 1 to 26: ');

readln(Number);

end;

Symbol := 'A';

for Counter := 1 to Number do

begin

writeln(Counter :4, Symbol :4);

inc(Symbol);

end;

end.