Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Для заданной квадратной матрицы сформировать массив https://www.cyberforum.ru/ turbo-pascal/ thread1416823.html
15
Turbo Pascal Вывод графических элементов: строки текста заданным цветом и шрифтом
Вывести на экран монитора горизонтальная строка текста длиной не более двадцати пяти символов синего (Blue) цвета двойного размера шрифтом типа "SansSerif" (SansSerifFont).
Turbo Pascal Определить, что пользователь вписал цифры или обычный текст https://www.cyberforum.ru/ turbo-pascal/ thread1416573.html
Как в TurboPascal определить, что пользователь вписал в "N", цифры или обычный текст, и если это были цифры, то они преобразовывались из string в integer? ... N:string; ... readln (N); ... Добавлено через 4 минуты Ну и просто для более подробного описания того, что я хочу узнать: нужно сделать игру "Рулетка", там можно будет ставить на диапазон чисел, на определённое число или на...
Turbo Pascal Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах В заданном одномерном массиве поменять местами соседние элементы,стоящие на чётных местах,с элементами,состоящими на нечётных местах https://www.cyberforum.ru/ turbo-pascal/ thread1416558.html
В квадратной матрице A поменять местами два столбца с заданными номерами Turbo Pascal
Здравствуйте уважаемые программисты ! Помогите мне пожалуйста с задачей . В квадратной матрице A поменять местами два столбца с заданными номерами; сформировать диагональную матрицу C из сумм элементов столбцов матрицы A ;если среди элементов главной диагонали C нет равных , найти ее след , в противном случае вычесть из C единичную матрицу .
Turbo Pascal Построить алгоритм, составить и отладить программу для нахождения произведения ряда var i:integer; n,p,u:real; begin i:=2; p:=1; u:=exp((-4)*ln(10)); repeat n:=n+(1/exp((2)*ln(i))); P:=p*(1-n); until n<u; Writeln('P = ',p); https://www.cyberforum.ru/ turbo-pascal/ thread1416388.html
Turbo Pascal Вывести на экран монитора условное графическое изображение фотоэлемента солнечного 1. Очистить экран монитора и при необходимости установить нужный цвет фона. 2. Вывесты одно или несколько условных графических изображений электрических компонентов с произвольным цветом, размером и начальным положением. 3.Скопировать изображение с экрана монитора в буфер. 4.Удалить изображение с экрана монитора. 5. Скопировать изображения из буфера на екркан монитора в другое место. ... https://www.cyberforum.ru/ turbo-pascal/ thread1416296.html Turbo Pascal Определить недостающий "end;" в коде
Где-то нехватает end; немогу понять где program divkarssaistits_saraksts_bez_BR; uses crt; const MaxSize = 15; type Count = 0..MaxSize; StdElement = record
Turbo Pascal Добавить элементы второй последовательности в нужные места первой, чтобы она осталась неубывающей https://www.cyberforum.ru/ turbo-pascal/ thread1416265.html
Пусть даны неубывающая последовательность действительных чисел и произвольная последовательность действительных чисел. Требуется указать те места, на которые нужно вставлять элементы второй последовательности в первую последовательность так, чтобы новая последовательность оставалась возрастающей. вот программа она только объединяет последовательности,но не выводит места. uses crt; const...
Turbo Pascal Построение графика функции на заданном интервале 1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Выбрать размещение системы координат в соответствии с левым и правым интервалом и в соответствии с минимальным и максимальным значением функции, которыемогут быть достигнуты на этоминтервале. 3. Построить горизонтальную и вертикальную координатные оси. 4. Подписать названия координатных осей. 5.... https://www.cyberforum.ru/ turbo-pascal/ thread1416260.html
В массиве из N чисел - радиусов окружностей, выделить те, для которых площади окружностей S >= 100 Turbo Pascal
В массиве из N чисел( N и числа вводятся с клавиатуры и представляют собой r окружностей) выделить те,для которых площадь S>=100 и подсчитать их количество k
Turbo Pascal Сформировать три матрицы по правилам Сформировать матрицы A,B,C: а(i,j)={5, j=2; y, j не равно 2}; b(i,j)={3j, i=5; 2, i не равно 5}; c(i,j)={i/j, j не равно 1, 0, j=1} и выполнить (A+B)^T*C https://www.cyberforum.ru/ turbo-pascal/ thread1416168.html
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7773 / 4601 / 2825
Регистрация: 22.11.2013
Сообщений: 13,083
Записей в блоге: 1
09.04.2015, 23:54 0

Что такое div и mod - Turbo Pascal - Ответ 7460552

09.04.2015, 23:54. Показов 5820. Ответов 8
Метки (Все метки)

Ответ

Да, именно так.

В паскале цикл
for счетчик:=нач_значение to кон_значение do оператор;
выполняется так:
1) вычисляется нач_значение и кон_значение
2) счетчик получает нач_значение
3) если счетчик больше кон_значение, выход из цикла
4) иначе выполняется оператор
5) значение счетчика увеличивается на 1
6) переход к (3)

Для цикла
for счетчик:=нач_значение downto кон_значение do оператор;
отличия в шагах
3) если счетчик меньше кон_значение, выход из цикла
5) значение счетчика уменьшается на 1

Оператор
if условие then оператор;
выполняется просто, если условие истинно, выполняется оператор.

По шагам:
i=0, вычисляется (0 mod 2) -> 0, вычисляется (0=0) -> True, выполняется Write(0,' '),
i=1, вычисляется (1 mod 2) -> 1, вычисляется (1=0) -> False,
i=2, вычисляется (2 mod 2) -> 0, вычисляется (0=0) -> True, выполняется Write(2,' '),
i=3, вычисляется (3 mod 2) -> 1, вычисляется (1=0) -> False
...
i=20, вычисляется (20 mod 2) -> 0, вычисляется (0=0) -> True, выполняется Write(20,' ')

Ну а остаток от деления -- достаточно вспомнить школьное деление в столбик:
19 mod 2, берем 9, 9*2=18, 19-18=1
или
m mod n = m-(m div n)*n

Вернуться к обсуждению:
Что такое div и mod Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2015, 23:54
Готовые ответы и решения:

вычислить A:= 4*7 mod 5 div 2/3 - trunc(0.724) B:= Abs (round (5/2)-7 div 15+8 mod 9)
A:= 4*7 mod 5 div 2/3 - trunc(0.724) B:= Abs (round (5/2)-7 div 15+8 mod 9)

Что такое div и mod?
Что такое операции div и mod?

Доказать,что число 121,является полиндромом. Через div и mod?
Помогите пожалуйста.

Доказать что число 3535 является полиндромом! Через div и mod.
Помогите,срочно надо

8
09.04.2015, 23:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2015, 23:54
Помогаю со студенческими работами здесь

Div/mod
Помогите пожалуйста! Могу ли я написать программу используя div. a не mod. Дано целое число X....

div, mod
ввести двух значное число.найти младшую,старшую,максимальную цифру числа,сумму цифр и произведение...

Что такое mod?
У меня есть вопрос. Просто у меня есть задание: Используя операции целочисленного деления и...

Что такое mod в с++ ?
что такое mod в с++ и как он работает? например, m=12*17^9 mod 23. (m должно получиться 15)

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru