Процедура вывода английского алфавита

@nhbajyjdf · Регистрация: 06.06.2013

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

Написать процедуры вывода букв латинского алфавита в виде:
а) z…z ……cccbba

б)
a
ab
abc
abcd
…
a………z

с)
a
bb
ccc
…
z… z

д)
z… z
y.. y
…
bb
a

е)
z
yy
xxx
…
a… a

ж)
abc… z
zbc… z
zzc… z
zzz… z

з)
abc… xyz
zab…wxy
yza… vwx
abc… xyz

и)
a
ab
abc
abcd
abcde
abcdef

Основная программа должна содержать следующие команды вывода процедур:
Readln(x); {x типа char}
Case x of
‘a’: Pr_a;
‘b’: Pr_b;
…
Close;

@Puporev · 27.08.2013, 09:27

Первые две, попробуйте дальше сами

Pascal

uses crt;
procedure pra;
var c:char;
    i,k:byte;
begin
k:=26;
for c:='z' downto 'a' do
 begin
  for i:=1 to k do write(c);
  k:=k-1;
 end;
end;
procedure prb;
var c:char;
    i,k:byte;
begin
for i:=1 to 26 do
 begin
  for k:=1 to i do write(chr(k+96));
  writeln;
 end;
end;
var x:char;
begin
write('x=');
read(x);
case x of
'a':pra;
'b':prb;
end;
end.

Добавлено через 1 минуту
Кстати не понял чем отличается б); и)?

TT_TT · 27.08.2013, 13:00

Puporev, знаю что не по теме но Какие книги по Pascal изучал. Если не секрет?

@Puporev · 27.08.2013, 13:04

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

Какие книги по Pascal изучал

Никакие.

TT_TT · 27.08.2013, 13:07

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

Никакие.

Значит хорошо учился?

Новичок · 27.08.2013, 16:25

Главное практика.

@nhbajyjdf 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 24
		1
	Процедура вывода английского алфавита 26.08.2013, 23:57. Показов 2307. Ответов 5 Метки нет (Все метки) Написать процедуры вывода букв латинского алфавита в виде: а) z…z ……cccbba б) a ab abc abcd … a………z с) a bb ccc … z… z д) z… z y.. y … bb a е) z yy xxx … a… a ж) abc… z zbc… z zzc… z zzz… z з) abc… xyz zab…wxy yza… vwx abc… xyz и) a ab abc abcd abcde abcdef Основная программа должна содержать следующие команды вывода процедур: Readln(x); {x типа char} Case x of ‘a’: Pr_a; ‘b’: Pr_b; … Close; 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	27.08.2013, 13:00	3
	Puporev, знаю что не по теме но Какие книги по Pascal изучал. Если не секрет? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.08.2013, 13:04	4
	Сообщение от TT_TT Какие книги по Pascal изучал Никакие. 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	27.08.2013, 13:07	5
	Сообщение от Puporev Никакие. Значит хорошо учился? 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	27.08.2013, 16:25	6
	Главное практика. 0

Опции темы

Процедура вывода английского алфавита

Решение