Помогите решить задачи на Паскале - Страница 2

AlexZir · 20.10.2009, 21:18

Цитата:

Сообщение от Boginy

2) Заданы два одномерных целых массива: массив А размера М и массив В размера N. Объединить их в один массив, включив второй массив между К - ым и К + 1 - м элементами первого (К - задано)

Для решения этой задачи применяем промежуточный массив данных для временного хранения хвоста массива.

Код:

uses crt;
var a: array[1..1000] of integer;
     b: array[1..1000] of integer;
     c: array[1..1000] of integer;
     i,j,n,m,k: integer;
begin
write('введите размерность M');
readln(m);
writeln('Заполните элементы массива а значениями');
for i:=1 to m do
readln (a[i]);
write('введите размерность N');
readln(n);
writeln('Заполните элементы массива b значениями');
for i:=1 to n do
readln (b[i]);
write('введите значение К');
readln(k);
j:=0;
for i:=k+1 to m do begin
j:=j+1;
c[j]:=a[i]; end;
j:=1;
for i:=k+1 to m+n do 
if i<=k+n then a[i]:=b[i-k] else begin a[i]:=c[j]; j:=j+1; end;
for i:=1 to m+n do
write(a[i],' ');
readln
end.

Vladimir_S · 20.10.2009, 22:29

Цитата:

Сообщение от Boginy

3)Задан массив целых чисел размера Р. Напечатать числа, которые входят в массив более одного раза.

Const
P=10;
VAR
A,B:ARRAY[1..P] of INTEGER;
i,j,k,N,q:INTEGER;

BEGIN
FOR i:=1 TO P DO
BEGIN
Write('A[',i:1,']= ');
ReadLn(A[i]);
END;
WriteLn;
q:=0;
N:=0;
FOR i:=1 TO P DO
FOR j:=i+1 TO P DO
IF A[i]=A[j] THEN
BEGIN
FOR k:=1 TO N DO
IF A[i]=B[k] THEN q:=1;
IF q=0 THEN
BEGIN
INC(N);
B[N]:=A[i];
WriteLn(A[i]);
END;
q:=0;
END;
ReadLn;
END.

Boginy · 21.10.2009, 07:16

Большое спасибо

Boginy · 21.10.2009, 07:24

1) Даны два массива А и В и последовательность целых чисел С1,С2,..., Cm, где М=100.Найти все числа С1 такие, что А,В, Ci являются длинами сторон одного равнобедренного треугольника.

2)Дано целое положительное число М и массив целых чисел А1,...., Am. Заменить в массиве все отрицательные значения на равные по абсолютной велечине положительные.

Vladimir_S · 21.10.2009, 10:03

Цитата:

Сообщение от Boginy

1) Даны два массива А и В и последовательность целых чисел С1,С2,..., Cm, где М=100.Найти все числа С1 такие, что А,В, Ci являются длинами сторон одного равнобедренного треугольника.

Не понял - уточните условие. Что требуется - найти такие комбинации А, В и С, которые составляют длины сторон ОДНОГО И ТОГО ЖЕ равнобедренного треугольника, или найти все комбинации чисел А, В и С, которые могут быть интерпретированы, как стороны равнобедренного треугольника, т. е. выполняются условия типа А=В и А+В>С? Является ли С обязательно основанием треугольника или может быть боковой стороной?

Цитата:

2)Дано целое положительное число М и массив целых чисел А1,...., Am. Заменить в массиве все отрицательные значения на равные по абсолютной велечине положительные.

А вот это СВЕРХэлементарное задание будьте любезны сами. Если хотите ну хоть чему-нибудь научиться!

Boginy · 01.12.2009, 21:17

Привет! Я только начала изучать Паскаль)Помогите пожалуйста
1)Найти все цифры в символьном массиве и переместить их в начало массива.

20.10.2009, 21:18
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В интернете часто создаются схожие темы Помогите решить четыре задачи в Паскале Помогите решить задачи на C++ Помогите решить две задачи в турбо паскале Помогите решить две задачи в С++

21.10.2009, 07:16	#13 (permalink)
Boginy Новичок Регистрация: 20.10.2009 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Большое спасибо

21.10.2009, 07:24	#14 (permalink)
Boginy Новичок Регистрация: 20.10.2009 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	1) Даны два массива А и В и последовательность целых чисел С1,С2,..., Cm, где М=100.Найти все числа С1 такие, что А,В, Ci являются длинами сторон одного равнобедренного треугольника. 2)Дано целое положительное число М и массив целых чисел А1,...., Am. Заменить в массиве все отрицательные значения на равные по абсолютной велечине положительные.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

01.12.2009, 21:17	#16 (permalink)
Boginy Новичок Регистрация: 20.10.2009 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Привет! Я только начала изучать Паскаль)Помогите пожалуйста 1)Найти все цифры в символьном массиве и переместить их в начало массива.