Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 13 ]  На страницу 1, 2  След.
Автор Сообщение
 Заголовок сообщения: Определить количество чисел, больших своих соседей
СообщениеДобавлено: 01 май 2012, 17:26 
Не в сети
Начинающий
Зарегистрирован:
01 ноя 2011, 14:52
Сообщений: 22
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей, т.е предыдущего и последующего числа.

составила программу используя оператор цикла с параметром
но программа почему-то не правильно работает. числа неверные выдает
помогите пожалуйста, кто может, найти ошибку

progpam p1;
var n,i,k:integer;
a,b,c:real;
begin
write('Введите количество чисел');
readln(n);
write('Введите первое число');
readln(a);
write('Введите второе число ');
readln(b);
for i:=3 to n do
begin
write('Введите следующее число');
readln(c);
if (b>a) and (b>c) then k:=k+1;
a:=b;
b:=c;
end;
writeln('Количество чисел, больших соседей=',k);
readln;
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 01 май 2012, 23:35 
Не в сети
Профи
Зарегистрирован:
30 сен 2011, 20:32
Сообщений: 381
Cпасибо сказано: 66
Спасибо получено:
203 раз в 172 сообщениях
Очков репутации: 142

Добавить очки репутацииУменьшить очки репутации
Darisha
Эта программа работает (PascalABC)
var n,i,k:integer;
m:array[1..100] of real;
begin
Randomize();
write('Введите количество чисел в массиве <=100');
readln(n);
for i:=1 to n do m[i]:=random(200);
for i:=1 to n do write(m[i]:6:2,' ');
writeln;
k:=0;
for i:=2 to n-1 do
if (m[i]>m[i-1]) and (m[i]>m[i+1]) then k:=k+1;
writeln('Количество чисел, больших соседей = ',k);
readln;
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 02 май 2012, 08:53 
Не в сети
Начинающий
Зарегистрирован:
01 ноя 2011, 14:52
Сообщений: 22
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
VSI писал(а):
Darisha
Эта программа работает (PascalABC)
var n,i,k:integer;
m:array[1..100] of real;
begin
Randomize();
write('Введите количество чисел в массиве <=100');
readln(n);
for i:=1 to n do m[i]:=random(200);
for i:=1 to n do write(m[i]:6:2,' ');
writeln;
k:=0;
for i:=2 to n-1 do
if (m[i]>m[i-1]) and (m[i]>m[i+1]) then k:=k+1;
writeln('Количество чисел, больших соседей = ',k);
readln;
end.




Я знаю, а мне нужно именно используя цикл с параметром, а не массив. :(

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 02 май 2012, 20:05 
Не в сети
Профи
Зарегистрирован:
30 сен 2011, 20:32
Сообщений: 381
Cпасибо сказано: 66
Спасибо получено:
203 раз в 172 сообщениях
Очков репутации: 142

Добавить очки репутацииУменьшить очки репутации
Darisha
Ваша программа считает правильно... :wink: Если Вы со мной не согласны, приведите ряд чисел, которые по Вашему мнению программа обрабатывает с ошибкой. :puzyr:)

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 03 май 2012, 16:34 
Не в сети
Начинающий
Зарегистрирован:
01 ноя 2011, 14:52
Сообщений: 22
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
VSI писал(а):
Darisha
Ваша программа считает правильно... :wink: Если Вы со мной не согласны, приведите ряд чисел, которые по Вашему мнению программа обрабатывает с ошибкой. :puzyr:)



я реализую ее в делфи..и считает неверно у меня любые ряды чисел..

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 03 май 2012, 20:48 
Не в сети
Профи
Зарегистрирован:
30 сен 2011, 20:32
Сообщений: 381
Cпасибо сказано: 66
Спасибо получено:
203 раз в 172 сообщениях
Очков репутации: 142

Добавить очки репутацииУменьшить очки репутации
Darisha писал(а):
я реализую ее в делфи..и считает неверно у меня любые ряды чисел..

В Delphi операторы ввода-вывода совершенно другие... Или Вы пытаетесь запустить программу как консольное приложение? Тогда программа должна иметь вид:
progpam p1;
{$APPTYPE CONSOLE}
uses sysutils;

var n,i,k:integer;
a,b,c:real;
begin
write('Введите количество чисел');
readln(n);
write('Введите первое число');
readln(a);
write('Введите второе число ');
readln(b);
for i:=3 to n do
begin
write('Введите следующее число');
readln(c);
if (b>a) and (b>c) then k:=k+1;
a:=b;
b:=c;
end;
writeln('Количество чисел, больших соседей=',k);
readln;
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 06 май 2012, 16:35 
Не в сети
Начинающий
Зарегистрирован:
01 ноя 2011, 14:52
Сообщений: 22
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
VSI писал(а):
Darisha писал(а):
я реализую ее в делфи..и считает неверно у меня любые ряды чисел..

В Delphi операторы ввода-вывода совершенно другие... Или Вы пытаетесь запустить программу как консольное приложение? Тогда программа должна иметь вид:
progpam p1;
{$APPTYPE CONSOLE}
uses sysutils;

var n,i,k:integer;
a,b,c:real;
begin
write('Введите количество чисел');
readln(n);
write('Введите первое число');
readln(a);
write('Введите второе число ');
readln(b);
for i:=3 to n do
begin
write('Введите следующее число');
readln(c);
if (b>a) and (b>c) then k:=k+1;
a:=b;
b:=c;
end;
writeln('Количество чисел, больших соседей=',k);
readln;
end.


