Внести функцию в программу

@KIBERNETIK12 · Регистрация: 18.06.2010

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

доработайте функцию

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
x := Random(1025);
   writeln(' ');   
   writeln('Bin ',Conv(x, 2));
   writeln('Oct ', Conv(x, 8));
   writeln('Hex ', Conv(x, 16));
  
   writeln('PEREVEDI 4ISLO ', x);
   
   write('V DVOI4NYY SISTEMY S4ISLENIA OTVET: ');
   Readln(otv);
   if otv = Conv(x, 2) then writeln('VERNO')
   else Writeln('NEVERNO! PRAVILNII OTVET: ', Conv(x, 2));
   
   write('V VOSMERI4NYY SISTEMY S4ISLENIA OTVET: ');
   Readln(otv);
   if otv = Conv(x, 8) then writeln('VERNO')
   else Writeln('NEVRNO!PRAVILNII OTVET: ', Conv(x, 8));
   
   write('SHESTNACATERI4NYY SISTEMY S4ISLENIA OTVET: ');
   Readln(otv);
   if otv = Conv(x, 16) then writeln('VERNO')
   else Writeln('NEVERNO!PRAVILNII OTVET: ', Conv(x, 16));

@Hidalgo08 · 23.06.2010, 19:14

а что за программа у тебя то, что она делает куда что должно передавать и все такое*? задание свое напиши....

@KIBERNETIK12 · 23.06.2010, 19:26 **[ТС]**

Сообщение от Hidalgo08

а что за программа у тебя то, что она делает куда что должно передавать и все такое*? задание свое напиши....

задание
создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную,16-ю сс

Добавлено через 5 минут
создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную,16-ю сс

@Hidalgo08 · 23.06.2010, 19:26

остальная программа у тебя есть, там где ты конвертируешь сами счисления, то есть я про процедуры или функции что у тебя под названием "Conv"?

@KIBERNETIK12 · 23.06.2010, 19:38 **[ТС]**

Сообщение от Hidalgo08

остальная программа у тебя есть, там где ты конвертируешь сами счисления, то есть я про процедуры или функции что у тебя под названием "Conv"?

вот это мне и нужно
дополнить процедуру conv

Добавлено через 2 минуты
а можно это записать не в виде процедур или функций а в виде логических выражений

Добавлено через 5 минут
помогите создать процедуру

Добавлено через 41 секунду

Сообщение от KIBERNETIK12

вот это мне и нужно
дополнить процедуру conv

Добавлено через 2 минуты
а можно это записать не в виде процедур или функций а в виде логических выражений

Добавлено через 5 минут
помогите создать процедуру

помогите создать процедуру и внести процедуру в программу

@Hidalgo08 · 23.06.2010, 19:38

Сообщение от KIBERNETIK12

ччч

а Conv (процедура или функция) , у тебя должна просто переводить числа в двичную, 8 и 16 систему, или я не так понимаю ?

@KIBERNETIK12 · 23.06.2010, 19:48 **[ТС]**

Сообщение от Hidalgo08

а Conv (процедура или функция) , у тебя должна просто переводить числа в двичную, 8 и 16 систему, или я не так понимаю ?

да вы правы conv это процедура или функция которая переводит числа 2-ю 8-ю 16-ю вот она мне и нужна

Добавлено через 2 минуты
вот сама программа получится ли у меня присвоить метке lab2 присвоить процедуру conv

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
Program perevodCC;
uses crt;
label e, lab1, lab2;
   var x,j,s,l,i,k:integer;f:text;hk:string;
   a:array[1..8] of integer;
   b:array[1..8] of integer;
