Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

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

Циклы с параметром. Оператор FOR.

Эти циклы организуются в программах, где заранее известно число повторений. При этом повторное выполнение сопровождается изменением управляющего параметра (переменной цикла).

Многомерные массивы.

Индексы имеют еще одно свойство — чем больше объем массива, тем менее эффективна с ним работа, поэтому часто используют массивы массивов, то есть с двумя, тремя и более индексами для идентификации ...

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

Помимо операций умножения и сложения, над целочисленными переменными производятся операции 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.



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

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

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

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

Комментарии  

 
+5 # Irzorg 04.04.2012 17:46
помогите решить задачу 1811 mod 32 = 19! Как получается этот ответ, все испробывал, не могу получить!
Ответить
 
 
-3 # Евгений 09.01.2015 18:56
Достаточно в выше показанной программе переменную А определить как 1811,а переменную В как 32 то переменная С (C:=A mod B) и определит искомые 19.
Ответить
 
 
+63 # Administrator 05.04.2012 08:29
Делишь 1811 на 32, получается 56,59375. Из этого числа берем целое число, т.е. 56 и умножаем его на 32. Получится 1792. 1811-1792=19 Это и есть остаток от целочисленного деления.
Ответить
 
 
+2 # Евгений 09.01.2015 13:08
Этому можно придать и иной смысл...Достато чно вспомнить мультфильм "тридцать восемь попугаев...Числ о,которым делят,становить ся мерой числа которое делят...И остаток 0.59375 выражает часть числа 32!...Так что достаточно умножить 32 на 0.59375 что бы получилось искомые 19.
Ответить
 
 
-142 # яю 23.04.2012 12:14
Забудь про паскаль.
И задачу тебе не нужно решать.
А если хочешь научиться, то начинай с Ассемблера.
Ответить
 
 
+45 # Нео 02.12.2012 13:08
-27 оценка...
вижу никому не нравиться Ассамблер :lol:
Ответить
 
 
+21 # Антон 23.02.2013 14:00
Ну просто обсуждается именно паскаль, а не ассемблер, поэтому и минусуют, что не по теме
Ответить
 
 
+11 # alex 30.06.2012 14:04
:)
8 строка: C := trunc(A/B);
10 cстрока: C := A - B * trunc(A/B);
Ответить
 
 
-9 # помогите 28.01.2013 19:21
помогите решить задачу:дано 2 значное число,переверни те его справа налево.Допучсти м 32 ответ должен быть 23. или дано 78 ответ 87 заранее спосибо!!!!:)
Ответить
 
 
+7 # Антон 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.
Ответить
 
 
-1 # Вадим 22.11.2015 06:30
А не легче в 7,8 и 9 строках сделать так: y1:=x div 10; y2:=x mod 10; writeln (y2,y1); 8) :lol:
Ответить
 
 
-2 # Артем 27.10.2016 16:00
все правильно только есть одна ошибка не тыш а двухзначное число и вывести :D
Ответить
 
 
0 # 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.
Ответить
 
 
-8 # 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.
Ответить
 
 
+1 # иришка* 18.02.2013 12:38
ребяята подскажите пожалуйста !очень надо как из числа 5264 получить число 2 типа третье от конца число помогите пожалуйста :cry:
Ответить
 
 
-4 # Антон 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.

Программа всегда будет говорить, какая цифра стоит третьей
Ответить
 
 
-6 # Антон 23.02.2013 13:58
Кстати, перед "end." надо добавить "readln;", а то после вывода результата программа тут же закроется
Ответить
 
 
-3 # 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 конечный результат.
Надеюсь,что помог тебе.
Ответить
 
 
-4 # ivan 20.03.2013 16:32
подсчитал все значения,на экран нужно вывести каждое двадцатое число,подскажит е пожалуйста
Ответить
 
 
0 # katya 21.03.2013 17:25
помогите решить задачу.
дано два цэлых числа: A, B. проверить истинное ли выражение " Каждое ис чисел А,В - непарное"
Ответить
 
 
-7 # katya 21.03.2013 20:02
спасибо,но я уже разобралась сама)
Ответить
 
 
0 # graffiti 29.03.2013 13:23
Помогите решить задачу!
Заданы три различных числа k,l,m/Сколько нечётных чисел среди них,если таких чисел нет-выдать сообщение на экран
Ответить
 
 
-2 # Прог 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.
Ответить
 
 
-5 # Гульмира 15.04.2014 15:28
сколько сушествует 2013 значных чисел таких, что любое двузначное число, образованное парами соседних цифр, делиться на 17 или на 23?? помогоите составит программу!!!!!! :oops:
Ответить
 
 
0 # илья 20.11.2014 18:05
помогите написать программу на вывод чётных и нечётных чисел массива
Ответить
 
 
-4 # nuri 21.11.2014 12:58
Укажите основание системы счисления, в которой число 126 с осн 10 оканчивается на 40
Ответить
 
 
-3 # nuri 21.11.2014 12:59
Помогите пожалуйста решить задачу
Ответить
 
 
-2 # Tom 02.12.2014 15:17
Как выразить сумму делителей какого-то числа?
Ответить
 
 
-2 # Tom 02.12.2014 15:21
Точнее, как найти делители x-числа? Подскажите, пожалуйста :sad:
Ответить
 
 
+2 # лажа 03.12.2014 07:11
Помогите пожалуйста: нужно вывести на экран количество двухзначных нечетных чисел!!! Оченб прошу, помоите!
Ответить
 
 
-2 # SovietChekist 18.12.2014 09:48
Pascal ABC ругается, когда пишу
c:=a div b;
c:=a mod b;
В чем проблема
Ответить
 
 
+2 # Каролина 10.02.2016 19:11
Нельзя чтоб повторялись переменные присвой a mod b например к переменной f и твоя проблема решена
Ответить
 
 
-4 # Marina 22.12.2014 16:42
как решить 35-17div4
Ответить
 
 
-3 # ира 04.02.2015 18:16
Х MOD 5 = Х DIV5

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

ПОМОГИТЕ ПОЖАЛУЙСТА!!! :cry: :cry: :cry:
Ответить
 
 
+1 # Zizy 18.11.2016 20:59
А для чого записувати (uses crt;)
Ответить
 
 
+1 # Настяни энаси 23.11.2016 05:24
энайни ами
Ответить
 
 
+1 # лена 06.12.2016 09:46
помогите сделать задачу.
тип что б с числа выкидало цифру 2
Ответить
 
 
-2 # Булат 19.12.2016 15:58
:dream
Ответить
 
 
+1 # Сергей 22.01.2017 16:19
Ребят помогите пожалуйста с задачкой-"Опред елить, является ли заданное шестизначное число счастливым. (счастливым называют такое
шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр.)" Очень надо, буду благодарен ;-)
Ответить
 
 
0 # Зуня 29.01.2017 16:37
А что будет результатом операции 37 % 8 в Питоне? Помогите пожалуйста!!! :sigh:
Ответить
 
 
0 # 21 30.01.2017 15:22
21 20 18 15 составте программ пожалуйста
Ответить
 

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

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

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