0 / 0 / 0
Регистрация: 14.08.2009
Сообщений: 4
1

Преобразование числа

04.11.2010, 18:48. Показов 406. Ответов 1
Метки нет (Все метки)

Задача заключается в том, чтобы убрать числа под нечетным номер из заданного числа.
Вот мой код
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
a,i,y,n,k,x,b:integer;
begin
writeln('vvedite 4islo');
readln(a);
y:=a;
k:=1;
b:=0;
x:=0;
for i:=1 to n do
begin
k:=k*10;
if y div k <10 then break;
y:=a mod k;
b:=b+1;
if b mod 2 = 0 then
x:=x+y*k;
end;
writeln(x);
readln;
 
 
end.
Компилятору не нравится как я объявил цикл, помогите, пожалуйста разобраться.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2010, 18:48
Ответы с готовыми решениями:

Преобразование строк в числа
Нужно написать прогу что бы в после ввода в поле edit1 какого-нибудь слова, после нажатия на кнопку...

Преобразование числа Integer
Добрый день уважаемые форумчане. Имеется два числа 15550 и 14200. Вопрос: Как их преобразовать...

Поиск в тексте числа и преобразование его
В заданом тексте встречаются цены товаров в гривнах. Например, встречается: 1253749; нужно...

Преобразование числа из 14-ричной в 10-ную систему счисления
Подскажите как решить следующую задачу 2. Дана строка, представляющая собой запись числа в...

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
04.11.2010, 19:03 2
Цитата Сообщение от Animex Посмотреть сообщение
убрать числа под нечетным номер из заданного числа
Это как?

Добавлено через 11 минут
Если речь идет о цифрах числа, то так.

Delphi
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
var m,n:longint;
    s,c,k,p:integer;
begin
write('n=');
readln(n);
s:=0; //количество цифр
m:=n;
while m>0 do
 begin
   m:=m div 10;
   s:=s+1;
 end;
m:=0;//новое число
k:=1;//разряд 10^
p:=0;//номер цифры с конца
while n>0 do
 begin
  c:=n mod 10;//цифра
  p:=p+1; //номер
  //если нечетное кол. цифр и нечетный номер или наоборот
  if (odd(s)and not odd(p)) or(not odd(s)and odd(p)) then
   begin
    m:=m+c*k;//включаем в число в нужный разряд
    k:=k*10; /увеличиваем разряд
   end;
  n:=n div 10;
 end;
write(m);
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2010, 19:03
Помогаю со студенческими работами здесь

Преобразование введенного с клавиатуры восьмиразрядного двоичного числа в десятичное
Написать программу, которая преобразует введенное с клавиатуры восьмиразрядное двоичное число в...

Преобразование денежной суммы, заданной в виде дробного числа, в формат «рубли – копейки»
Разрабатывается приложение «Lab02_02», которое: 1) имеет интерфейс, разработанный с применением...

Спроектируйте и реализуйте приложение под Windows, осуществляющее преобразование числа из одного формата «входного» в другой формат «выходной»
Спроектируйте и реализуйте приложение под Windows, осуществляющее преобразование числа из одного...

Преобразование массива по правилу: сначала - все положительные, затем все отрицательные числа
Добрый день. Моя программа преобразует введенную пользователем последовательность в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru