Таблица

@Deathless · Регистрация: 17.10.2013

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

Как вывести в виде таблицы малые буквы латинского алфавита и их коды?

@Puporev · 21.12.2013, 08:38

Pascal

uses crt;
var c:char;
    i:byte;
begin
writeln('--------------------------');
writeln('|буква| код ||буква| код |');
writeln('--------------------------');
i:=4;
for c:='a' to 'z' do
 begin
  if i<=16 then
   begin
    gotoXY(1,i);
    write('|',c:3,'  |',ord(c):4,' ||');
    i:=i+1;
   end
  else
   begin
    gotoXY(15,i-13);
    write(c:3,'  |',ord(c):4,' |');
    i:=i+1;
   end ;
 end;
writeln;
writeln('--------------------------');
end.

@Deathless · 21.12.2013, 15:19 **[ТС]**

Спасибо большое!
А ты не мог бы пожалуйста объяснить эту часть программы?

Pascal

i:=4;
for c:='a' to 'z' do
 begin
  if i<=16 then
   begin
    gotoXY(1,i);
    write('|',c:3,'  |',ord(c):4,' ||');
    i:=i+1;
   end
  else
   begin
    gotoXY(15,i-13);
    write(c:3,'  |',ord(c):4,' |');
    i:=i+1;
   end ;
 end;

Добавлено через 52 секунды
Вернее сказать как она работает..

Добавлено через 15 секунд
Пожалуйста

@Puporev · 21.12.2013, 15:25

А что именно не понятно?

@Deathless · 21.12.2013, 17:04 **[ТС]**

Вот это:

Pascal

1
2
3

 gotoXY (1 , i ) ;
write( '|' , c :3 , '  |' , ord ( c ): 4 , ' ||' ) ;
i := i + 1;

И это:

Pascal

1
2
3

 gotoXY (15, i - 13) ;
write( c : 3 ,'  |' , ord( c ) : 4, ' |' ) ;
i := i + 1;

Извини, просто с таблицами первый раз пишу.

@Puporev · 21.12.2013, 17:08

Сообщение от Deathless

первый раз пишу.

Да нихрена ты не пишешь...

Добавлено через 1 минуту
Если ты не знаешь ни gotoXY ни ord ни вообще ничего, о чем вообще говорить, прочитай хоть справку Паскаля,если до книг не дорос

@Deathless · 21.12.2013, 17:30 **[ТС]**

Спасибо за помощь и за совет.
П.С. Я только начал изучать Паскаль.

@Puporev · 21.12.2013, 17:32

Ну вот и изучай, встретил незнакомое слово, ищи в справке, в книгах, спрашивай если не найдешь. А объснять целые примитивные но большие куски кода это нет.

@Deathless · 21.12.2013, 17:33 **[ТС]**

Спасибо.)

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
		1
	Таблица 21.12.2013, 00:53. Показов 684. Ответов 8 Метки нет (Все метки) Как вывести в виде таблицы малые буквы латинского алфавита и их коды? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2013, 15:25	4
	А что именно не понятно? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2013, 17:08	6
	Сообщение от Deathless первый раз пишу. Да нихрена ты не пишешь... Добавлено через 1 минуту Если ты не знаешь ни gotoXY ни ord ни вообще ничего, о чем вообще говорить, прочитай хоть справку Паскаля,если до книг не дорос 0

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
	21.12.2013, 17:30 [ТС]	7
	Спасибо за помощь и за совет. П.С. Я только начал изучать Паскаль. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2013, 17:32	8
	Ну вот и изучай, встретил незнакомое слово, ищи в справке, в книгах, спрашивай если не найдешь. А объснять целые примитивные но большие куски кода это нет. 1

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
	21.12.2013, 17:33 [ТС]	9
	Спасибо.) 0

Опции темы