IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Прерывание цикла
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Мне нужно чтобы цикл прерывался тогда, когда ответ меньше 0 и выводил первое число которое привело к этому вот программа :
Код
program _141_3;
uses crt;
var
x,z,a:integer;
y:real;
begin
clrscr;
z:=0;
write('col chisel I= ');
read(x);
for a:=1 to x do
z:=z+1;
y:=sin(z/100);
if y<0 then
writeln('first otr chisl pri I=',z)
else
writeln('malo chisel =)');
end.


Сообщение отредактировано: Raznorg -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 113
Пол: Мужской
Реальное имя: Надир

Репутация: -  6  +


Напишите пожалуйста полное задание что нужно сделать.


--------------------
From ZERO to HERO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


напишите программу, которая находит первое отрицательное число последовательности y:=sin(z/100) где z=1,2,3,4...

Сообщение отредактировано: Raznorg -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 652
Пол: Мужской
Реальное имя: Алексей

Репутация: -  20  +


Цитата
напишите программу, которая находит первое отрицательное число последовательности y:=sin(z/100) где у=1,2,3,4...

Может быть не y,а z??
И почему ты вместо цикла for не возмеш цикл repeat until, например, и как раз сразу, как только выполнитсья условие, он из цикла выйдет.
А вообще можно использовать оператор прерывания цикла break.

Сообщение отредактировано: Krjuger -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


> for a:=1 to x do
z:=z+1;

Не понимаю смысл этого действия.
Ааа, автор забыл поставить операторные скобки.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Хм... я попробовал с repeat until получается так:
Код
program _141_3;
uses crt;
var
z:integer;
y:real;
begin
clrscr;
z:=0;
repeat
z:=z+1;
y:=sin(z/100);
until y<0;
writeln('first otr chisl pri I=',z);
end.

Ответ 315 ? как по мне не сходится...

Сообщение отредактировано: Raznorg -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Что не сходится?
sin(314/100) больше нуля, sin(315/100) меньше.
Что не так?
Синус пи чему равен? А число пи чему примерно равно?


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


ммм... странно на калькуляторе выходит 0,0547759...
я чего-то не понимаю ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата
я чего-то не понимаю ?
Вероятно, того, что Паскаль считает тригонометрические функции для радиан, а не для градусов?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Цитата
Вероятно, того, что Паскаль считает тригонометрические функции для радиан, а не для градусов

Все правильно.
Спасибо.
Тема закрыта.


Сообщение отредактировано: Raznorg -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2020 21:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name