Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 2 |
[ Сообщений: 13 ] | На страницу 1, 2 След. |
|
Автор | Сообщение | ||
---|---|---|---|
Darisha |
|
||
составила программу используя оператор цикла с параметром но программа почему-то не правильно работает. числа неверные выдает помогите пожалуйста, кто может, найти ошибку 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. |
|||
Вернуться к началу | |||
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. |
||
Вернуться к началу | ||
Darisha |
|
|
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. Я знаю, а мне нужно именно используя цикл с параметром, а не массив. |
||
Вернуться к началу | ||
VSI |
|
|
Darisha
Ваша программа считает правильно... Если Вы со мной не согласны, приведите ряд чисел, которые по Вашему мнению программа обрабатывает с ошибкой. |
||
Вернуться к началу | ||
Darisha |
|
|
VSI писал(а): Darisha Ваша программа считает правильно... Если Вы со мной не согласны, приведите ряд чисел, которые по Вашему мнению программа обрабатывает с ошибкой. я реализую ее в делфи..и считает неверно у меня любые ряды чисел.. |
||
Вернуться к началу | ||
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. |
||
Вернуться к началу | ||
Darisha |
|
|
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 чисел больше своих соседей. ну не верно..как так.. |
||
Вернуться к началу | ||
VSI |
|
|
Darisha
Очень странно!!! Я запускаю Вашу программу... Ввожу Ваши данные - 1,2,4,2,6,7,3,4,5,1. Диалог с программой: Введите количество чисел10 Введите первое число1 Введите второе число 2 Введите следующее число4 Введите следующее число2 Введите следующее число6 Введите следующее число7 Введите следующее число3 Введите следующее число4 Введите следующее число5 Введите следующее число1 Количество чисел, больших соседей=3 ОТВЕТ совершенно правильный!!! 3 числа. 1,2,4,2,6,7,3,4,5,1 Я их выделил. Вы явно что-то делаете НЕ ТАК!!! |
||
Вернуться к началу | ||
Darisha |
|
|
VSI писал(а): Darisha Очень странно!!! Я запускаю Вашу программу... Ввожу Ваши данные - 1,2,4,2,6,7,3,4,5,1. Диалог с программой: Введите количество чисел10 Введите первое число1 Введите второе число 2 Введите следующее число4 Введите следующее число2 Введите следующее число6 Введите следующее число7 Введите следующее число3 Введите следующее число4 Введите следующее число5 Введите следующее число1 Количество чисел, больших соседей=3 ОТВЕТ совершенно правильный!!! 3 числа. 1,2,4,2,6,7,3,4,5,1 Я их выделил. Вы явно что-то делаете НЕ ТАК!!! все! теперь считает, спасибо большое! но теперь мой преподаватель хочет, чтобы я сделала так, чтобы при работе программы когда в ряду чисел(когда я их ввожу) появляется такое число, которое больше своих соседей, выскакивало сообщение(строчка), что это число больше своих соседей. я все передумала, но как это сделать, не понимаю. может Вы знаете? буду признательна, заранее спасибо. |
||
Вернуться к началу | ||
VSI |
|
|
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... |
||
Вернуться к началу | ||
На страницу 1, 2 След. | [ Сообщений: 13 ] |
Похожие темы | Автор | Ответы | Просмотры | Последнее сообщение |
---|---|---|---|---|
Определить количество пятизначных чисел, состоящих из разных | 6 |
682 |
27 дек 2017, 16:16 |
|
Закон Больших Чисел
в форуме Теория вероятностей |
0 |
357 |
14 апр 2019, 15:35 |
|
ЦПТ, закон больших чисел. | 0 |
296 |
10 апр 2021, 13:14 |
|
ЦПТ, закон больших чисел. | 0 |
157 |
04 апр 2021, 16:49 |
|
ЦПТ, закон больших чисел. | 0 |
105 |
04 апр 2021, 12:07 |
|
Закон больших чисел
в форуме Теория вероятностей |
2 |
416 |
08 ноя 2016, 01:17 |
|
Закон больших чисел
в форуме Теория вероятностей |
3 |
295 |
08 дек 2020, 22:52 |
|
Факторизация больших чисел
в форуме Размышления по поводу и без |
3 |
399 |
16 май 2016, 18:51 |
|
Факторизация больших целых чисел
в форуме Теория чисел |
12 |
1131 |
23 сен 2014, 21:05 |
|
Законы больших чисел. Неравенство Чебышева
в форуме Теория вероятностей |
0 |
223 |
11 дек 2017, 22:12 |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |