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

@Анжелка=) · Регистрация: 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, благодарю!

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Анжелка=) 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