1 / 1 / 0
Регистрация: 24.11.2009
Сообщений: 4
1

Массив не знаю как решить .

24.11.2009, 21:47. Показов 496. Ответов 4
Метки нет (Все метки)

1) Даны два массива А(10), В(10). В массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.

2) Написать программу, которая в каждом слове строки, содержащем заданный слог, первое вхождение этого слога переставляет в начало слова

хотябы одну плззз
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2009, 21:47
Ответы с готовыми решениями:

не знаю как решить задачу
Возможно ето смешная задача, но нужен ответ: Стадо баранов влюбилось в одну и ту же овцу. Два ...

Лабораторная работа. Не знаю как решить...
Помогите решить 2 лабы по паскалю пожалуйста. Буду очень признателен. 1. Дано значение переменной...

не знаю как решить!
Дан кирпич размером 3×4×5. В круглое отверстие какого минимального диаметра можно просунуть этот...

Не знаю как решить задачу =(
Помогите пожалуйста решить задачу или подскажите что лучше использовать для её решения.. :scratch:...

4
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 11:10 2
Dawa, Вот первая - выполнена для одного массива - вам самостоятельно проделать тоже самое со вторым!
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
program hhh;
Uses crt;
const n=10;
 Var x,y:array [1..10] of real;
     i,j:integer;
begin
clrscr;
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:4:2,' ');
writeln;
j:=0;
for i:=1 to n do
  if x[i]=0 then begin
                  j:=i;
                  break;
                  end;
writeln ('Pervyi element = 0 na ',j,' meste ');
for i:=1 to j do
x[i]:=0.5;
writeln ('OtBet ');
for i:=1 to n do
write (x[i]:4:2,' ');
readln
end.
0
Платежеспособный зверь
8747 / 4180 / 1606
Регистрация: 28.10.2009
Сообщений: 11,321
25.11.2009, 11:46 3
Давид, 23 строка:
Pascal
1
for i:=1 to j-1 do
до 1 элемента
0
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,511
25.11.2009, 11:55 4
а почему бы не так?
Pascal
1
2
3
4
5
6
7
8
9
10
p:=0; {признак нулевого эл-а}
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]=0 then p:=1;
if p=0 then a[i]:=0.5;
end;
for i:=1 to 10 do
write(a[i],' ');
writeln;
и тоже самое для второй
0
Платежеспособный зверь
8747 / 4180 / 1606
Регистрация: 28.10.2009
Сообщений: 11,321
25.11.2009, 13:17 5
Можно, но обычно сначала требуют ввести данные, а потом уж обрабатывать, а так - здесь половину задач на вводе можно было решить
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2009, 13:17

Табуляция, не знаю как решить
я новичок в с++ пока ничего не знаю) буду благодарен за любую помощь

Итерация. не знаю как решить
Вычислить (рис1) Вычисление прекратить,если(рис2) Подсчитать кол-во слагаемых. Буду...

Не знаю как решить интеграл
не знаю как решить

Процедуры функции.не знаю как решить.
я новичок и еще мало-что знаю.Решить с помощью процедур-функций. Заданные действительные числа...


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

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

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