Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
7 / 6 / 3
Регистрация: 25.10.2010
Сообщений: 218
1

Элементы, предшествующие первому нулевому элементу, заменить на 0,5

02.11.2010, 12:50. Просмотров 916. Ответов 7
Метки нет (Все метки)


даны два массива А(10), В(10). в массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2010, 12:50
Ответы с готовыми решениями:

В массивах A(10) B(10) все элементы предшествующие первому нулевому элементу заменить на 0,5
Прошу Вас, помогите! Даны два массива A(10), B(10). В массивах A(10)b B(10) все элементы...

Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10
Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10,...

Сожмите линейный массив, удалив элементы, предшествующие первому встретившемуся минимальному элементу.
Сожмите линейный массив, удалив элементы, предшествующие первому встретившемуся минимальному...

Все элементы вектора, предшествующие первому наименьшему элементу, умножить на 10 при выполнении заданного условия
1. Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на...

7
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
02.11.2010, 13:03 2
https://www.cyberforum.ru/pascal/thread184981.html
0
Модератор
62827 / 46887 / 32314
Регистрация: 18.05.2008
Сообщений: 113,612
02.11.2010, 13:18 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
const n=10;
type mas=array[1..n] of real;
procedure Vvod(var m:mas;c:char);
var i:byte;
begin
writeln('Введите ',n,' элементов массива ',c);
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(m[i]);
 end;
clrscr;
end;
procedure Vyvod(var m:mas;c:string);
var i:byte;
begin
writeln('Исходный массив ',c);
for i:=1 to n do
write(m[i]:0:1,' ');
writeln;
writeln;
end;
procedure Zamena(var m:mas;c:char);
var i,i1:byte;
begin
if m[1]=0 then writeln('Первый элемент массива нулевой, замен нет!')
else
 begin
  i:=1;i1:=0;
  while(i<=n) and (i1=0) do
  if m[i]=0 then i1:=i
  else i:=i+1;
  if i1=0 then writeln('В массиве нет нулевых элементов!')
  else
   begin
    writeln('Замена элементов:');
    for i:=1 to n do
     begin
      if i in [1..i1-1] then m[i]:=0.5;
      write(m[i]:0:1,' ');
     end;
   end;
 end;
writeln;
end;
var a,b:mas;
begin
clrscr;
Vvod(a,'A');
Vvod(b,'B');
Vyvod(a,'A');
Zamena(a,'A');
Vyvod(b,'B');
Zamena(b,'B');
readln
end.
1
2 / 2 / 4
Регистрация: 30.09.2010
Сообщений: 83
08.11.2010, 12:20 4
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure Zamena(var m:mas;c:char);
var i,i1:byte;
begin
if m[1]=0 then writeln('Первый элемент массива нулевой, замен нет!')
else
 begin
  i:=1;i1:=0;
  while(i<=n) and (i1=0) do
  if m[i]=0 then i1:=i
  else i:=i+1;
  if i1=0 then writeln('В массиве нет нулевых элементов!')
  else
   begin
    writeln('Замена элементов:');
    for i:=1 to n do
     begin
      if i in [1..i1-1] then m[i]:=0.5;
      write(m[i]:0:1,' ');
     end;
   end;
 end;
Можете обьяснить эту процедуру?
0
Модератор
62827 / 46887 / 32314
Регистрация: 18.05.2008
Сообщений: 113,612
08.11.2010, 13:26 5
ChelseaFC, Прочитайте условие задачи и пояснительный текст программы. Если это понять не можете, то вся моя писанина Вам не поможет, ибо не дано...
0
2 / 2 / 4
Регистрация: 30.09.2010
Сообщений: 83
13.11.2010, 08:06 6
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
      if i in [1..i1-1]
Можно один момент спросить.. тоесть мы отнимает элемент который стоит перед нулем или 1-ый элемент?
0
Модератор
62827 / 46887 / 32314
Регистрация: 18.05.2008
Сообщений: 113,612
13.11.2010, 08:22 7
Эта запись означает, что если индекс элемента находится в диапазоне от 1 до i1-1, т.е соответствует условию
Цитата Сообщение от efe Посмотреть сообщение
все элементы предшествующие первому нулевому элементу заменить на 0,5.
1
2 / 2 / 4
Регистрация: 30.09.2010
Сообщений: 83
13.11.2010, 08:25 8
Цитата Сообщение от Puporev Посмотреть сообщение
Эта запись означает, что если индекс элемента находится в диапазоне от 1 до i1-1, т.е соответствует условию
Спасибо все понятно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2010, 08:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу.
Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому...

Определить число элементов одномерного массива предшествующих его первому нулевому элементу
Составить процедуру для определения числа элементов одномерного массива предшествующих его первому...

В массивах А(10) и В(10) все элементы, предшествующие первому нулевому элементу, заменить на 0,5
Здравствуйте. Не могли бы вы мне помочь? не могу составить программу на функции. Задача. Даны два...

Функции. массивах A(10) и B(10) все элементы предшествующие первому нулевому элементу заменить на 0,5
Доброе время суток...собственно вопрос таков:Даны два массива A(10), B(10). В массивах A(10) и...


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

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

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