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


Ответ
 
Опции темы Опции просмотра
Старый 14.06.2010, 21:56   #1 (permalink)
PHILOSOPH13
Новичок
 
Регистрация: 15.04.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помощь по TР. Массивы.

кто нить может помочь проги написать в TP по массивам???зачет на носу,не успеваю...
Вариант №32
Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
10 Вариант №36
Дан массив размера N. Найти максимальный из его элементов , не являющихся ни локальным минимумом, ни локальным максимумом (определение локального макс и мин даны в заданиях №32, 33). Если таких элементов в массиве нет, то вывести 0
10 Вариант№ 60
Дан массив A размера N. Сформировать новый массив И того же размера по следующему правилу: элемент B(K) равен сумме элементов массива A с номерами от K до N
PHILOSOPH13 вне форума   Ответить с цитированием

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

Мой вам совет - прочитайте похожие обсуждения

Массивы
Массивы. Нужна помощь в доработке программы.

Старый 15.06.2010, 09:52   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,965
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
Код:
uses crt;
const k=10; n=10; {значения измените сами}
var i,j:integer;
     p: array[1..k,1..n] of integer;
begin
randomize;
{заполнение массива случайными значениями}
for i:=1 to k do
for j:=1 to n do
p[i,j]:=random(100)-40;
 
{поиск элемента=2}
for i:=1 to k do begin
for j:=1 to n do
if p[i,j]=2 then begin writeln(j); break; end else if j=n then writeln(0);
end;
readln;
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 15.06.2010, 10:03   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,965
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Дан массив A размера N. Сформировать новый массив И того же размера по следующему правилу: элемент B(K) равен сумме элементов массива A с номерами от K до N
Код:
uses crt;
const n=10;
var a,b:array[1..n] of real;
i,k:integer;
begin
for i:=1 to n do begin
writeln('Введите ',i,' элемент массива');
readln(a[i]); end;
 
for i:=1 to n do begin
b[i]:=0;
for k:=i to n do
b[i]:=b[i]+a[k];
end;
 
for i:=1 to n do
writeln(b[i]);
 
readln;
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 15.06.2010, 10:13   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,965
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Третью задачу сами решить попробуйте, тем более что определений локального минимума и локального максимума из вашей методички я не вижу
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 15.06.2010, 17:14   #5 (permalink)
PHILOSOPH13
Новичок
 
Регистрация: 15.04.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

хахах))))спасибо друг!)))))
PHILOSOPH13 вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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