Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
coul777exe
0 / 0 / 0
Регистрация: 12.04.2016
Сообщений: 39
1

Определить, есть ли в записи числа четные цифры

19.04.2016, 16:33. Просмотров 335. Ответов 2
Метки нет (Все метки)

Всё делал руководствуясь книге. Непойму почему ругается компилятор((((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses modul_1;
 
var bliz_tochka,a1,b1,c1:integer;
var chetnost_chisel,a2,b2,c2:integer;
var arifmet_deistviya,a3,b3,c3:integer;
var zelye_chisla,a4,b4,i4,s4:integer;
var first_number,a5:longint;
var funczia_radian,radtograd,a6:real;
var sred_arifm,a7,b7,ar7,gm7:real;
var funczia_proizved,proizved,a8,b8:real;
 
begin
  bliz_tochka;
  chetnost_chisel;
  arifmet_deistviya;
  zelye_chisla;
  first_number;
  funczia_radian;
  sred_arifm;
  funczia_proizved;
end.
Код модуля
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
Unit modul_1;{Название модуля}
Interface
var a1,b1,c1:integer;
var a2,b2,c2:integer;
var a3,b3,c3:integer;
var a4,b4,i4,s4:integer;
var a5:longint;
var radtograd,a6:real;
var a7,b7,ar7,gm7:real;
var proizved,a8,b8:real;
 
Implementation
 
 
procedure bliz_tochka;
begin
    writeln('Введите целые числа a,b,c');
    readln(a1,b1,c1);
        if (abs(b1-a1))>(abs(c1-a1)) then
          writeln('Точка c расположена ближе к точке a')
        else
          if (abs(b1-a1))=(abs(c1-a1)) then
            writeln('Точка b расположена на таком же расстоянии как и точка c')
          else
            writeln('Точка b расположена ближе к точке а');
end;
 
 
procedure chetnost_chisel;
begin
      writeln('Условия задачи:');
      writeln('Дано двузначное число. Определить, есть ли в его записи четные цифры?');
      writeln('Введите двузначное число:');
      readln(a2);
      b2:=a2 mod 10;
      c2:=a2 div 10;
          case (b2 and c2) of
          {switch (b) case 2: case 4: case 6: case 8: case 0:  Оператор ввода; break;} 
          2,4,6,8,0:writeln('В этом числе есть чётные цифры');
          1,3,5,7,9:writeln('В этом числе нет чётных цифр');
          end;    
end;
 
 
procedure arifmet_deistviya;
begin
      writeln('Условия задачи:');
      writeln('Вычислить и вывести результат выбранного действия над данными числами.');
      writeln('Введите 2 целых числа:');
      readln(a3,b3);
      writeln('Введите операцию 1-сложение, 2-вычитание, 3-умножение, 4-деление');
      readln(c3);
  
        case c3 of
        1:writeln(a3+b3);
        2:writeln(a3-b3);
        3:writeln(a3*b3);
        4:writeln(a3/b3);
        end;    
end;
 
 
procedure zelye_chisla;
begin
      writeln('Введите начало и конец отрезка');
      readln(a4,b4);
      i4:=a4;
      s4:=0;
          while i4<=b4 do
            begin
            s4:=s4+i4;
            i4:=i4+1;
            end;
      writeln('Сумма целых чисел отрезка A,B = ',s4);
end;
 
 
procedure first_number;
begin
{7. Дано натуральное число. Вывести его первую цифру.}
     writeln('Дано натуральное число. Вывести его первую цифру');
     writeln('Введите число');
     readln(a5);
          while a5>9 do
          begin
          a5:=a5 div 10;{ Div – Отсечение последней цифры}
          end;
     writeln('Первая цифра данного числа = ',a5);
end;
 
 
Function funczia_radian(a6:real):real;
begin
    writeln('Введите угол в радианах');
    readln(a6);
    radtograd:=a6*180/pi;
    writeln('Угол в градусах равен ',radtograd);
end;
 
 
Function sred_arifm(a7,b7,ar7,gm7:real):real;
begin        
        writeln('Введите A и B');
        readln(a7,b7);
        ar7:=a7+b7;
        ar7:=ar7/2;
        gm7:=a7*b7;
        gm7:=sqrt(gm7);
        writeln('Среднее арифметическое A и B = ',ar7:4:2);
        writeln('Среднее геометрическое A и B = ',gm7:4:2);
            if ar7<>gm7 then
                begin
                if ar7>gm7 then
                writeln('Среднее арифметическое A и B больше Среднего геометрического A и B')
                else
                writeln('Среднее геометрическое А и В больше Среднего арифметического А и В');
                end
            else
            writeln('Среднее арифметическое A и B равно Среднему арифметическому А и В');
end;
 
 
Function funczia_proizved(a8,b8:real):real;
var proizved:real;
begin
    writeln('Введите числа которые хотите умножить');
    readln(a8,b8);
    proizved:=a8*b8;
    writeln('Произведение данных чисел = ',proizved(a8,b8));
end;
 
 
begin
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2016, 16:33
Ответы с готовыми решениями:

Определить, верно ли, что в записи числа есть две одинаковые цифры
1.Ввести целое число и определить. верно ли, что в его записи есть две одинаковые цифры. 2.Найти...

Найти сумму всех трехзначных чисел, в записи которых есть четные цифры
5)написать программу находящую сумму всех трехзначных чисел, в записи которых есть четные цифры

Найти те числа отрезка, которое в своей записи имеют только четные цифры
Дан натуральный отрезок чисел . Найти те числа этого отрезка, которые в своей записи имеют только...

Определить, верно ли, что в десятичной записи целого числа есть две одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. (без...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

2
capricornus CF
316 / 206 / 162
Регистрация: 08.12.2015
Сообщений: 853
19.04.2016, 18:47 2
Прочтите как вызываются процедуры и функции. В модуле в разделе interface теперь содержится предварительное описание процедур и функций, теперь их видно из программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses modul_1;
 
var a1,b1,c1:integer;
var a2,b2,c2:integer;
var a3,b3,c3:integer;
var a4,b4,i4,s4:integer;
var a5:longint;
var a6:real;
var a7,b7,ar7,gm7:real;
var proizved,a8,b8:real;
 
begin
  bliz_tochka;
  chetnost_chisel;
  arifmet_deistviya;
  zelye_chisla;
  first_number;
  writeln(funczia_radian(50));// в функциях передается значение и возвращается результат
  writeln(sred_arifm(1,2,3,5));//количество передаваемых параметров объявлено в заголовке функции
  writeln(funczia_proizved(3,5));
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
Unit modul_1;{Название модуля}
Interface
var a1,b1,c1:integer;
var a2,b2,c2:integer;
var a3,b3,c3:integer;
var a4,b4,i4,s4:integer;
var a5:longint;
var radtograd,a6:real;
var a7,b7,ar7,gm7:real;
var proizved,a8,b8:real;
procedure bliz_tochka;
procedure chetnost_chisel;
procedure arifmet_deistviya;
procedure zelye_chisla;
procedure first_number;
Function funczia_radian(a6:real):real;
Function sred_arifm(a7,b7,ar7,gm7:real):real;
Function funczia_proizved(a8,b8:real):real;
 
Implementation
 
procedure bliz_tochka;
begin
    writeln('Введите целые числа a,b,c');
    readln(a1,b1,c1);
        if (abs(b1-a1))>(abs(c1-a1)) then
          writeln('Точка c расположена ближе к точке a')
        else
          if (abs(b1-a1))=(abs(c1-a1)) then
            writeln('Точка b расположена на таком же расстоянии как и точка c')
          else
            writeln('Точка b расположена ближе к точке а');
end;
  
procedure chetnost_chisel;
begin
      writeln('Условия задачи:');
      writeln('Дано двузначное число. Определить, есть ли в его записи четные цифры?');
      writeln('Введите двузначное число:');
      readln(a2);
      b2:=a2 mod 10;
      c2:=a2 div 10;
          case (b2 and c2) of
          {switch (b) case 2: case 4: case 6: case 8: case 0:  Оператор ввода; break;} 
          2,4,6,8,0:writeln('В этом числе есть чётные цифры');
          1,3,5,7,9:writeln('В этом числе нет чётных цифр');
          end;    
end;
  
procedure arifmet_deistviya;
begin
      writeln('Условия задачи:');
      writeln('Вычислить и вывести результат выбранного действия над данными числами.');
      writeln('Введите 2 целых числа:');
      readln(a3,b3);
      writeln('Введите операцию 1-сложение, 2-вычитание, 3-умножение, 4-деление');
      readln(c3);
  
        case c3 of
        1:writeln(a3+b3);
        2:writeln(a3-b3);
        3:writeln(a3*b3);
        4:writeln(a3/b3);
        end;    
end;
  
procedure zelye_chisla;
begin
      writeln('Введите начало и конец отрезка');
      readln(a4,b4);
      i4:=a4;
      s4:=0;
          while i4<=b4 do
            begin
            s4:=s4+i4;
            i4:=i4+1;
            end;
      writeln('Сумма целых чисел отрезка A,B = ',s4);
end;
  
procedure first_number;
begin
{7. Дано натуральное число. Вывести его первую цифру.}
     writeln('Дано натуральное число. Вывести его первую цифру');
     writeln('Введите число');
     readln(a5);
          while a5>9 do
          begin
          a5:=a5 div 10;{ Div – Отсечение последней цифры}
          end;
     writeln('Первая цифра данного числа = ',a5);
end;
  
Function funczia_radian(a6:real):real;
begin
    writeln('Введите угол в радианах');
    readln(a6);
    radtograd:=a6*180/pi;
    writeln('Угол в градусах равен ',radtograd);
end;
 
 
Function sred_arifm(a7,b7,ar7,gm7:real):real;
begin        
        writeln('Введите A и B');
        readln(a7,b7);
        ar7:=a7+b7;
        ar7:=ar7/2;
        gm7:=a7*b7;
        gm7:=sqrt(gm7);
        writeln('Среднее арифметическое A и B = ',ar7:4:2);
        writeln('Среднее геометрическое A и B = ',gm7:4:2);
            if ar7<>gm7 then
                begin
                if ar7>gm7 then
                writeln('Среднее арифметическое A и B больше Среднего геометрического A и B')
                else
                writeln('Среднее геометрическое А и В больше Среднего арифметического А и В');
                end
            else
            writeln('Среднее арифметическое A и B равно Среднему арифметическому А и В');
end;
 
Function funczia_proizved(a8,b8:real):real;
var proizved:real;
begin
    writeln('Введите числа которые хотите умножить');
    readln(a8,b8);
    proizved:=a8*b8;
    writeln('Произведение данных чисел = ',proizved);
end;  
begin
end.
1
coul777exe
0 / 0 / 0
Регистрация: 12.04.2016
Сообщений: 39
19.04.2016, 20:56  [ТС] 3
Большое спасибо, более менее понял как работают функции.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2016, 20:56

Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры
Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры и...

Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых есть цифры “2” и “5”
Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых есть цифры “2” и “5”.

Определить, имеются ли в записи числа N нечетные цифры
Помогите пожалуйста Дано натуральное число N. Используя операции деления нацело и взятия остатка...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru