Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Циклы и массивы

Программирование циклов. Оператор безусловного перехода.

Цикл — это последовательность операторов, которая может выполняться более одного раза. В языке Паскаль разработано три механизма для конструирования циклов, использующих операторы FOR, WHILE, REPEAT.

...

ЗАПИСИ. ТИП ДАННЫХ RECORD.

В описании данных и связей между ними используют понятия: запись логическая и запись физическая. Физическое описание данных определяет способ их хранения во внешней памяти ЭВМ. Логическое описание ...

Уроки Паскаль

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

program number7;
uses crt;
var A,B,C: integer;
begin
clrscr;
A:=17;
B:=3;
C:=A div B;
writeln ('17 div 3 = ',C);
C:=A mod B;
writeln ('17 mod 3 = ',C);
C:=A-B;
writeln ('17-3 =',C);
readln
end.

В строке №8 используется операция Div. Это операция деления нацело, т. е. в результате получится целое число без остатка. Если 17 разделить на 3, то получится 5,66666… Здесь - целое число 5, оно и будет результатом операции div.
Строка №10. Операция Mod вычисляет остаток от целочисленного деления. Если мы разделим 17 на 3, то получится 5 – целое число и 2 – остаток. Таким образом, результатом операции Mod будет число 2
Теперь запишем нашу программу в Паскале и и запустим ее.

div mod

div mod.



Дополнение к материалу.

Правила приоритета при выполнении операций в Паскале.

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

Операции, которые имеют одинаковый приоритет (сложение и вычитание, деление и умножение) выполняются слева направо, т.е. в порядке очереди.

Комментарии  

 
+3 # Irzorg 04.04.2012 17:46
помогите решить задачу 1811 mod 32 = 19! Как получается этот ответ, все испробывал, не могу получить!
Ответить
 
 
-2 # Евгений 09.01.2015 18:56
Достаточно в выше показанной программе переменную А определить как 1811,а переменную В как 32 то переменная С (C:=A mod B) и определит искомые 19.
Ответить
 
 
+62 # Administrator 05.04.2012 08:29
Делишь 1811 на 32, получается 56,59375. Из этого числа берем целое число, т.е. 56 и умножаем его на 32. Получится 1792. 1811-1792=19 Это и есть остаток от целочисленного деления.
Ответить
 
 
+1 # Евгений 09.01.2015 13:08
Этому можно придать и иной смысл...Достато чно вспомнить мультфильм "тридцать восемь попугаев...Числ о,которым делят,становить ся мерой числа которое делят...И остаток 0.59375 выражает часть числа 32!...Так что достаточно умножить 32 на 0.59375 что бы получилось искомые 19.
Ответить
 
 
-145 # яю 23.04.2012 12:14
Забудь про паскаль.
И задачу тебе не нужно решать.
А если хочешь научиться, то начинай с Ассемблера.
Ответить
 
 
+44 # Нео 02.12.2012 13:08
-27 оценка...
вижу никому не нравиться Ассамблер :lol:
Ответить
 
 
+20 # Антон 23.02.2013 14:00
Ну просто обсуждается именно паскаль, а не ассемблер, поэтому и минусуют, что не по теме
Ответить
 
 
+10 # alex 30.06.2012 14:04
:)
8 строка: C := trunc(A/B);
10 cстрока: C := A - B * trunc(A/B);
Ответить
 
 
-10 # помогите 28.01.2013 19:21
помогите решить задачу:дано 2 значное число,переверни те его справа налево.Допучсти м 32 ответ должен быть 23. или дано 78 ответ 87 заранее спосибо!!!!:)
Ответить
 
 
+6 # Антон 23.02.2013 14:35
Program pr1;
var
x, y1, y2, y: integer;
begin
write ('Введите двухзначное число: ');
readln (x);
y1:=(x mod 10)*10;
y2:=x div 10;
y:=y1+y2;
write ('Число-перевёр тыш: ', y);
readln;
end.
Ответить
 
 
-2 # Вадим 22.11.2015 06:30
А не легче в 7,8 и 9 строках сделать так: y1:=x div 10; y2:=x mod 10; writeln (y2,y1); 8) :lol:
Ответить
 
 
-3 # Артем 27.10.2016 16:00
все правильно только есть одна ошибка не тыш а двухзначное число и вывести :D
Ответить
 
 
-1 # VladiMir 08.04.2015 19:38
program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b: integer;
n: word;

