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

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

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

дополните программу код как можно чтобы при нажатии клавиши 3 осуществлялся выход из программы тоесть связать клавишу 3 с вариантом WriteLn(' 3. B6IXOg');
а вообще программу я такую пишу: создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную, шестнадцатеричную.
Если что подравьте мою недоделанную программу

Pascal

program p1;
uses crt;
var
f:text;
s:string;
i:integer;
Ch: Char;
BEGIN
WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
WriteLn(' 1. TEORIAя');
WriteLn(' 2. OPROS');
WriteLn(' 3. B6IXOg');
WriteLn(' VIBERITE NYJNII VARIANT');
ReadLn(Ch);
 
if Ch = '1' then
clrscr;
begin
assign(f,'t.txt');
reset(f);
while not Eof(f) do
begin
readln(f,s);
writeln(s);
end;
end;
end.

@aleksandy · 22.06.2010, 14:33

case и ReadKey тебе в помощь...

@makakas2ruls · 22.06.2010, 14:37

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

дополните программу код как можно чтобы при нажатии клавиши 3 осуществлялся выход из программы тоесть связать клавишу 3 с вариантом WriteLn(' 3. B6IXOg');
а вообще программу я такую пишу: создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную, шестнадцатеричную.
Если что подравьте мою недоделанную программу

program p1;
uses crt;
var
f:text;
s:string;
i:integer;
Ch: Char;
BEGIN
WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
WriteLn(' 1. TEORIAя');
WriteLn(' 2. OPROS');
WriteLn(' 3. B6IXOg');
WriteLn(' VIBERITE NYJNII VARIANT');
ReadLn(Ch);

if Ch = '1' then
clrscr;
begin
assign(f,'t.txt');
reset(f);
while not Eof(f) do
begin
readln(f,s);
writeln(s);
end;
end;
end.

я думаю что нужно поставить readln после второго енда в конце ))

@Puporev · 22.06.2010, 14:56

Pascal

repeat
clrscr;
WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
WriteLn(' 1. TEORIAя');
WriteLn(' 2. OPROS');
WriteLn(' 3. B6IXOg');
WriteLn(' VIBERITE NYJNII VARIANT');
ReadLn(Ch);
case ch of
'1':procedure1;
'2':procedure2;
'3':exit;
end;
until ch='3';

Добавлено через 1 минуту
Нужно для действий 1 и 2 написать процедуры.

@aleksandy 636 / 528 / 165 Регистрация: 01.04.2010 Сообщений: 1,843
	22.06.2010, 14:33	2
	case и ReadKey тебе в помощь... 0

@makakas2ruls 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 49
	22.06.2010, 14:37	3
	Сообщение от KIBERNETIK12 дополните программу код как можно чтобы при нажатии клавиши 3 осуществлялся выход из программы тоесть связать клавишу 3 с вариантом WriteLn(' 3. B6IXOg'); а вообще программу я такую пишу: создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную, шестнадцатеричную. Если что подравьте мою недоделанную программу program p1; uses crt; var f:text; s:string; i:integer; Ch: Char; BEGIN WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI '); WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y'); WriteLn(' 1. TEORIAя'); WriteLn(' 2. OPROS'); WriteLn(' 3. B6IXOg'); WriteLn(' VIBERITE NYJNII VARIANT'); ReadLn(Ch); if Ch = '1' then clrscr; begin assign(f,'t.txt'); reset(f); while not Eof(f) do begin readln(f,s); writeln(s); end; end; end. я думаю что нужно поставить readln после второго енда в конце )) 0

	22.06.2010, 14:56

Опции темы