Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.10.2009, 21:18   #11 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,527
Записей в дневнике: 64
Сказал(а) спасибо: 148
Поблагодарили 184 раз(а) в 79 сообщениях
Репутация: 71564
По умолчанию

Цитата:
Сообщение от 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.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием

Старый 20.10.2009, 21:18
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В интернете часто создаются схожие темы

Помогите решить четыре задачи в Паскале
Помогите решить задачи на C++
Помогите решить две задачи в турбо паскале
Помогите решить две задачи в С++

Старый 20.10.2009, 22:29   #12 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 21.10.2009, 07:16   #13 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

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

2)Дано целое положительное число М и массив целых чисел А1,...., Am. Заменить в массиве все отрицательные значения на равные по абсолютной велечине положительные.
Boginy вне форума   Ответить с цитированием
Старый 21.10.2009, 10:03   #15 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Boginy Посмотреть сообщение
1) Даны два массива А и В и последовательность целых чисел С1,С2,..., Cm, где М=100.Найти все числа С1 такие, что А,В, Ci являются длинами сторон одного равнобедренного треугольника.
Не понял - уточните условие. Что требуется - найти такие комбинации А, В и С, которые составляют длины сторон ОДНОГО И ТОГО ЖЕ равнобедренного треугольника, или найти все комбинации чисел А, В и С, которые могут быть интерпретированы, как стороны равнобедренного треугольника, т. е. выполняются условия типа А=В и А+В>С? Является ли С обязательно основанием треугольника или может быть боковой стороной?
Цитата:
2)Дано целое положительное число М и массив целых чисел А1,...., Am. Заменить в массиве все отрицательные значения на равные по абсолютной велечине положительные.
А вот это СВЕРХэлементарное задание будьте любезны сами. Если хотите ну хоть чему-нибудь научиться!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 01.12.2009, 21:17   #16 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.