Написать программу к модулю

@katushaa · Регистрация: 10.01.2012

Студворк — интернет-сервис помощи студентам

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
unit Unit2;
 
interface
procedure summa(d1,d2: integer; var d: integer);
procedure razn(d1,d2: integer;var d: integer);
procedure proizv(d1,d2: integer; var d: integer);
procedure chastn(d1,d2: integer;var d: real);
procedure izdvvdes(d1: string; var d: integer);
procedure izshvdes(d1:string;var d: integer);
function proverka(d1: string): string;
function operazii(d1,d2:integer):string;
 
implementation
 procedure summa(d1,d2: integer; var d: integer);
begin
d:=d1+d2;
end;
procedure razn(d1,d2: integer;var d: integer);
begin
d:=d1-d2;
end;
procedure proizv(d1,d2: integer; var d: integer);
begin
d:=d1*d2;
end;
procedure chastn(d1,d2: integer;var d: real);
begin
d:=d1/d2;
end;
procedure izdvvdes(d1: string; var d: integer);
var i,k,g: integer;
f: char;
begin
   i:=length(d1);
   g:=0;
   d:=0;
   while i>=1 do
   begin
      f:=d1[i];
      case f of
      '0': k:=0;
      '1': k:=1;
      end;
      d:=d+round(k*exp(g*ln(10)));
      g:=g+1;
      i:=i-1;
   end;
end;
procedure izshvdes(d1: string;var d: integer);
var i,k,g: integer;
f: char;
begin
   i:=length(d1);
   g:=0;
   d:=0;
   while i>=1 do
   begin
      f:=d1[i];
      case f of
      '0': k:=0;
      '1': k:=1;
      '2': k:=2;
      '3': k:=3;
      '4': k:=4;
      '5': k:=5;
      '6': k:=6;
      '7': k:=7;
      '8': k:=8;
      '9': k:=9;
      'a': k:=10;
      'b': k:=11;
      'c': k:=12;
      'd': k:=13;
      'e': k:=14;
      'f': k:=15;
      end;
      d:=d+round(k*exp(g*ln(16)));
      g:=g+1;
      i:=i-1;
   end;
end;
function proverka(d1: string): string;
var i,p: integer;
begin
  i:=1;
  p:=0;
  while i<=length(d1) do
  begin
  if (d1[i] in ['1'..'9'])or(d1[i] in ['a','b','c','d','e','f']) then
  else p:=p+1;
i:=i+1;
  end;
  if p>0 then proverka:='неверно'
  else proverka:='верно';
end;
function operazii(d1,d2:integer):string;
begin
if d1>d2 then operazii:='>';
if d1<d2 then operazii:='<';
if d1=d2 then operazii:='=';
end;
end.

@Puporev · 09.06.2012, 13:52

Извините, но чуть переделал Ваш модуль.

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
unit Unit2;
 
interface
procedure summa(d1,d2: integer; var d: integer);
procedure razn(d1,d2: integer;var d: integer);
procedure proizv(d1,d2: integer; var d: integer);
procedure chastn(d1,d2: integer;var d: real);
procedure perevod(d1: string; base:byte; var d:integer);
function proverka2(d1: string): boolean;
function proverka16(d1: string): boolean;
function operazii(d1,d2:integer):string;
 
implementation
 procedure summa(d1,d2: integer; var d: integer);
begin
d:=d1+d2;
end;
procedure razn(d1,d2: integer;var d: integer);
begin
d:=d1-d2;
end;
procedure proizv(d1,d2: integer; var d: integer);
begin
d:=d1*d2;
end;
procedure chastn(d1,d2: integer;var d: real);
begin
d:=d1/d2;
end;
procedure perevod(d1: string; base:byte; var d: integer);
const digits:string[16]='0123456789ABCDEF';
var i: integer;
begin
d:=0;
while d1[1]='0' do delete(d1,1,1);//удалим ведущие ноли
for i:=1 to length(d1) do //пройдем по строке
d:=d*base+pos(d1[i],digits)-1;//умножим уже имеющееся число на основание(2 или 16)
end;                      // и прибавим номен данного символа в константе-1(0,1 или 0..15)
 
function proverka2(d1:string):boolean;
var i,p:integer;
begin
i:=1;
p:=0;
while(i<=length(d1))and(p=0) do
if not(d1[i] in ['0','1']) then p:=1
else i:=i+1;
if p=0 then proverka2:=true
else proverka2:=false
end;
function proverka16(d1: string): boolean;
var i,p: integer;
begin
i:=1;
p:=0;
while (i<=length(d1))and(p=0) do
if not(d1[i] in ['1'..'9','A'..'F']) then p:=1
else i:=i+1;
proverka16:=p=0;
end;
function operazii(d1,d2:integer):string;
begin
if d1>d2 then operazii:='>';
if d1<d2 then operazii:='<';
if d1=d2 then operazii:='=';
end;
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
uses crt,unit2;
var a,b,c,i:integer;
    r:real;
    s2,s16:string;
    w:char;
begin
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-Сумма 2 целых чисел');
writeln('2-Разность 2 целых чисел');
writeln('3-Произведение 2 целых чисел');
writeln('4-Частное 2 целых чисел');
writeln('5-Перевод из СС 2 в СС 10');
writeln('6-Перевод из СС 16 в СС 10');
writeln('7-Сравнение двух целых чисел');
writeln('другое выход');
read(w);
case w of
'1':begin
    clrscr;
    writeln('Введите 2 целых числа:');
    read(a,b);
    summa(a,b,c);
    write('Сумма=',c);
    readln
    end;
'2':begin
    clrscr;
    writeln('Введите 2 целых числа:');
    read(a,b);
    razn(a,b,c);
    write('Разность=',c);
    readln
    end;
'3':begin
    clrscr;
    writeln('Введите 2 целых числа:');
    read(a,b);
    proizv(a,b,c);
    write('Произведение=',c);
    readln
    end;
'4':begin
    clrscr;
    writeln('Введите 2 целых числа:');
    read(a,b);
    chastn(a,b,r);
    write('Частное=',r:0:2);
    readln
    end;
'5':begin
    clrscr;
    repeat
    writeln('Введите число в СС 2:');
    read(s2);
    if not proverka2(s2) then writeln('Число введено неверно, повторите')
    until proverka2(s2);
    perevod(s2,2,a);
    write('Число в СС 10=',a);
    readln;
    end;
'6':begin
    clrscr;
    repeat
    writeln('Введите число в СС 16:');
    read(s16);
    for i:=1 to length(s16) do
    s16[i]:=Upcase(s16[i]);//переведем в верхний регистр
    if not proverka16(s2) then writeln('Число введено неверно, повторите')
    until proverka16(s2);
    perevod(s16,16,a);
    write('Число в СС 10=',a);
    readln;
    end;
'7':begin
    clrscr;
    writeln('Введите 2 целых числа:');
    read(a,b);
    write(a,operazii(a,b),b);
    readln
    end;
else exit;
end;
until not(w in ['1'..'7']);
end.

Новые блоги и статьи Все статьи Все блоги /
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .