Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Задана окружность и прямая. Определить, пересекаются ли прямая и окружность Задана окружность с центром в точке O(0,0) и радиусом R0, и прямая y = ax+b. Определить, пересекаются ли прямая и окружность. Если пере- секаются, найти точку пересечения. https://www.cyberforum.ru/ turbo-pascal/ thread616694.html Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n. Если пересекаются, то найти точку пересечения Turbo Pascal
Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n. Если пересекаются, то найти точку пересечения
Turbo Pascal Дан текстовый файл. Распечатайте текст в обратном порядке слов https://www.cyberforum.ru/ turbo-pascal/ thread616681.html
Дан текстовый файл. Распечатайте текст в обратном порядке слов. Эта задача по теме "Динамические структуры данных"
Turbo Pascal Определить, в каком из файлов больше положительных, отрицательных и нулевых https://www.cyberforum.ru/ turbo-pascal/ thread616675.html
даны два файла вещественных чисел определить в каком из них больше положителтных отрицательных и нулевых значений......плизззз
Turbo Pascal Написать программу построения графика функции y= lnX – 2 на отрезке [-2;3]
Написать программу построения графика функции y= lnX – 2 на отрезке
Turbo Pascal Генерировать все k-значные числа, не содержащие одинаковых цифр, кратные 2 и 3 https://www.cyberforum.ru/ turbo-pascal/ thread616583.html
Помогите, пожалуйста, составить программу. Или объясните очень подробно как это сделать. Вот задание: Написать программу, которая выполняет задание варианта с помощью генерации всех соответствующих...
Turbo Pascal Проверить правильность расстановки круглых и квадратных скобок в выражениях https://www.cyberforum.ru/ turbo-pascal/ thread616547.html
2 дана строка символов проверить правильность расстановки круглых и квадратных скобок в выражениях
Двунаправленный линейный список строк. Вставить строку, удалить строку и заменить строку Turbo Pascal
3 двунаправленный линейный список строк.требуется вставить строку после строки с номером и удалить строку с номером и заменить строку с номером и подсчитать стастистику (количество строк и символов)...
Turbo Pascal Упорядочить массив так, чтобы сначала иши упорядоченные положительные члены а потом упорядоченные отрицательные члены https://www.cyberforum.ru/ turbo-pascal/ thread616531.html
1 упорядочить одномерный массив таким образом,чтобы сначала ии упорядоченные положительные члены а потом упорядоченные по возрастанию отрицательные члены tarasman, следующее название вроде...
Turbo Pascal Кольцевой список https://www.cyberforum.ru/ turbo-pascal/ thread616523.html
Составила программу, но преподаватель сказал, что -то вроде:"для таких задачек, подобные простыни не составляют"..... Помогите оптимизировать - сделать код компактнее. Задача: нужно в кольцевой...
Turbo Pascal Окружность вписана в квадрат. Найти площадь квадрата, вписанного в эту окружность
Помогите, пожалуйста... 2)Окружность вписана в квадрат (задана площадь этого квадрата) найти площадь квадрата вписанного в эту окружность. Так ли это решается? Program abc; Var s2:real;...
Turbo Pascal В массиве хранятся сведения о количестве осадков. Определить общее количество осадков 2. В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить общее количество осадков за январь. https://www.cyberforum.ru/ turbo-pascal/ thread616500.html
153 / 153 / 81
Регистрация: 16.06.2012
Сообщений: 314
29.06.2012, 22:35 0

Циклы. Напечатать числа в виде таблицы, используя только циклы - Turbo Pascal - Ответ 3223541

29.06.2012, 22:35. Показов 2208. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено User233 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var n , i , j : integer;
Begin
    ReadLn(n);
    for i := 1 to n do begin
        for j := 1 to i do 
            Write(i,' ');
        Writeln;    
    end;
End.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var n , i , j : integer;
Begin
    ReadLn(n);
    for i := 1 to n do begin
        for j := 1 to n - i do
            Write(' ');
        for j := 1 to i do 
            Write(i,' ');
        Writeln;    
    end;
End.


Вернуться к обсуждению:
Циклы. Напечатать числа в виде таблицы, используя только циклы Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 22:35
Готовые ответы и решения:

Циклы. Напечатать числа в виде таблицы, используя только циклы
4. Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): ...

Напечатать числа в виде таблицы, используя только циклы
Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 1 2 3 4...

Напечатать числа в виде таблицы, используя только циклы
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5

Напечатать числа в виде таблицы, используя только циклы
4.4) Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 1...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2012, 22:35
Помогаю со студенческими работами здесь

Напечатать числа в виде таблицы, используя только циклы
Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять)...

Напечатать числа в виде таблицы, используя только циклы
41 42 43…50 51 52 53…60 71 72 73…80

Напечатать числа в виде таблицы, используя только циклы
4.4) Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 41...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru