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

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

23.05.2012, 09:45. Просмотров 306. Ответов 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.

http://www.cyberforum.ru/pascal/thread76975.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 09:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос дана программа с массивами. Нужно сделать её без массива (Turbo Pascal):

Дана программа нужно составить блок-схему
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;...

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

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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
Привет! Вот еще темы с решениями:

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

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

Как сделать так, чтобы программа работала без массива?
var f:text; a,i,n:integer; ars:array of string; begin;...

Нужно сделать, чтобы программа состояла из 3 функций, тоесть 1-ая функция ввода массива, 2-ая основная функция, 3-я- вывод массива
Есть программа #include &lt;iostream&gt; #include &lt;algorithm&gt; const int N = 5;...


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

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

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