Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Rashid_
0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 20
#1

Напечатать числа в виде слеующей таблицы - Turbo Pascal

06.04.2011, 17:34. Просмотров 1663. Ответов 5
Метки нет (Все метки)

Напечатать числа в виде слеующей таблицы:
6 5 4 3 2
5 4 3 2
4 3 2
3 2
2
сам бы с writeln сделал бы, но надо с вложеным циклом
Вот пример:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program pr;
var a,b,x : integer;
begin
x:=5;
[COLOR="Red"]for a:=1 to 5 do [/COLOR]
begin
writeln;
[COLOR="Red"]for b:=1 to a do[/COLOR]
write (x:4)
end;
end.
Это для такой таблицы:
5
5 5
5 5 5
5 5 5 5
5 5 5 5 5
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.04.2011, 17:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Напечатать числа в виде слеующей таблицы (Turbo Pascal):

Напечатать числа в виде таблицы - Turbo Pascal
Здравствуйте, помогите с задачей пожалуйста Напечатать числа в виде таблицы используя только циклы(массивы и строки не применять) ...

Напечатать числа в виде таблицы - Turbo Pascal
Напечатать числа в виде следующей таблицы: 0 1 0 2 1 0 3 2 1 0 4 3 2 1 0 а) 6 5 4 3 2 5 4 3 2

Напечатать числа в виде таблицы - Turbo Pascal
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Напечатать числа в виде следующей таблицы: а) 3 3 3 3 3 ...

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

Напечатать числа в виде следующей таблицы: - Turbo Pascal
Напечатать числа в виде следующей таблицы: 2 3 4 5 6 7 8 9 10 3 4 5 6 7 8 9 10 4 5 6 7 8 9 10 .................. 9 10 ...

Напечатать числа в виде следующей таблицы - Turbo Pascal
65432 5432 432 32 2

5
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 23.09.2010
Сообщений: 4,877
06.04.2011, 17:50 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses
 CRT;
var
 a,b:integer;
begin
for a:=5 downto 1 do
begin
 for b:=5 downto 1 do
  begin
   if b>=5-a+1 then write((a+b)-4:4)
  end;
 writeln
end;
end.
1
Rashid_
0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 20
06.04.2011, 17:57  [ТС] #3
for a:=5 downto 1 do - это понижение перемменной (а) на единицу?
и объясни пожалуйста поподробней эту строчку if b>=5-a+1 then write((a+b)-4:4)
0
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 23.09.2010
Сообщений: 4,877
06.04.2011, 18:04 #4
это понижение перемменной (а) на единицу?
да.
и объясни пожалуйста поподробней эту строчку if b>=5-a+1 then write((a+b)-4:4)
начерти матрицу с индексацией и посмотри зависимость.
0
Rashid_
0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 20
06.04.2011, 18:11  [ТС] #5
лан, спасибо, я понял, но внятно преподу объяснить врятле смогу
прост downto мы не разбирали почемут.
и Uses
CRT; обязательно использовать????
0
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 23.09.2010
Сообщений: 4,877
06.04.2011, 18:12 #6
Uses
CRT;
можешь убрать.это не нужно.
0
06.04.2011, 18:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2011, 18:12
Привет! Вот еще темы с ответами:

Напечатать числа в виде следующей таблицы - Turbo Pascal
11111 1111 111 11 1

Напечатать числа в виде следующей таблицы - Turbo Pascal
3 0 23 90 223 890 2223 7890 22223 67890

Напечатать числа в виде таблицы, используя только циклы - Turbo Pascal
4.4) Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 1 2 3…10 1 2 3…10 1 2 3…10 1 2 3…10

Напечатать числа в виде таблицы, используя только циклы - Turbo Pascal
4.4) Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 41 42 43… 50 51 52 53…60 71 72 73…80


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

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

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