Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
1

Указать все целые числа, которые увеличиваются на 20%, если их цифры записать в обратном порядке

27.09.2011, 18:27. Просмотров 1082. Ответов 11
Метки нет (Все метки)

Нужно составить программу, которая бы указывала все целые числа, которые увеличиваются на 20%, если их цифры записать в обратном порядке.
Я написал программу, но паскаль выдаёт ошибку. Скажите, пожалуйста, как её устранить?...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{Óêàæèòå âñå öåëûå ÷èñëà, êîòîðûå óâåëè÷àòñÿ íà 20%, åñëè èõ öèôðû çàïèñàòü â îáðàòíîì ïîðÿäêå}
uses crt;
var a, prod: real;
    i: integer;
begin
for i:= -32000 to 32767 do
   begin
   while i>0 do
      begin
      a:=a*10 + (i mod 10);
      i:=i div 10;
      end;
   prod:=a*0.2+a;
   if prod/i=0.2 then writeln(i);
   end;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2011, 18:27
Ответы с готовыми решениями:

Укажите все целые числа которые увеличатся на 20% если их цифры записать в обратном порядке
укажите все целые числа которые увеличатся на 20% если их цифры записать в обратном порядке....

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке.

Записать числа в обратном порядке, при этом переставив все цифры в каждом числе в обратном порядке
Вводится 5 чисел. Требуется записать их в обратном порядке, при этом переставив все цифры в каждом...

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
Помогите пожалуйста решить задачу: Укажите все целые числа, которые увеличатся на 20%, если их...

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
Ребят есть задание, нужно написать программу в делфи, а в нем я не разбираюсь, вообщем вот задание

11
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
27.09.2011, 18:34 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке}
uses crt;
var a, prod: real;
    i: integer;
begin
      i:=i div 10;
for i:= -32000 to 32767 do
   begin
   while i>0 do
      begin
      a:=a*10 + (i mod 10);
      end;
   prod:=a*0.2+a;
   if prod/i=0.2 then writeln(i);
   end;
end.
P.s. узнал что такое Pascal - 3 часа назад на уроке информатики.
0
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
27.09.2011, 18:36  [ТС] 3
LMapper, смысл вашего сообщения? Не занимайтесь болтавнёй, пожалуйста.
0
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
27.09.2011, 18:40 4
Цитата Сообщение от xPavelx Посмотреть сообщение
LMapper, смысл вашего сообщения? Не занимайтесь болтавнёй, пожалуйста.
Код то попробуй
0
27.09.2011, 18:40
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
27.09.2011, 18:42  [ТС] 5
Цитата Сообщение от LMapper Посмотреть сообщение
Код то попробуй
Попробовал. Паскаль выдал ошибку.
0
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
27.09.2011, 18:47 6
Странно, у меня то появляется ошибка, то норм работает.
0
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
27.09.2011, 18:48  [ТС] 7
По легенде, должно работать всё без ошибок.
0
Puporev
Модератор
57885 / 44084 / 30452
Регистрация: 18.05.2008
Сообщений: 105,489
28.09.2011, 06:51 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
1
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
03.10.2011, 18:34  [ТС] 9
И вот ещё... написал программу по заполнению массива из 15 элементов случайным образом вещественными значениями х -50 <= х <= 50. Но не понимаю. почему выводятся только челые числа... Подскажите, пожалуйста!
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
type t=array[1..15] of real;
var n: t;
    i: integer;
begin
for i:= 1 to 15 do
   begin
   n[i]:=random(101)-50;
   write(n[i]:3:3, ' ');
   end;
end.
0
Puporev
Модератор
57885 / 44084 / 30452
Регистрация: 18.05.2008
Сообщений: 105,489
03.10.2011, 18:36 10
Pascal
1
n[i]:=-50+random*101;
1
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
03.10.2011, 18:55  [ТС] 11
И ещё нужно заполнить массив из 20 элементов след. образом: 20 19 18 17 ... 3 2 1.
Написал программу, но работает она некорректно:
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
type t=array[1..20] of byte;
var n: t;
    i: byte;
begin
for i:=12 downto 1 do
   begin
   writeln (n[i]);
   end;
end.
0
Puporev
Модератор
57885 / 44084 / 30452
Регистрация: 18.05.2008
Сообщений: 105,489
03.10.2011, 18:58 12
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если первый класс в школе прогулял, то конечно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
type t=array[1..20] of byte;
var n: t;
    i: byte;
begin
for i:=1 to 20 do
   begin
     n[i]:=21-i;
     write (n[i],' ');
   end;
end.
0
03.10.2011, 18:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2011, 18:58

Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке
Надо помочь написать код и как это оформить на форме. какие компоненты использовать.

Вводится 5 чисел. Требуется записать их в обратном порядке, при этом переставив все цифры в каждом числе в обратном порядке
помогите решить пж. вообще не получается(

В порядке убывания напечатать все целые числа из диапазона 1 . 100, которые можно представить в виде., где n, k - целые числа
В порядке убывания напечатать все целые числа из диапазона 1 .. 100, которые можно представить в...


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

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

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