Как в паскале составить программу таблицы умножения – Сайт, где вы сможете решить свои вопросы

Перейти к содержанию

Вывести на экран таблицу умножения

Просмотров 20.1к. Обновлено 15 октября 2021

Вывести на экран таблицу умножения (от 1 до 9).

Перебрать во внешнем цикле числа от 1 до 9. Для каждого из них перебрать во внутреннем цикле числа от 1 до 9. Во внутреннем цикле выполнять умножение переменных-счетчиков внешнего и внутреннего циклов. Таким образом на одну итерацию внешнего цикла произойдет девять итераций внутреннего, и сформируется одна строка таблицы умножения. После каждой строки надо перейти на новую. Это делается во внешнем цикле, после того как закончится выполняться внутренний.

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

Pascal

таблица умножения паскаль



var i,j: byte;

begin

    for i:=1 to 9 do begin

        for j:=1 to 9 do 

            write(i*j:4);

        writeln;

    end;

end.





   1   2   3   4   5   6   7   8   9

   2   4   6   8  10  12  14  16  18

   3   6   9  12  15  18  21  24  27

   4   8  12  16  20  24  28  32  36

   5  10  15  20  25  30  35  40  45

   6  12  18  24  30  36  42  48  54

   7  14  21  28  35  42  49  56  63

   8  16  24  32  40  48  56  64  72

   9  18  27  36  45  54  63  72  81

Язык Си



#include 

main() {

    int i,j;

    for (i=1; i<10; i++) {

        for (j=1; j<10; j++) 

            printf("%4d", i*j);

        printf("n");

    }

}

Python

таблица умножения python (питон)



for i in range(1,10):

    for j in range(1,10):

        print("%4d" % (i*j), end='')

    print()

КуМир



алг таблица умножения

нач

  цел i,j

  нц для i от 1 до 9 

    нц для j от 1 до 9 

      вывод i*j, " "

    кц

    вывод нс

  кц

кон

Basic-256



for i=1 to 9

	for j=1 to 9

		print (i*j) + " ";

	next j

	print

next i

Источник

Инфоурок

›

Информатика

›Презентации›ПРОЕКТ «создание таблицы умножения на программе Pascal» (9 класс)

Скачать материал

Проект по информатикеСоздание таблицы умножения на языке программирования Пас...

Скачать материал

Сейчас обучается 88 человек из 28 регионов

Сейчас обучается 35 человек из 18 регионов

Сейчас обучается 96 человек из 39 регионов

Описание презентации по отдельным слайдам:

1 слайд

Проект по информатике
Создание таблицы умножения на языке программирования Паскаль
2 слайд

Автор проекта
Ешану Алексей Георгиевич
Ученик 9А класса
3 слайд

Актуальность
Быстрый счет чисел по таблице, предусматривающая модернизацию
4 слайд

Цель
Создать таблицу умножения на языке программирования Паскаль
5 слайд

задача
Собрать информацию
Создать таблицу умножения
Опробовать ее
Исправить ошибки
6 слайд

Проблемная ситуация
Мой племянник скоро пойдет во второй класс,
он не знает таблицу умножения, и я хочу в этом ему помочь, но у меня возникла проблема, я не могу ее решить
7 слайд

проблема
Нехватка времени и информации на решение проблемы
8 слайд

информация
Проект заточен на создание таблицы умножения на языке паскаль, также с помощью языка программирования можно написать другие вычислительные программы такие как: сложение, вычитание, деление и т.д.
Паскаль- язык программирования, используется на обучения программированию.
Язык был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал одну из первых в мире механических машин, складывающую два числа
10 слайд

Итог
Я смог создать таблицу и решить проблему, с которой я столкнулся.

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 251 343 материала в базе

Выберите категорию:
Выберите учебник и тему

Выберите класс:
Тип материала:
- Все материалы
- Статьи
- Научные работы
- Видеоуроки
- Презентации
- Конспекты
- Тесты
- Рабочие программы
- Другие методич. материалы

Найти материалы

Материал подходит для УМК

Другие материалы

23.12.2020
319
2

«Информатика», Босова Л.Л., Босова А.Ю.

Информатика “Информатика ағылшын тілінде” 8 сынып

Учебник: «Информатика. Учебное пособие для учреждений общего среднего образования с русским языком обучения», В. М. Котов, А. И. Лапо и Ю.А. Быкадоров, Е.Н. Войтехович
Тема: § 22. Таблицы

23.12.2020
954
83

«Информатика. Учебное пособие для учреждений общего среднего образования с русским языком обучения», В. М. Котов, А. И. Лапо и Ю.А. Быкадоров, Е.Н. Войтехович

План урока – “Беспроводные сети”

Учебник: «Информатика. Учебное пособие для учреждений общего среднего образования с русским языком обучения», Н. П. Макарова А. И. Лапо Е. Н. Войтехович
Тема: Глава 7. Интернет. Электронная почта

23.12.2020
239
7

«Информатика. Учебное пособие для учреждений общего среднего образования с русским языком обучения», Н. П. Макарова А. И. Лапо Е. Н. Войтехович

23.12.2020
175
0

«Информатика», Семакин И.Г., Залогова Л.А., Русаков С.В., Шестакова Л.В.

«Информатика (базовый уровень)», Семакин И.Г., Хеннер Е.К., Шеина Т.Ю.

«Информатика и ИКТ (в 2 частях)», Бененсон Е.П., Паутова А.Г.

23.12.2020
207
4

Вам будут интересны эти курсы:

Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Настоящий материал опубликован пользователем Большаков Александр Анатольевич. Инфоурок является
информационным посредником и предоставляет пользователям возможность размещать на сайте
методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них
сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с
сайта, Вы можете оставить жалобу на материал.

Удалить материал
- На сайте: 4 года и 6 месяцев
- Подписчики: 1
- Всего просмотров: 19951
- Всего материалов:
  
  34

Файлы

Рабочий лист подходит для учеников 7 класса, работающих по учебнику “Информатика. ФГОС”, автор Л….

Источник

0 / 0 / 0

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

Сообщений: 9

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

07.12.2011, 16:44. Показов 12769. Ответов 3

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

1)Составить таблицу умнажения с помощью паскаль for.
2) Составить программу для вычесления выражения y=6*x в квадрате в промежутке от a до b. Где a и b вводятся с клавиатуры.
3)Составить программу которая вычесляет сумму чисел от 1 до n. Значение n вводится с клавиатуры.

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

07.12.2011, 16:44

Ответы с готовыми решениями:

Таблица умножения
Доброго времени.
Задача: Ввести на экран таблицу умножения для 5 чисел от 9 до 4 при помощи FOR

Таблица умножения
Помогите, пожалуйста
Даны два числа n и m. Создайте двумерный массив A, заполните его таблицей…

Таблица умножения на 7
Здравствуйте!Помогите пожалуйста)Дело в том,что мне нужно НАПЕЧАТАТЬ в Паскале таблицу умножения…

Таблица умножения
Таблица умножения что бы ответ был:
1*1= 1 2*1= 2 3*1= 3 4*1= 4 5*1= 5
1*2= 2 2*2= 4 3*2= 6 4*2=…

1 / 1 / 0

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

Сообщений: 51

07.12.2011, 16:53

program abc;
var a:integer; b: real;
begin
writeln (‘Введите пожалуйста 1 если сложение, 2 если вычитание, 3 если умножение и 4 если деление’);
readln (a);
case a of
1: begin
writeln (‘Введите пожалуйста слагаемые’);
readln (a,b);
writeln(a+b);
end;
2: begin
writeln (‘Введите пожалуйста уменьшаемое и вычитаемое’);
readln (a,b);
writeln(a-b);
end;
3: begin
writeln (‘Введите пожалуйста множители’);
readln (a,b);
writeln(a*b);
end;
4: begin
writeln (‘Введите пожалуйста делимое и делитель’);
readln (a,b);
writeln(a/b);
end;
else writeln(‘неверно!!’);
end;
end.

Own3D

122 / 122 / 73

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

Сообщений: 308

07.12.2011, 17:11

1я. таблица умножения

Pascal

uses crt;
var a,b,res:integer;
begin
clrscr;
for a:=1 to 9 do
    begin
    writeln;
    for b:=1 to 9 do
        begin
        res:=a*b;
        write(a,'*',b,'=',res:2,' ');
        end;
    end;
end.

Добавлено через 2 минуты
3я. сумма цифр от 1 до n

Pascal

uses crt;
var n,i,sum:integer;
begin
clrscr;
sum:=0;
write('Введите n:');
readln(n);
for i:=1 to n do
sum:=sum+i;
write('Сумма цифр от 1 до ',n,' = ',sum);
end.

Добавлено через 3 минут
2я. функция

Pascal

uses crt;
var a,b,y,x:integer;
begin
clrscr;
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
writeln('Значение функции y=6*x^2, при x[a..b]:');
for x:=a to b do
    begin
    y:=6*sqr(x);
    writeln('При x=',x,', y=',y);
    end;
end.

No_mood
10.04.2013, 12:28	4
Расчет дискрименанта в квадратном уравнении _________________________ program abc; var a,b,c,d: Integer; Begin writeln(‘Уравнение вида ax+bx+c=0’); writeln(‘Введите значение переменной a’); readln(a); writeln(‘Введите значение переменной b’); readln(b); writeln(‘Введите значение свабодного члена c’); readln(c); d:=bb-4a*c; if (d>0) Then writeln(‘Уравнение имеет 2 корня’) Else writeln(‘Уравнение не имеет корней’); writeln(‘Дискрименант равен:’ , d) End.

Источник

Таблица Пифагора – одна из форм представления таблицы умножения.

В заголовках строк и столбцов таблицы Пифагора, находяться значения множителей, а в ячейках таблицы находиться их произведение.
Используется для быстрого обучения умножению, а в программировании – для изучения вложенных циклов.

Программа для вывода таблицы Пифагора

{$CODEPAGE UTF8}
program PythagorasTable;
var
  col, row, i: integer;
begin
  writeln('Таблица Пифагора');
  writeln;
  for row := 1 to 9 do
    begin
      for col := 1 to 9 do
        begin
          if col = 1 then                {для первого столбца таблицы}
            if row = 1 then
              write('х':3, '│')          {выводим разметку в виде линии}
            else
              write(row:3, '│')
          else
            write((col*row):4);          {результат умножения}
        end;
      writeln;
      if row = 1 then                    {для первой строки горизонтальная линия}
        begin
          write('─┼':4);
          for i := 1 to 32 do
            write('─');
          writeln;
        end;
    end;
  readln;
end.

Результат работы программы:

Смотрите также:

Источник

Вывести на экран таблицу умножения

Pascal

Язык Си

Python

КуМир

Basic-256

Описание презентации по отдельным слайдам:

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

Материал подходит для УМК

Другие материалы

Вам будут интересны эти курсы:

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

Программа для вывода таблицы Пифагора

Смотрите также:

Вам также может понравиться

Как найти духовное богатство

2 3 диметилпентан как составить

Как найти неизвестный множитель конспект урока

Добавить комментарий Отменить ответ