MrSTEP

Гульназ, не нужно таким образом говорить об успехах и неудачах, просто оставьте сообщение в теме.

Гульназ.М.

Всё,, получилось.. тысячу раз пересмотрела и нашла пропущенное какое то слово. Длинная программка однако.. Но спасибо все равно, надеюсь примут и не придерутся

Ну хорошо, я же не знала. Исправлюсь...

Vladimir_S

А Вы что же, перенабиваете? Зачем?Ну так, вообще... Мои программы (на том же Паскале) для работы занимают несколько сотен страниц. Это просто между делом, насчет "длинная"...

Гульназ.М.

Нет нет.
Ну Вы - то спец.
А я будущий техник-программист всего лишь, наверное..

MrSTEP

Ну ничего, с этого все и начинается. Все начинали писать с одной-двух-трех строчек.

Гульназ.М.

нет а нельзя как нибудь попроще написать, для основ.
без таких слов премудростей, как:
Repeat
('Lower limit = ');
Readln(LL);
If LL<16 then writeln('Error: lower limit must be >=16!');
Until LL>=16;
Repeat
Write('Upper limit = ');
Readln(UL);
If UL<=LL then writeln('Error: incorrect value!');
Until UL>LL;
Repeat
Write('Step= ');

('Error: incorrect value!');
Until (H>0) and (H<=(UL-LL));
N:=Round((UL-LL)/H);
For i:=0 to N do
x:=LL+H*i;


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

Гульназ.М.

очень прошу ВАС!... Вам же это проще всего, и кстати больше я вас не побеспокою по пустякам

Vladimir_S

Можно. Но часа через 2-3. Сейчас я должен уйти из Сети.
Но только вот что - то вы требуете, чтобы была проверка, то убрать ее. А не боитесь, что препод введет заведомо недопустимое значение аргумента, после чего, указав Вам на ошибку, откажется зачесть работу? Впрочем, как знаете...

Гульназ.М.

нет проверка нужна, ну чтобы не сбивалась программа из за каких то цифр..

Vladimir_S

Ну тогда я, извините - пас! То, что Вы хотите выбросить - это она и есть.
Предлагаю такой выход: давайте внимательно, шаг за шагом, разберемся, как она работает.
Итак, берем фрагмент:
Из вида функции следует, что минимальное значение аргумента есть 16. Если ввести меньшее число, то под корнем образуется отрицательное значение, что недопустимо. Поэтому при вводе нижнего предела (LL) программа проверяет, не меньше ли он 16, и если меньше, то выдается сообщение об ошибке и ввод повторяется. И так продолжается до тех пор, пока не будет введено число, большее или равное 16, т.е. пока условие LL>=16 не станет истинным.
Аналогично проверяется выполнение условия, чтобы верхний предел (UL) был больше нижнего и чтобы шаг (H) был во-первых, положительным, а во-вторых, чтобы он был меньше разности верхнего и нижнего пределов.
Вот, собственно, и всё.
Может быть, Вас английский язык смущает? Так это потому, что я пользуюсь DOS-Паскалем, а там кодировка русских букв отличается от кодировки Windows, и потому я всячески избегаю кириллицы. Но Вы, конечно, можете заменить английские сообщения русскими: "Нижний предел", "Верхний предел", "Шаг", также написать свои сообщения об ошибках, например, вместо 'Error: incorrect value!' записать 'Ошибка: недопустимое значение!' ну и т.п.