Табл. умножения и сложение

@Анжелка=) · Регистрация: 16.04.2010

Студворк — интернет-сервис помощи студентам

Ув. пользователи!
Помогите пожалуйста с решением задачки на Паскале)

Задача: Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счистления.

Использовать оператор цикла REPEAT

Буду очень благодарна =)

Добавлено через 10 минут
* и если можно, то без процедуры Inc и функции ord.

Добавлено через 10 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b:array[1..10]of integer;
i,j,p:integer;
begin clrscr;
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   begin
   p:=i*j;
   writeln(i,'*',j,'=',p);
   end;
  end;
 
readkey;
end.

вот!! а через repeat не умею(

@toxa92 · 16.04.2010, 19:10

Pascal
1
2
3
4
5
6
7
8
9
repeat
      begin
         repeat
            твой цикл
            j:=j+1
         until j<=10
      end;
i:=i+1;
until i<=10

Вроде так)

@AI\EKCAH^P · 16.04.2010, 19:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Program zada4a;
uses crt;
var
 i,j:byte;
  begin
   clrscr;
   textColor(10);
   writeln('         ***  таблица умножения  ***');
   writeln;
   writeln;
   for i:=0 to 10 do
   begin
    write(i:5);
   end;
   writeln;
   for i:=1 to 10 do
   begin
    write(i:5);
    for j:=1 to 10 do
    begin
     textcolor(15);
     write((i*j):5);
    end;
    textcolor(10);
    writeln;
   end;
   writeln;
   writeln;
   textcolor(4);
   write('    нажмите <Enter> -> ');
  readln;
  end.

@Анжелка=) · 16.04.2010, 19:15 **[ТС]**

Сообщение от toxa92

Pascal
1
2
3
4
5
6
7
8
9
repeat
      begin
         repeat
            твой цикл
            j:=j+1
         until j<=10
      end;
i:=i+1;
until i<=10

Вроде так)

как--то не совсем поняла(
сейчас попробую )

Добавлено через 37 секунд
AI\EKCAH^P, да, но надо же через repeat.

@AI\EKCAH^P · 16.04.2010, 19:16

сложение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program zada4a;
uses crt;
var
 i,j:byte;
  begin
   clrscr;
   textColor(10);
   writeln('         ***  таблица сложения  ***');
   writeln;
   writeln;
   for i:=0 to 10 do
   begin
    write(i:5);
   end;
   writeln;
   for i:=1 to 10 do
   begin
    write(i:5);
    for j:=1 to 10 do
    begin
     textcolor(15);
     write((i+j):5);
    end;
    textcolor(10);
    writeln;
   end;
   writeln;
   writeln;
   textcolor(4);
   write('    нажмите <Enter> -> ');
  readln;
  end.

Добавлено через 48 секунд
да,виноват)

@Анжелка=) · 16.04.2010, 21:33 **[ТС]**

но все равно спасибо =)

Добавлено через 12 минут
эм..не получается(
я все равно дуб дубом(

можно по конкретнее ?

Добавлено через 52 минуты
up=((((

Добавлено через 1 час 11 минут
может кто - нибудь написать нормальную прогу?

@toxa92 · 16.04.2010, 21:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program table;
uses crt;
var
i,j: integer;
begin
writeln('         ***  таблица умножения  ***');
i:=0;j:=0;
repeat
    begin
    repeat
        begin
            writeln((i+1)*(j+1) + ' ');
        end;
    until j<10
    writeln;
    i:=i+1;j:=j+1;
    end;
until i<10
writeln;writeln;writeln;
i:=0;j:=0;
writeln('         ***  таблица сложения  ***');
repeat
    begin
    repeat
        writeln ((i+1)+(j+1) + ' ');
    until j<10
    writeln;
    i:=i+1;j:=j+1;
    end;
until i<10
readln;
end.

синтаксис проверь. давно на трубе не писал

@Анжелка=) · 16.04.2010, 22:08 **[ТС]**

спасибо огромное =*

проверяю)

Добавлено через 9 минут
на 12 стоит (
все перепробывала

@yanyk1n · 16.04.2010, 22:10

Сообщение от toxa92

Pascal
1
writeln((i+1)*(j+1) + ' ');

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

@toxa92 · 16.04.2010, 22:21

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

@Анжелка=) · 16.04.2010, 22:31 **[ТС]**

Все поправила, работает, но результат странный =)

@toxa92 · 16.04.2010, 22:35

неплохо было бы его увидеть=)

@Анжелка=) · 16.04.2010, 22:42 **[ТС]**

результат

*** таблица умножения ***
1
*** таблица сложения ***
2

так получается

@toxa92 · 16.04.2010, 22:47

мой косяк=)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program table;
uses crt;
var
i,j: integer;
begin
writeln('         ***  таблица умножения  ***');
i:=0;j:=0;
repeat
    begin
    repeat
        begin
            writeln((i+1)*(j+1),' ');
        j:=j+1;
        end;
    until j>9
    writeln;
    i:=i+1;
    end;
