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

igor_kz

153 / 153 / 81

Регистрация: 16.06.2012

Сообщений: 314

29.06.2012, 22:35

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

29.06.2012, 22:35. Показов 2208. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

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

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...

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. Организация вывода с использованием вложенных циклов Напечатать числа в виде таблицы, используя...

Наверх