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

Четные числа в стеке заменить на ноль

04.10.2011, 13:29. Просмотров 2398. Ответов 11
Метки нет (Все метки)

Четные числа в стеки заменить на ноль.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2011, 13:29
Ответы с готовыми решениями:

Заменить в стеке все отрицательные числа их квадратами
Создать стек действительных чисел. Заменить в стеке все отрицательные числа их квадратами. Вывести...

Заменить четные числа матрицы на 1
Кто здесь умнички, помогите с задачей. (Дана матрица 5 на 3. Заменить четные числа на 1. Вывести...

Все четные числа матрицы заменить нулями
сформировать матрицу размером 4х4, содержащую случайные числа в интервале от 1 до 40. все четные...

Все четные числа заменить на значение справо стоящего массива.
1)Дан массив из 100 элементов. Заполнить его целыми числами в интервале от -20 до 10 и вывести на...

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

11
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:30 2
В каком стеке? На каком языке? Какими средствами сделан стек?
1
Валентинабл
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 8
04.10.2011, 13:33  [ТС] 3
В Паскале (АВС)...программирование...
0
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:35 4
Это понятно, используя динамическую память?
1
04.10.2011, 13:35
Валентинабл
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 8
04.10.2011, 13:36  [ТС] 5
да)))
0
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:37 6
Стек уже у вас реализован?
1
Валентинабл
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 8
04.10.2011, 13:38  [ТС] 7
нет....
0
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:42 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот стек, остается заменить. Пока этим помогу
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
type pitem = ^item;
     item = record
     data: integer;
     prev:pitem;
     end;
 
var p,top: pitem;
      k: integer;
 
procedure add(x:integer);
begin
          new(p);p^.data:=x;
          p^.prev:=top;
          top:=p;
                   
end;
 
 
procedure writestack;
begin
          writeln('Content of stack from top: ');
          p:=top;
          while p<>nil do begin
                write(p^.data,' ');p:=p^.prev;
          end;
          writeln;
end;
 
Begin
top:=nil;
for k:=1 to 10 do add(k);
writestack;
End.
1
Валентинабл
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 8
04.10.2011, 13:45  [ТС] 9
а как заменить??
0
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:51 10
Pascal
1
if p^.data mod 2 = 0 then p^.data:=0;
Вот это вставьте в начало цикла процедуры writestack. Скажете работает или нет
1
Валентинабл
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 8
04.10.2011, 13:56  [ТС] 11
но он заменил только 10?на ноль
0
Vidok
37 / 37 / 4
Регистрация: 03.09.2011
Сообщений: 279
04.10.2011, 13:58 12
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот так вы сделали? У меня все заменяет
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
34
type pitem = ^item;
     item = record
     data: integer;
     prev:pitem;
     end;
 
var p,top: pitem;
      k: integer;
 
procedure add(x:integer);
begin
          new(p);p^.data:=x;
          p^.prev:=top;
          top:=p;
                   
end;
 
 
procedure writestack;
begin
          writeln('Content of stack from top: ');
          p:=top;
          while p<>nil do begin
          if p^.data mod 2 = 0 then p^.data:=0;
          write(p^.data,' ');p:=p^.prev;
          end;
          writeln;
end;
 
Begin
top:=nil;
for k:=1 to 10 do add(k);
writestack;
End.
Работает или нет?
1
04.10.2011, 13:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2011, 13:58

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

В массиве заменить четные по значению числа на ноль
Задача: Массив содержит 10 целых чисел. Заменить четные по значению числа на ноль.

В стеке вещественных чисел вычыслить среднее арифметичсекое, и заменить им все четные элементы
Помогите пж) Дана задача,В стеке вещественных чисел вычыслить среднее арифметичсекое,и заменить им...


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

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

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