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

Как в паскале составить программу таблицы умножения

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

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

Просмотров 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 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 регионов

А4 ТИК ТОК таблица умножения

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

• 

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

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

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

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

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

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

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

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

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

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

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

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

• Выберите класс:
• Тип материала:

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

Источник: domrf-lk.ru

Программа умножения вещественных чисел Pascal

Пример программы на паскаль, задача которой перемножать вещественные числа. Описание работы программы, исходный код и ссылку на скачивание готовой программы на паскаль, Вы можете увидеть далее.

Итак, устроена она довольно просто. Так как наши числа вещественные, то мы будем использовать вещественный тип данных — real. После описания и считывания переменных мы их просто перемножаем, а после выводим следующим образом: 4 позиции для целой части и 4 позиции для дробной части. Так как недавно был пройден модуль CRT в паскаль, то он используется в этой программ.

Исходный код программы паскаль:

Uses crt; //подключаем модуль crt
Var ch1, ch2,rez : real; //Описание переменных, вещественный тип real
Begin //Начало программы
clrscr; //очистка экрана
writeln(‘Введите 1-е число’); //вывод сообщения
read(ch1); //Считывание 1-го числа
writeln(‘Введите 2-е число’); //вывод сообщения
read(ch2); //Считывание 2-го числа
rez := ch1 * ch2; //Простое перемножение
writeln(‘Результат ‘,rez:4:4); //Вывод результата
//readln; //задержка экрана для Turbo Pascal
End. //Конец программы

К каждой строке написаны подробные пояснительные комментарии, что помогает лучше разобраться в структуре программы на паскале. Если же вы искали методы продвижения сайта, то их я советую прочитать тут. Прошу также обратить внимание, что если Вы используете в качестве компилятора Turbo Pascal, то необходимо убрать «//» перед

readln

в предпоследней строке.

Источник: zedpost.ru

Задачи по Pascal. Тест на таблицу умножения

Условие задачи : написать программу-тест , которая будет выдавать случайным образом 10 примеров и в конце теста выводить количество правильных ответов и оценку.

Сложность : средняя.

Для начала давайте подумаем как мы будем решать эту задачу.

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

Давайте создадим каркас нашей программы :

uses crt ; var i, col,res, otv , num1, num2 : integer ; begin end .

Итого у нас 6 переменных . До цикла нам нужно написать такое слово как randomize чтобы у нас был более качественный random подробнее читайте (тут)

Цикл у нас будет от 1 до 10 вы можете сделать больше .

randomize ; for i := 1 to 10 do begin end ;

Теперь давайте работать с циклом . Для начала получим случайным образом два числа с помощью функции random() и занесем ответ после умножения в переменную.

num1 := random( 9 )+ 1 num2 := random( 9 )+ 1 ; res := num1 * num2 ;

Дальше мы для пользователя выводим этот пример и просим чтобы он ввел ответ :

write (num1, ‘ * ‘ , num2 , ‘ = ‘ ); readln(otv);

Затем мы сравниваем ответ введенный пользователем с ответом программы , т.е. с переменной res :

if (res <> otv) then writeln ( ‘Error ! ‘ , num1, ‘ * ‘ , num2, ‘ = ‘ ,res) else col := col + 1 ;

Т.е. тут если ответ не верен , то мы выводим пользователю пример и правильный ответ , а иначе мы количество правильных ответов увеличиваем на 1.

И теперь нам осталось вывести оценку и кол-во правильных ответов :

writeln ( ‘Тест окончен . ‘ ); writeln ( ‘Количество правильных ответов : ‘ , col); write ( ‘Твоя оценка : ‘ ); case col of 10 : writeln ( ‘5’ ); 9 , 8 : writeln ( ‘4’ ); 7 , 6 : writeln ( ‘3’ ); 0..5 : writeln ( ‘2’ ); end ;

Весь код программы :

uses crt ; var i, col,res, otv , num1, num2 : integer ; begin clrscr; writeln ( ‘*** Тест на таблицу умножения ***’ ); writeln ( ‘После примера нажмите ‘ ); randomize ; for i := 1 to 10 do begin num1 := random( 9 )+ 1 ; num2 := random( 9 )+ 1 ; res := num1 * num2 ; write (num1, ‘ * ‘ , num2 , ‘ = ‘ ); readln(otv); if (res <> otv) then writeln ( ‘Error ! ‘ , num1, ‘ * ‘ , num2, ‘ = ‘ ,res) else col := col + 1 ; end ; writeln ( ‘Тест окончен . ‘ ); writeln ( ‘Количество правильных ответов : ‘ , col); write ( ‘Твоя оценка : ‘ ); case col of 10 : writeln ( ‘5’ ); 9 , 8 : writeln ( ‘4’ ); 7 , 6 : writeln ( ‘3’ ); 0..5 : writeln ( ‘2’ ); end ; readln; end .

Предыдущая

Источник: sprint-olympic.ru