Найти ближайшее к какому-нибудь целому...

@Garfield_dlc · Регистрация: 16.01.2010

Студворк — интернет-сервис помощи студентам

Ребята, помогите пожалуйста! Я не бум-бум в Паскале! Туговато приходится студентам заочникам!

Завтра зачёт... последняя надежда на Вас!!!

1)
Пусть X1 = 0.3; X2 = -0.3; Xi = i + sin (Xi-2), i = 3, 4, …
Среди X1, …, X100 найти ближайшее к какому-нибудь целому.

2)
Даны натуральное число n, целые числа a1, …, an. Найти наибольшее значение, встречающееся в последовательности a1, …, an, после выбрасывания из неё всех членов со значением max(a1, …, an) – здесь предполагается, что не все числа a1, …, an равны между собой.

Плюсом к этому, ещё нужны какие-то блок схемы к этим задачам... Знать бы ещё что это такое и с чем это едят...

@кот Бегемот · 25.01.2010, 21:36

Плюсом к этому, ещё нужны какие-то блок схемы к этим задачам... Знать бы ещё что это такое и с чем это едят...

Блок-схема - это садистское изобретение преподов, ставящее в тупик и повергающее в ступор нерадивых и особо бестолковых студентов. Подробнее читай в разделе Алгоритмы, Основы алгоритмизации

@Garfield_dlc · 25.01.2010, 21:44 **[ТС]**

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

Блок-схема - это садистское изобретение преподов, ставящее в тупик и повергающее в ступор нерадивых и особо бестолковых студентов. Подробнее читай в разделе Алгоритмы, Основы алгоритмизации

Мой мозг выненсен!

А как задачи-то делать! Преподы реально садисты!!!

@кот Бегемот · 25.01.2010, 22:21

1)
Пусть X1 = 0.3; X2 = -0.3; Xi = i + sin (Xi-2), i = 3, 4, …
Среди X1, …, X100 найти ближайшее к какому-нибудь целому.

Одну сделаю, блок-схему рисовать не буду,это не моё.

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
var
x:array[1..100]of real;
min,elem,d:real;
i,nom:integer;
begin
min:=0.3;
x[1]:=0.3;
x[2]:=-0.3;
for i:=3 to 100 do
begin
x[i]:=i+sin(x[i-2]);
d:=frac(x[i]);
if d<min then
begin
elem:=x[i];
min:=d;
nom:=i;
end;
if (1-d)<min
then
begin
elem:=x[i];
min:=d;
nom:=i;
end;
end;
writeln('blije vsego k celomu element  x[',nom,']=',elem);
readln;
end.

@Puporev · 25.01.2010, 22:27

Вот это

Pascal
1
 if d<min then

неверно, наример 1,999 ближе к целому чем 1,11111

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var x:array[1..100] of real;//будем использовать массив
    mn:real;
    i,imn:byte;
begin
clrscr;
x[1]:=0.3;
x[2]:=-0.3;
mn:=1;imn:=1;
for i:=3 to 100 do//заполняем массив
 begin
  x[i]:=i+sin(x[i-2]);
  if abs(1-frac(x[i]))<mn then//по ходу ищем нименьшую разницу между дробной частью чисел и единицей
   begin
    mn:=abs(1-frac(x[i]));//находим
    imn:=i;//запоминаем индекс
   end;
 end;
write('Ближайшее к целому=',x[imn]:0:8);//выводим само число
readln
end.

@кот Бегемот · 25.01.2010, 22:29

Puporev, а строку 19 ты не заметил?

Pascal
1
if (1-d)<min

@Puporev · 25.01.2010, 22:30

Вторую задачу можно по разному решить, или удалить все максимальные

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;
const max=100;
var b:array[1..max] of integer;
    n,i,j,mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i],' ');
 end;
writeln;
writeln;
mx:=b[1];
for i:=1 to n do
if b[i]>mx then mx:=b[i];
writeln('Первый максимальный=',mx);
i:=1;
while i<=n do
if b[i]=mx then
 begin
  for j:=i to n-1 do
  b[j]:=b[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Массив после удаления первых максимальных:');
for i:=1 to n do
write(b[i],' ');
writeln;
writeln;
mx:=b[1];
for i:=1 to n do
if b[i]>mx then mx:=b[i];
writeln('Второй максимальный=',mx);
readln
end.

Или заменить их минимальными

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
uses crt;
const max=100;
var b:array[1..max] of integer;
    n,i,j,mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i],' ');
 end;
writeln;
writeln;
mx:=b[1];
for i:=1 to n do
if b[i]>mx then mx:=b[i];
writeln('Первый максимальный=',mx);
mn:=b[1];
for i:=1 to n do
if b[i]<mn then mn:=b[i];
for i:=1 to n do
if b[i]=mx then b[i]:=mn;
mx:=b[1];
for i:=1 to n do
if b[i]>mx then mx:=b[i];
writeln('Второй максимальный=',mx);
readln
end.

Добавлено через 42 секунды
alexevt, Когда я читал, она была не такая.

@кот Бегемот · 25.01.2010, 22:35

странно, я ничего не исправлял

@Garfield_dlc · 25.01.2010, 22:45 **[ТС]**

Ребят... да Вы просто супер! Нет слов! Огромное Вам спасибо!!! Осталось только догнать до блок-схем...

Добавлено через 2 минуты
Кстати...
Xi = i + sin (Xi-2), i = 3, 4, …

..i-2 - это индекс! Делали с учётом этого или же как (xi-2)?

@Puporev · 25.01.2010, 22:47

Не по теме:

alexevt, Значит верхние силы исправили, но я копировал.

Добавлено через 1 минуту

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

x[i]:=i+sin(x[i-2]);

А это для Пушкина написано? Мы и не такие кривые условия научились расшифровывать, Вам-то пофиг что писать.

@кот Бегемот · 25.01.2010, 22:48

..

i-2 - это индекс!

Спасибо, что сказал, а то мы бы не догадались

@Garfield_dlc · 25.01.2010, 23:23 **[ТС]**

Снимаю шляпу!!!

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Garfield_dlc 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 8

	Найти ближайшее к какому-нибудь целому... 25.01.2010, 21:28. Показов 4706. Ответов 11 Метки нет (Все метки) Ребята, помогите пожалуйста! Я не бум-бум в Паскале! Туговато приходится студентам заочникам! Завтра зачёт... последняя надежда на Вас!!! 1) Пусть X1 = 0.3; X2 = -0.3; Xi = i + sin (Xi-2), i = 3, 4, … Среди X1, …, X100 найти ближайшее к какому-нибудь целому. 2) Даны натуральное число n, целые числа a1, …, an. Найти наибольшее значение, встречающееся в последовательности a1, …, an, после выбрасывания из неё всех членов со значением max(a1, …, an) – здесь предполагается, что не все числа a1, …, an равны между собой. Плюсом к этому, ещё нужны какие-то блок схемы к этим задачам... Знать бы ещё что это такое и с чем это едят... 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	25.01.2010, 22:35
	странно, я ничего не исправлял 1

@Garfield_dlc 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 8
	25.01.2010, 22:45 [ТС]
	Ребят... да Вы просто супер! Нет слов! Огромное Вам спасибо!!! Осталось только догнать до блок-схем... Добавлено через 2 минуты Кстати... Xi = i + sin (Xi-2), i = 3, 4, … ..i-2 - это индекс! Делали с учётом этого или же как (xi-2)? 0

@Garfield_dlc 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 8
	25.01.2010, 23:23 [ТС]
	Снимаю шляпу!!! 0