until i>9
writeln;writeln;writeln;
i:=0;j:=0;
writeln('         ***  таблица сложения  ***');
repeat
    begin
    repeat
        begin
        writeln ((i+1)+(j+1),' ');
        j:=j+1;
        end;
    until j>9
    writeln;
    i:=i+1;
    end;
until i>9
readln;
end.

@Анжелка=) · 16.04.2010, 22:56 **[ТС]**

да, вот, вроде нормально=)
еще раз спасибо большое )

да и после всех

Сообщение от toxa92

until i>9

просит ;

@Puporev · 17.04.2010, 10:24

Анжелка=), Раз просит, поставь until i>9;

@Катя) · 17.04.2010, 12:54

Ну естественно, это как заметка)
Блин,а с блок схемой кто-нибудь может помочь?(

@Puporev · 17.04.2010, 13:07

Во вложении схема, нарисованная редактором, алгоритмически она правильная, но ее нужно перерисовать, как у вас принято, в таком виде не примут.

@Катя) · 17.04.2010, 13:11

Спасибо)

@Анжелка=) · 17.04.2010, 23:37 **[ТС]**

Puporev, благодарю!

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Анжелка=) 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 18
	16.04.2010, 21:33 [ТС]
	но все равно спасибо =) Добавлено через 12 минут эм..не получается( я все равно дуб дубом( можно по конкретнее ? Добавлено через 52 минуты up=(((( Добавлено через 1 час 11 минут может кто - нибудь написать нормальную прогу? 0

@Анжелка=) 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 18
	16.04.2010, 22:08 [ТС]
	спасибо огромное =* проверяю) Добавлено через 9 минут на 12 стоит ( все перепробывала 0

@toxa92 167 / 94 / 11 Регистрация: 16.04.2010 Сообщений: 464
	16.04.2010, 22:21
	я думаю, несложно догадаться, что я пытался вывести на экран, а не складывать. вместо плюса поставьте запятую 0

@Анжелка=) 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 18
	16.04.2010, 22:31 [ТС]
	Все поправила, работает, но результат странный =) 0

@toxa92 167 / 94 / 11 Регистрация: 16.04.2010 Сообщений: 464
	16.04.2010, 22:35
	неплохо было бы его увидеть=) 0

@Анжелка=) 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 18
	16.04.2010, 22:42 [ТС]
	результат * таблица умножения * 1 * таблица сложения * 2 так получается 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	17.04.2010, 10:24
	Анжелка=), Раз просит, поставь until i>9; 0

@Катя) 1 / 1 / 0 Регистрация: 19.03.2010 Сообщений: 55
	17.04.2010, 12:54
	Ну естественно, это как заметка) Блин,а с блок схемой кто-нибудь может помочь?( 0

@Катя) 1 / 1 / 0 Регистрация: 19.03.2010 Сообщений: 55
	17.04.2010, 13:11
	Спасибо) 0

@Анжелка=) 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 18
	17.04.2010, 23:37 [ТС]
	Puporev, благодарю! 0