1 / 13

Программы с линейной структурой.

Программы с линейной структурой. Целый тип данных. Целый тип переменных:. Количество учеников в классе? Радиус Земли в метрах? Масса человека в граммах? Температура воздуха в градусах Цельсия в любой из дней в году? Количество праздничных дней в году? Произведение всех чисел от 1 до 100?

papina
Download Presentation

Программы с линейной структурой.

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Программы с линейной структурой. Целый тип данных.

  2. Целый тип переменных:

  3. Количество учеников в классе? Радиус Земли в метрах? Масса человека в граммах? Температура воздуха в градусах Цельсия в любой из дней в году? Количество праздничных дней в году? Произведение всех чисел от 1 до 100? Сумма двух произвольных чисел из отрезка -200 до 200. Byte LongInt Word ShortInt Byte LongInt Integer Какого типа должна быть переменная, в которой хранятся следующие данные? Выбрать самый экономный вариант:

  4. (a div b) частное от деления а на b  (a mod b)  остаток, после деления а на b (а,b-целые!!! ) a div b= целое a mod b =целое a-a div b*b= a-(a div b)*b) 8 div 2 = 4 17 div 3 = 5  17 mod 3 = 2 -7 mod 2 = -1 1 mod (-5) =1 17 div 0 = ошибка деление на 0 0 div 5=0 0 mod 3 = 3 13 mod 0=ошибка деление на 0 Знаки операций в Паскале:  *,  /, -, +, div, mod

  5. Для быстрой работы с целыми числами определены процедуры: • Inc(X) X:=X+1 • Inc(X,N) X:=X+N • Dec(X) X:=X-1 • Dec(X,N) X:=X-N

  6. Чему будут равны значения переменных: m:=32; n:=23; Dec(m,n); Inc(n,m) Dec(m,n) m:= - m; m:=32; n:=23; Dec(m,n), m=m-n=32-23=9 Inc(n,m), n=n+m=23+9=32 Dec(m,n), m=m-n=9-32=-23 m=23

  7. Найти значения переменных х:=4*5 div 3 mod 2 y:= 4*5 div (3 mod 2) 4*5=20 20 div 3=2 2 mod 2 =0 X=0 3 mod 2=1 4*5=20 20 div 1=20

  8. Дано пятизначное число. Поставьте в соответствие: В aхранится число десятков тысяч, b – число тысяч с – число сотен d– число десятков e – число единиц Например число 54321

  9. Что будет выведено на экран,если пользователь ввел с клавиатуры число 3712: … Var a,b,c,d:integer; … Readln(a); b:=a mod 1000 div 100; c:=a div 10 mod 10; d:=a mod 10000 div 100; Writeln(‘в числе’, a, ‘содержатся’); Write (b:4); write(c:4); write(d:4); …. а=3712 B=7 C=1 D=37 На экране: В числе 3712 содержатся 7 1 37

  10. Дана масса в кг, найти число полных центнеров. Program a1; Var n, m: integer; Begin Read (n); m:=n div 100; Writeln(‘в ’,n,’кг ’, m,’центнеров’) End.

  11. Дано натуральное число n (n>99). Найти цифру сотен в нем. Например, если n=4876, ответ 8, для n=195 ответ 1. M= x div 100 mod 10

  12. Дано: а1- 1-ый член арифметической прогрессии, d – разность прогрессии, Найти 30-ый член прогрессии An=a1+d(n-1) A30=a1+d(30-1) Program a2; Var a1, a30, d: integer; Begin Read (a1,d); a30:=a1+d*29; Writeln(’30-ый член арифметической прогрессии= ’,а30 ) End.

  13. Дано четырехзначное число, найти сумму цифр его составляющих. Program a3; Var n, a, b, c, d: integer; Begin Read (n); a:=n div 1000; b:= n div 100 mod 10; c:= ndiv 10 mod 10; d:= n mod 10; Writeln(a+b+c+d) End. n=1234 a=1234 div 1000 =1 1234 div 100 =12 b=12 mod 10=2 1234 div 10=123 c=123 mod 10 = 3 d=1234 mod 10 = 4

More Related