Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Dante_94
0 / 0 / 0
Регистрация: 19.05.2012
Сообщений: 13
1

дана программа с массивами. Нужно сделать её без массива

23.05.2012, 09:45. Просмотров 311. Ответов 1
Метки нет (Все метки)

дана программа с массивами. Нужно сделать её без массива, но с подпрограммой.
Вот программа:
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
uses crt;
function Armstrong(n:longint):boolean;
var t,m,p,s,i,j:integer;
    a,b:array[1..100]of integer;
begin
s:=0;
m:=n;
p:=0;
while m<>0 do
begin
inc(p);
a[p]:=m mod 10;
m:=m div 10
end;
for i:=1 to p do
begin
b[i]:=1;
for j:=1 to p do
b[i]:=b[i]*a[i];
s:=s+b[i];
end;
if s=n then Armstrong:=true
else Armstrong:=false;
end;
var k,i:longint;
begin
clrscr;
write('vvedite chislo k=');
readln(k);
for i:=1 to k do
if Armstrong(i) then write(i,' ');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 09:45
Ответы с готовыми решениями:

Дана прога на геометрию.Нужно сделать её без использования записей!
uses crt; type toch=record x:integer; y:integer; end; mastoch=array of...

Дана программа нужно составить блок-схему
uses crt; var a,b,b1:array of integer; q,i,j,t,sum,min,mini,n:integer;...

дана программа нужно найти и объяснить ошибку...
case x of 0...9:write ('введена цифра'); 10...99:('введено двухзначное...

Дана программа на Бейсике. Нужно перевести ее на Паскаль
Дана программа на Бейсике, которая создает двоичный файл &quot;66-838&quot; с участком...

Дана вот такая программа, как ее сделать
Дана вот такая программа. Возник вопрос к ней. Program Mass_5B; uses Crt;...

1
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
23.05.2012, 13:26 2
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
uses crt;
function Armstrong(n:longint):boolean;
var m,k,p,s,t,i:integer;
begin
m:=n;
k:=0; //количество цифр в числе
while m>0 do
 begin
  k:=k+1;
  m:=m div 10;
 end;
s:=0;
m:=n;
while m>0 do
 begin
  p:=m mod 10;
  t:=1;
  for i:=1 to k do
  t:=t*p;
  s:=s+t;
  m:=m div 10;
 end;
Armstrong:=s=n;
end;
var n,i:longint;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
for i:=1 to n do
if Armstrong(i) then write(i,' ');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 13:26

Дана программа(код внутри). Как сделать чтобы фильтровались рандомно 3 квадрата,а 4й без изменений ?
Программа фильтрует красным синим и зеленым цветами 3 квадрата. Как сделать...

Нужно сделать базу данных без массива!
Вывести список тех товаров, чья стоимость выше средней стоимости всех товаров...

Нужно сделать без мах (Упорядочить элементы массива по убыванию)
вот код программы препод сказал что можно сделать без мах но я без понятия...


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

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

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