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

Процедуры и функции: в произвольном массиве заменить все элементы, не кратные 7 на -15.

29.08.2012, 00:42. Просмотров 390. Ответов 3
Метки нет (Все метки)

Создать программу с помощью процедуры : в произвольном массиве заменить все элементы, не кратные 7 на -15.
помогите пожалуйста) заранее благодарна=)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.08.2012, 00:42
Ответы с готовыми решениями:

Строковые процедуры и функции: заменить в произвольном тексте все цифры на символ '*'
Напишите программу, заменяющую в произвольном тексте все цифры на символ '*'....

Заменить в массиве на нули, все элементы кратные трем
Всем доброго вечера! Буду благодарен, если поможете с программкой на паскале. ...

В массиве заменить все элементы, кратные введенному числу d на их квадраты
Линейном массиве целых чисел A(12), заменить все элементы, кратные введенному...

В массиве все элементы, кратные четырем, заменить на минимальный элемент строки, в которой он расположен
Здравствуйте, помогите мне пожалуйста. В массиве все элементы, кратные...

Процедуры: в массиве заменить все элементы их квадратами
решить с помощью процедур. в произвольном массиве заменить все элементы их...

3
qnak
58 / 58 / 45
Регистрация: 19.02.2012
Сообщений: 118
29.08.2012, 00:52 #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
program aasdf;
const c = 1000000;
type matr= array[1..c] of integer;
var n,k,i:integer;
a:matr
;
procedure Go(n:integer);
var i:integer;
 
begin
for i:=1 to n do
 if a[i] mod 7 <>0 then a[i]:=-15;
 
end;
 
begin
{для одномерного массива}
writeln('Введите размерность массива');
 
readln(n);
writeln('Введите  массив');
for i:=1 to n do readln(a[i]);
Go(n);
 writeln('Результат');
 for i:=1 to n do writeln(a[i]);
 
end.
1
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
29.08.2012, 00:53 #3
Припоздал)
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
uses crt;
const n = 10;
type m = array [1..n] of integer;
var c: m;
    i: integer;
 
procedure replace(var a: m);
var i: integer;
begin
 for i:=1 to n do
  begin
   if c[i] mod 7<>0 then
    c[i]:=-15;
   write(c[i]:4);
  end;
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив C: ');
 for i:=1 to n do
  begin
   c[i]:=random(500);
   write(c[i]:4);
  end;
 writeln;
 writeln('Измененный массив C: ');
 replace(c);
 readln;
end.
1
Beauty_Girl
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 17
29.08.2012, 01:39  [ТС] #4
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.08.2012, 01:39

Создание Блок-схема. В массиве все элементы, кратные 4, заменить на минимальный элемент строки, в котором он расположен
Помогите пожалуйста,составить блок -схему программы . Заранее спасибо!!) {V...

Процедуры/функции: заменить все нечетные элементы матриц на число X
задания: 1.Разработать программу, которая в матрицах A, B и C позволяет...

В массиве C(L)элементы, кратные трем, заменить на «три».
В массиве C(L)элементы, кратные трем, заменить на «три». Бинарный поиск


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

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

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