begin
textmode(2);textcolor(14);
textbackground(1);
 e:clrscr;
   writeln;writeln;
   writeln;writeln;
   writeln;writeln;
   writeln;writeln;
   writeln;writeln;
   WriteLn('                PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
   WriteLn('            SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NYY');
   writeln;
   writeln;
   writeln;
   writeln ('                                   1 - Teoria');
   writeln ('                                   2 - Opros');
   writeln ('                                   3 - B6IXOg');
   writeln;
   writeln;
   write ('                            viberite nyjnii variant ');
   readln(x);
if x=3 Then Exit;
if x=2 Then goto lab2;
if x=1 Then goto lab1;
lab1: begin
clrscr;
assign(f,'t.txt');
reset(f);
while Eof(f)<>True do
begin
readln(f,hk);
writeln(hk);
end;
readln;
end;
goto e;

lab2: процедура conv........ сюда присвоить

Добавлено через 26 секунд
помогите вставить процедуру

@Hidalgo08 · 23.06.2010, 19:50

смотри вот программа для перевода 2,8,16. тут все расписанно, посмотри и переделай под свое

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
uses
  crt;
var
  cs1,cs2,res,change:integer;
  TD:string;
{функция перевода Dec числа в любую сс}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{фунция перевода любой сс в Dec}
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],digit)-1;
  ToDec:=m;
end;
{осоновная программы}
begin
  writeln('Введите из какой сс');
  readln(cs1);
  writeln('Введите число в соответствии с сс');
  readln(TD);
  writeln('Введите в какую сс');
  readln(cs2);
  writeln(FromDec(ToDec(TD,cs1),cs2));
end.

@KIBERNETIK12 · 23.06.2010, 19:55 **[ТС]**

Сообщение от Hidalgo08

смотри вот программа для перевода 2,8,16. тут все расписанно, посмотри и переделай под свое

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
uses
  crt;
var
  cs1,cs2,res,change:integer;
  TD:string;
{функция перевода Dec числа в любую сс}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{фунция перевода любой сс в Dec}
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],digit)-1;
  ToDec:=m;
end;
{осоновная программы}
begin
  writeln('Введите из какой сс');
  readln(cs1);
  writeln('Введите число в соответствии с сс');
  readln(TD);
  writeln('Введите в какую сс');
  readln(cs2);
  writeln(FromDec(ToDec(TD,cs1),cs2));
end.

можете пределать программу пожалуйста

Добавлено через 1 минуту
помогите для вас это не составит труда вы же профессионал

@Hidalgo08 · 23.06.2010, 20:01

ну вот она так будет выглядит в виде процедуры, тебе только надо вставить ее к себе, только я не знаю если что лишнее прибери, а то я не знаю твою мысль как такого:

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
Procedure SSSS;
{функция перевода Dec числа в любую сс}
function FromDec(n, r: longint): string;
var
  s: String;
const
  digit: string[16] = '0123456789ABCDEF';
begin
  s := '';
  repeat
    s := digit[(n mod r) + 1] + s;
    n := n div r;
  until n = 0;
  FromDec := s;
end;
 
{фунция перевода любой сс в Dec}
function ToDec(n: string; r: longint): longint;
var
  m, i: longint;
const
  digit: string[16] = '0123456789ABCDEF';
begin
  m := 0;
  while n[1] = '0' do
    delete(n, 1, 1);
  for i := 1 to length(n) do
    m := m * r + pos(n[i], digit) - 1;
  ToDec := m;
end;
 
var
  cs1, cs2, res, change: integer;
  TD: string;
begin  
 
{осоновная программы}
begin
  writeln('Введите из какой сс');
  readln(cs1);
  writeln('Введите число в соответствии с сс');
  readln(TD);
  writeln('Введите в какую сс');
  readln(cs2);
  writeln(FromDec(ToDec(TD, cs1), cs2));
end;
end;

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Hidalgo08 Идеи становятся силой... 121 / 121 / 64 Регистрация: 08.12.2009 Сообщений: 445
	23.06.2010, 19:14
	а что за программа у тебя то, что она делает куда что должно передавать и все такое*? задание свое напиши.... 1

@Hidalgo08 Идеи становятся силой... 121 / 121 / 64 Регистрация: 08.12.2009 Сообщений: 445
	23.06.2010, 19:26
	остальная программа у тебя есть, там где ты конвертируешь сами счисления, то есть я про процедуры или функции что у тебя под названием "Conv"? 1