да, я именно так и реализую в консольном приложении
он выдает нереальные числа.. например беру ряд 1,2,4,2,6,7,3,4,5,1
он считает мне в итоге что 65601539 чисел больше своих соседей. ну не верно..как так..

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 06 май 2012, 17:48 
Не в сети
Профи
Зарегистрирован:
30 сен 2011, 20:32
Сообщений: 381
Cпасибо сказано: 66
Спасибо получено:
203 раз в 172 сообщениях
Очков репутации: 142

Добавить очки репутацииУменьшить очки репутации
Darisha
Очень странно!!! :shock:
Я запускаю Вашу программу... Ввожу Ваши данные - 1,2,4,2,6,7,3,4,5,1. Диалог с программой:
Введите количество чисел10
Введите первое число1
Введите второе число 2
Введите следующее число4
Введите следующее число2
Введите следующее число6
Введите следующее число7
Введите следующее число3
Введите следующее число4
Введите следующее число5
Введите следующее число1
Количество чисел, больших соседей=3
ОТВЕТ совершенно правильный!!! :good: 3 числа. 1,2,4,2,6,7,3,4,5,1 Я их выделил.
Вы явно что-то делаете НЕ ТАК!!! :(

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 13 май 2012, 07:06 
Не в сети
Начинающий
Зарегистрирован:
01 ноя 2011, 14:52
Сообщений: 22
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
VSI писал(а):
Darisha
Очень странно!!! :shock:
Я запускаю Вашу программу... Ввожу Ваши данные - 1,2,4,2,6,7,3,4,5,1. Диалог с программой:
Введите количество чисел10
Введите первое число1
Введите второе число 2
Введите следующее число4
Введите следующее число2
Введите следующее число6
Введите следующее число7
Введите следующее число3
Введите следующее число4
Введите следующее число5
Введите следующее число1
Количество чисел, больших соседей=3
ОТВЕТ совершенно правильный!!! :good: 3 числа. 1,2,4,2,6,7,3,4,5,1 Я их выделил.
Вы явно что-то делаете НЕ ТАК!!! :(



все! теперь считает, спасибо большое!
но теперь мой преподаватель хочет, чтобы я сделала так, чтобы при работе программы когда в ряду чисел(когда я их ввожу) появляется такое число, которое больше своих соседей, выскакивало сообщение(строчка), что это число больше своих соседей.
я все передумала, но как это сделать, не понимаю. может Вы знаете? буду признательна, заранее спасибо.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: задача цикл с параметром
СообщениеДобавлено: 13 май 2012, 11:41 
Не в сети
Профи
Зарегистрирован:
30 сен 2011, 20:32
Сообщений: 381
Cпасибо сказано: 66
Спасибо получено:
203 раз в 172 сообщениях
Очков репутации: 142

Добавить очки репутацииУменьшить очки репутации
Darisha
Вот что получается. Надеюсь, что все прозрачно и понятно... Если нет, спрашивайте.
progpam p1;
{$APPTYPE CONSOLE}
uses sysutils;
var n,i,k:integer;
a,b,c:real;
begin
write('Введите количество чисел = ');
readln(n);
write('Введите первое число = ');
readln(a);
write('Введите второе число = ');
readln(b);
for i:=3 to n do
begin
write('Введите следующее число = ');
readln(c);
if (b>a) and (b>c) then
begin
k:=k+1;
writeln(' Очередное число, большее своих соседей = ',b:4:1)
end;
a:=b;
b:=c;
end;
writeln('Количество чисел, которые больше соседних = ',k);
writeln('Конец программы. Для выхода нажмите ENTER...');
readln;
end.
Диалог с программой:
Введите количество чисел = 10
Введите первое число = 4
Введите второе число = 5
Введите следующее число = 7
Введите следующее число = 6
Очередное число, большее своих соседей = 7.0
Введите следующее число = 8
Введите следующее число = 4
Очередное число, большее своих соседей = 8.0
Введите следующее число = 6
Введите следующее число = 3
Очередное число, большее своих соседей = 6.0
Введите следующее число = 2
Введите следующее число = 4
Количество чисел, которые больше соседних = 3
Конец программы. Для выхода нажмите ENTER...

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему    На страницу 1, 2  След.  Страница 1 из 2 [ Сообщений: 13 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Определить количество пятизначных чисел, состоящих из разных

в форуме Дискретная математика, Теория множеств и Логика

Miracle

6

682

27 дек 2017, 16:16

Закон Больших Чисел

в форуме Теория вероятностей

nope

0

357

14 апр 2019, 15:35

ЦПТ, закон больших чисел.

в форуме Математическая статистика и Эконометрика

Alina9999

0

296

10 апр 2021, 13:14

ЦПТ, закон больших чисел.

в форуме Математическая статистика и Эконометрика

Alina9999

0

157

04 апр 2021, 16:49

ЦПТ, закон больших чисел.

в форуме Математическая статистика и Эконометрика

Alina9999

0

105

04 апр 2021, 12:07

Закон больших чисел

в форуме Теория вероятностей

Bonaqua

2

416

08 ноя 2016, 01:17

Закон больших чисел

в форуме Теория вероятностей

constantin01

3

295

08 дек 2020, 22:52

Факторизация больших чисел

в форуме Размышления по поводу и без

s_e_r_g

3

399

16 май 2016, 18:51

Факторизация больших целых чисел

в форуме Теория чисел

Romikgy

12

1131

23 сен 2014, 21:05

Законы больших чисел. Неравенство Чебышева

в форуме Теория вероятностей

svetlana01

0

223

11 дек 2017, 22:12


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8


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

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved