Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
aleg
0 / 0 / 0
Регистрация: 28.06.2011
Сообщений: 19
1

Дан файл целых чисел.Найти его первый локальный минимум (элемент который меньше своих соседей)

07.07.2011, 10:59. Просмотров 1194. Ответов 1
Метки нет (Все метки)

Дан файл целых чисел.Найти его первый локальный минимум (элемент который меньше своих соседей)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2011, 10:59
Ответы с готовыми решениями:

Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и заменить его нулем.
Помогите решить в Паскаль пожалуйста!!!! 1)Даны два целых числа: D (день) и M (месяц),...

Дан массив целых чисел. Найти максимальный элемент и его номер.
Дан массив целых чисел. Найти максимальный элемент и его номер.

Дан файл целых чисел. Найти его последний локальныйй максимум
дан файл целых чисел. найти его последний локальныйй максимум (элемент, которыйй больше своих...

Дан массив целых чисел. Найти минимальный элемент массива и его порядковый номер
Дан массив целых чисел. Найти минимальный элемент массива и его порядковый номер. Как составить...

Дан файл целых чисел. Найти общее количество его локальных экстремумов
Дан файл целых чисел. Найти общее количество его локальных экстремумов- локальных минимумов и...

1
Puporev
Модератор
58076 / 44185 / 30525
Регистрация: 18.05.2008
Сообщений: 105,794
07.07.2011, 11:25 2
Лучший ответ Сообщение было отмечено aleg как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
var f:file of integer;
    var a,b,c,n,i,lm,im:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в ыайл, не менее 3 n=');
read(n);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
writeln('Содержание файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
im:=-1;//индекс лок. мин
i:=1;
while(i<filesize(f)-1)and(im=-1) do //пока не нашли и не предпоследний элемент
 begin
  seek(f,i-1);//читаем 3 соседних числа
  read(f,a);
  seek(f,i);
  read(f,b);
  seek(f,i+1);
  read(f,c);
  if(b<a)and(b<c) then//если среднее меньше сосодей
   begin
    im:=i; //индекс
    lm:=b;//само число
   end
  else i:=i+1;//иначе вперед
 end;
close(f);
if im=-1 then write('Локального минимума нет')
else write('Первый локальный минимум=',lm,' его номер=',im+1);//номер на 1 больше чем индекс
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2011, 11:25

Найти первый элемент линейной таблицы который меньше чем данное число М
Помогите надо зделать через Pascal

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

Дан вектор целых чисел Определить сколько из них больше своих соседей
1)Дан вектор целых чисел. Определить сколько из них больше своих соседей


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

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

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