Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 61
1

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

29.06.2012, 07:57. Просмотров 2008. Ответов 1
Метки нет (Все метки)

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

Код
        10
      20 20
    30 30 30
  40 40 40 40
50 50 50 50 50
для 4го задания пример

Не по теме:

Написать программу, которая выводит на экран заданный набор символов используя либо цикл while…do, либо только цикл repeat…until. Массивы и строки не применять
A C E G I
I A C E G
G I A C E
E G I A C
C E G I A
Полная программа получается в результате объединения цикла по строкам, первой и второй частей

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program qwe;
var   First,C:char;
begin
First := 'K';
repeat
      C:= First;
      if C <> 'K' then
         repeat
         write(C:2);
         C := succ(succ(C));
         until C > 'I';
      C := 'A';
        repeat
        write(C:2);
        C := succ(succ(C));
        until C > pred(pred(First));
      WriteLn;
      First := pred(pred(First));
until First < 'C';
end.
Более просто выглядит решение с использованием цикла while…do:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var C,First: char;
Begin
First:='K';
while First>='C' do begin
      {1 часть}
      C := First;
      while C <= 'I' do begin
            write(C:2);
            C := succ(succ(C));
      end;
      {2 часть}
      C := 'A';
      while C <=pred(pred(First)) do begin
            write(C:2);
            C :=succ(succ(C));
      end;
      writeln;
      First := pred(pred(First));
end;
readln;
end.

0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 07:57
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.06.2012, 15:16 2
если без пирамидки
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var i,j: byte;
begin
for i:=1 to 5 do
   begin
   for j:=6-i to 5 do
        write(i*10:3);
   writeln;
   end;
readln;
end.
если пирамидкой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i,j: byte;
begin
for i:=1 to 5 do
   begin
   for j:=1 to 6-i do
       write('  ');
   for j:=6-i to 5 do
        write(i*10:3);
   writeln;
   end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2012, 15:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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


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

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

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