begin
readln(n);
a:=n mod 10;
n:= n div 10;
b:=n mod 10;
n:= n div 10;
n:=a*10+b;
writeln(n);
readln;

end.
Ответить
 
 
-9 # dim 16.02.2013 12:43
program prog1;
uses crt;

var x,c,z,y:integer;

begin
write ('введите двухзначное число. ');
read(x);
z:=10;
:-*

y:=x div z;
c:=x mod z;
writeln (c,y);
readln
end.
Ответить
 
 
0 # иришка* 18.02.2013 12:38
ребяята подскажите пожалуйста !очень надо как из числа 5264 получить число 2 типа третье от конца число помогите пожалуйста :cry:
Ответить
 
 
-5 # Антон 23.02.2013 12:18
Program pr1;
var
x, y: integer;
begin
write ('Введите число: ');
readln (x); //вводим 5264
y:=(x div 100)-(((x div 100) div 10)*10);
write ('Третья цифра справа ', y);
end.

Программа всегда будет говорить, какая цифра стоит третьей
Ответить
 
 
-7 # Антон 23.02.2013 13:58
Кстати, перед "end." надо добавить "readln;", а то после вывода результата программа тут же закроется
Ответить
 
 
-4 # Alexandr 19.02.2013 11:27
# Irzorg
Вот тебе схема как это делать в дальнейшем:
Допустим,что нам даны два числа x и y;
1)X mod Y=F;-Нам нужно узнать,что же за число получится при вычислении остатка от целочисленного деления;
2)X div Y=Z;Z-это результат целочисленного деления;
3)Z*Y=G;G-число,которое получилось в результате умножения результата целочисленного деления на число Y(Y дан нам в исходном выражении);
4)X-G=F;Где F конечный результат.
Надеюсь,что помог тебе.
Ответить
 
 
-5 # ivan 20.03.2013 16:32
подсчитал все значения,на экран нужно вывести каждое двадцатое число,подскажит е пожалуйста
Ответить
 
 
0 # katya 21.03.2013 17:25
помогите решить задачу.
дано два цэлых числа: A, B. проверить истинное ли выражение " Каждое ис чисел А,В - непарное"
Ответить
 
 
-7 # katya 21.03.2013 20:02
спасибо,но я уже разобралась сама)
Ответить
 
 
-1 # graffiti 29.03.2013 13:23
Помогите решить задачу!
Заданы три различных числа k,l,m/Сколько нечётных чисел среди них,если таких чисел нет-выдать сообщение на экран
Ответить
 
 
-3 # Прог 19.03.2014 07:25
program che;
const k=10; // Количество чисел сколько надо
var d: array [1..k] of integer;
l, m: integer;
begin
writeln('Введит е k чисел');
for i:= 1 to k do
read (d[l]);

for l:= 1 to k do
write(d[l]:3); writeln;

s1:=0;
for l:=1 to k do
if d[l] mod 2=1 then
begin
s1:=s1+d[l];
end;
writeln('Cumma:=',s1);
end.
Ответить
 
 
-6 # Гульмира 15.04.2014 15:28
сколько сушествует 2013 значных чисел таких, что любое двузначное число, образованное парами соседних цифр, делиться на 17 или на 23?? помогоите составит программу!!!!!! :oops:
Ответить
 
 
-1 # илья 20.11.2014 18:05
помогите написать программу на вывод чётных и нечётных чисел массива
Ответить
 
 
-5 # nuri 21.11.2014 12:58
Укажите основание системы счисления, в которой число 126 с осн 10 оканчивается на 40
Ответить
 
 
-4 # nuri 21.11.2014 12:59
Помогите пожалуйста решить задачу
Ответить
 
 
-3 # Tom 02.12.2014 15:17
Как выразить сумму делителей какого-то числа?
Ответить
 
 
-3 # Tom 02.12.2014 15:21
Точнее, как найти делители x-числа? Подскажите, пожалуйста :sad:
Ответить
 
 
+1 # лажа 03.12.2014 07:11
Помогите пожалуйста: нужно вывести на экран количество двухзначных нечетных чисел!!! Оченб прошу, помоите!
Ответить
 
 
-3 # SovietChekist 18.12.2014 09:48
Pascal ABC ругается, когда пишу
c:=a div b;
c:=a mod b;
В чем проблема
Ответить
 
 
+1 # Каролина 10.02.2016 19:11
Нельзя чтоб повторялись переменные присвой a mod b например к переменной f и твоя проблема решена
Ответить
 
 
-5 # Marina 22.12.2014 16:42
как решить 35-17div4
Ответить
 
 
-4 # ира 04.02.2015 18:16
Х MOD 5 = Х DIV5

С какими значениями Х следующие равенства будут верны?
Ответить
 
 
-5 # михаил 11.02.2015 17:13
a:=125; b:=25; c:=12; if a div 25=0 then if a mod 12=0 then c:=b div (a mod c) esle c:=a div (b mod c) ;-)
Ответить
 
 
-4 # Denis 15.03.2015 14:12
Как составить программу, чтобы оно делилось на 5 и было 4х значное, при этом выводилось удача, а если не проходило неудача?
Ответить
 
 
-3 # Евгений 25.04.2015 14:02
Помогите решить задачу. Дано число a. Если число а делится на 2 без остатка вывести 'делится на 2', если нет - 'не делитcя'.
Ответить
 
 
-3 # Помогите решить. 04.10.2015 08:40
a b ab-c
- * - - ____
b d cd
Ответить
 
 
-5 # Помогите решить. 04.10.2015 08:41
a/b * b/d - ab-c/cd
Ответить
 
 
-3 # Аяс 13.10.2015 15:48
4. Переставить в исходном четырёхзначном числе первые две цифры и последние две цифры местами. Например: Входное число 1234, выходное 3412.
Ответить
 
 
-2 # Марина 05.11.2015 07:58
Помогите решить 56 div 3 =
Ответить
 
 
-2 # Каролина 10.02.2016 19:06
Марина равно 18
Ответить
 
 
-2 # Дмитрий 14.11.2015 07:53
Натуральное число N Маша поделила с остатком на все натуральные числа от 1 до M. Какой самый большой остаток у нее получился?
вводится:5 4
выводится:2
помогите срочно!!!!!!
Ответить
 
 
-2 # Олеся 07.12.2015 19:32
помогите решить задачку плиииз) дано целое двухзначное число определить можно ли цифру 10 разделить на цифру 1 без остатка
Ответить
 
 
-3 # ХуЛаЛа 13.01.2016 19:52
y= x mod 5 + x div 3
z= y*y mod 2
Как решить? :o
Ответить
 
 
-1 # Каролина 10.02.2016 19:03
Можно ли производить операции mod и div
над переменными,кот орые описаны как real.
Ответить
 
 
-1 # Нуб 11.04.2016 15:57
a и b - рандомные числа. Как сделать чтобы для b присваивалось такое значение, которое делится на a без остатка? :sigh:
Ответить
 
 
-4 # Нуб 11.04.2016 15:58
Помогите пожалуйста! :o
Ответить
 
 
-5 # ислам 19.05.2016 14:01
program islam;
uses crt;
var x,c,y:integer;
begin;
clrscr;
writeln('введите число');
readln(x);
writeln('умножить на...');
readln(y);
c:=x * y;
writeln('=',c);
end.
Ответить
 
 
-1 # Артем 27.10.2016 16:06
ребята завтра контрольная робота помогите подготовится дайте примеры 6 класc
Ответить
 
 
0 # Настя 01.11.2016 15:14
Вычислите a^x (mod n) при a=5 n=27

ПОМОГИТЕ ПОЖАЛУЙСТА!!! :cry: :cry: :cry:
Ответить
 
 
0 # Zizy 18.11.2016 20:59
А для чого записувати (uses crt;)
Ответить
 
 
0 # Настяни энаси 23.11.2016 05:24
энайни ами
Ответить
 
 
0 # лена 06.12.2016 09:46
помогите сделать задачу.
тип что б с числа выкидало цифру 2
Ответить
 
 
-2 # Булат 19.12.2016 15:58
:dream
Ответить
 
 
0 # Сергей 22.01.2017 16:19
Ребят помогите пожалуйста с задачкой-"Опред елить, является ли заданное шестизначное число счастливым. (счастливым называют такое
шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр.)" Очень надо, буду благодарен ;-)
Ответить
 
 
-1 # Зуня 29.01.2017 16:37
А что будет результатом операции 37 % 8 в Питоне? Помогите пожалуйста!!! :sigh:
Ответить
 
 
-1 # 21 30.01.2017 15:22
21 20 18 15 составте программ пожалуйста
Ответить
 
 
0 # Annett 03.04.2017 09:18
Il commenca donc par se faire des amis et des
protecteurs, et sut captiver les bonnes graces du comte
de Frontenac, qui aimait en lui la hardiesse des idees, l'esprit entreprenant et courageux, et ce caractere ferme et resolu qui le distinguait
lui-meme.

Also visit my homepage ... meilleur massage lyon: http://www.sophiechassat.com
Ответить
 
 
0 # Kurt 03.04.2017 12:36
Cette galerie, comme toutes les anciennes
voies, s'etait resserree, se resserrait encore chaque jour, sous la
continuelle poussee des terrains; et il n'y avait plus, a certaines
places, qu'un boyau, qui devait finir par s'effacer lui-meme.


Visit my blog ... detente massage lyon: http://www.sophiechassat.com
Ответить
 
 
0 # Greta 06.04.2017 15:05
Ai-je besoin de dire maintenant que, bien qu'un sonnet sans
defauts vaille un long poeme, un conte est sans doute un chef-d'oeuvre a moins de frais qu'un roman; que, d'ailleurs,
meme dans les contes de M.

Feel free to visit my webpage meilleur massage lyon: http://www.sophiechassat.com
Ответить
 
 
0 # Matt 12.04.2017 07:45
Bathilde jeta les yeux sur le papier, en affectant autant qu'il etait en son pouvoir un air d'indifference, et lut ce
qui suit: On vous dit orpheline: je suis sans
parents; nous sommes donc frere et soeur devant Dieu.

massage lyon pas cher: http://www.sophiechassat.com
Ответить
 
 
0 # Jack 14.04.2017 16:12
Les capitaines commandant les cercles du Trarza et du Brakna ont reuni a Bir el-Barka
les chefs, principaux notables et cadis des Dieidiba et Oulad Biri,
afin de regler l'affaire survenue entre Dieidiba et Laghlal au sujet de ces puits.


salon massage lyon: http://www.sophiechassat.com
Ответить
 
 
0 # Nancy 15.04.2017 08:31
Le plus souvent elle l'emmenait dans le parc, et quand elles etaient
assises, en tete a tete, a l'abri de la curiosite des enfants Dagomer ou des
passants, elle la faisait causer en l'interrogeant
doucement.

massage lyon croix rousse: http://www.sophiechassat.com
Ответить
 
 
0 # Lester 23.04.2017 22:06
I used to be able to find good advice from your blog articles.


Feel free to visit my web page - посетить сайт
источник - http://elamed.info/: http://elamed.info/,
Ответить
 

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

Защитный код
Обновить

   ГлавнаяПаскальУроки Паскаль