Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Алесандра
0 / 0 / 0
Регистрация: 08.12.2010
Сообщений: 6
#1

вывести треугольник, состоящий из букв латинского алфавита определенной конфигурации.

21.01.2012, 23:35. Просмотров 1601. Ответов 2
Метки нет (Все метки)

Ребят, такая проблема - надо вывести треугольник следующей конфигурации:
A B C D ... Z
B C D ... Z
C D ... Z
D ... Z
... Z
При этом использовать функцию SUCC.
Прямоугольный треугольник я вывела, как его развернуть, чтоб вывести конфигурацию, "нарисованную" выше?

Каждая строка треугольника должна быть сдвинута вправо на 6 пробелов.
Здесь, почему-то не отображается нужный рисунок
0
Вложения
Тип файла: txt CHAR_6.txt (299 байт, 31 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 23:35
Ответы с готовыми решениями:

Вывести на экран N (задается константой) случайных букв латинского алфавита в виде пары
1. Напишите программу, которая выводит на экран N (задается константой)...

Вывести N последних строчных (т. е. маленьких) букв латинского алфавита в обратном порядке (начиная с буквы «z
Дано целое число N (1 ≤ N ≤ 26). Вывести N последних строчных (т. е. маленьких)...

Множество букв латинского алфавита.
Заданное множество букв латинского алфавита. Проверить наявинисть в этом...

Cлова? начинающиеся с гласных букв латинского алфавита...
дан текст. вывести все слова начинающиеся с гласных букв латинского алфавита....

Вычислить количество букв латинского алфавита, входящих в последовательность
Написать программу на языке Pascal: дана последовательность, состоящая из n...

2
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
22.01.2012, 10:16 #2
Лучший ответ Сообщение было отмечено Алесандра как решение

Решение

Алесандра, уверена, что именно на 6?
Цитата Сообщение от Алесандра Посмотреть сообщение
Каждая строка треугольника должна быть сдвинута вправо на 6 пробелов
тогда нет трудностей:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program char_6;
USES CRT;
VAR i,j: char;
    k: integer;
Begin
ClrScr;
for j:='A' to 'Z' do
    begin
    for k:=1 to 6 do
        write(' ');
    for i:=SUCC(j) to 'Z' do
        write(i);
    writeln;
    end;
readkey;
END.
но, думаю, тебе все же нужен другой результат, например, такой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program char_6;
USES CRT;
VAR i,j: char;
    k,r: integer;
Begin
ClrScr;
for j:='A' to 'Z' do
    begin
    r:=(ord(SUCC(j))-ord('A'));
    for k:=1 to r do
        write(' ');
    for i:=SUCC(j) to 'Z' do
        write(i);
    writeln;
    end;
readkey;
END.
если и этот не подходит, приведи точное условие...
1
Алесандра
0 / 0 / 0
Регистрация: 08.12.2010
Сообщений: 6
22.01.2012, 11:03  [ТС] #3
Да да да, второй вариант тот, что нужен, спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 11:03

Рекурсия: вывод повторяющихся букв латинского алфавита на экран
Дано натуральное чётное число n. Написать рекурсивную процедуру вывода на экран...

В заданной строке подсчитать количество букв латинского алфавита
В заданной строке подсчитать количество букв латинского алфавита

Определить, сколько различных букв латинского алфавита встречается в строке
Определите, сколько различных букв латинского алфавита встречается в строке....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru