Страница 1 из 1
Массив и символьная строка. Pascal
Добавлено: 17 ноя 2008, 21:31
alina777
Здравствуйте! Рассчитываю на вашу помощь в решении двух задач:
1) Дан двумерный массив размером 3*3. Получить новый массив путем увеличения каждого из элементов массива в 2 раза.
2) Символьная строка содержит К символов. Составьте новую символьную строку, содержащую те же символы, однако символы "+" и "4" запишите трижды.
Заранее благодарю.
Re: Массив и символьная строка. Pascal
Добавлено: 19 ноя 2008, 10:01
Naeel Maqsudov
2)
S1 - исходная строка, S2 - результат
Код: Выделить всё
K:=length(S1);
S2:='';
for i:=1 to K begin
S2:=S2+S1[i];
if (S1[i]='+') or (S1[i]='4') then S2:=S2+S1[i]+S1[i];
end;
Re: Массив и символьная строка. Pascal
Добавлено: 19 ноя 2008, 17:50
Хыиуду
1
for i:=1 to 3 do
for j:=1 to 3 do
a[i,j]:=2*a[i,j]
Re: Массив и символьная строка. Pascal
Добавлено: 20 ноя 2008, 00:12
alina777
Большое спасибо!!!
Re: Массив и символьная строка. Pascal
Добавлено: 25 ноя 2008, 16:15
derhummel
Здравствуйте помогите плиз с массивами:
ТЕМА 9.
Вычислить y=x1+x1x2+x1x2x3+...+x1x2x3...x m , где m - либо номер первого отрицательного элемента массива x, либо число n, если в массиве x нет отрицательных элементов.
ТЕМА 14.
Даны: целое число n, действительные числа b1,b2...bn.
Выяснить, имеется ли в последовательности пара чисел сумма квадратов которых равна квадрату суммы их значений. Если такая пара существует, то вывести ее , если нет, то выдать соответствующее сообщение.
Re: Массив и символьная строка. Pascal
Добавлено: 25 ноя 2008, 19:11
Хыиуду
1.
Код: Выделить всё
y:=x[1];
a:=x[1];
for i:=2 to n do
begin
a:=a*x[i];
inc(y,a);
if x[i]<0 then break;
end;
2. for i:=1 to n do
if b
=0 then begin
writeln('Пара существует, все числа с нулем, учим математику 8 класса!');
break;
end;
Re: Массив и символьная строка. Pascal
Добавлено: 26 ноя 2008, 02:00
derhummel
спасибо! Буду терь писать программу)