Нужно написать программу с табулированием функции на отрезке AB с шагом H

Гульназ.М. · 3 Фев 2012

Нужно написать программу с табулированием функции на отрезке AB с шагом H

:tehnari_ru_837: если знаете не проходите мимо пожалуйстаа, а я вам очень очень благодрна буду)
Вот задание которое мне срочно нуно сделать: Написать программу с Табулированием функции на отрезке AB с шагом H.

Vladimir_S · 3 Фев 2012

Так которая из двух функций нужна? Или обе?

Гульназ.М. · 3 Фев 2012

Так то обе..нужны

Vladimir_S · 4 Фев 2012

Гульназ.М. написал(а):
Так то обе..нужны

Да пожалуйста - без проблем:

Код:

VAR
 a,c,x,UL,LL,H:Real;
 N,i:Byte;

Function Y(z:real):Real;
begin
 Y:=Sqrt(z-a)+1/(z+c);
end;

BEGIN
 Write('a= ');
 Readln(a);
 Write('c= ');
 Readln(c);
 Repeat
  Write('Lower limit = ');
  Readln(LL);
  If LL<a then writeln('Error: incorrect value!');
 Until LL>=a;
 Repeat
  Write('Upper limit = ');
  Readln(UL);
  If UL<=LL then writeln('Error: incorrect value!');
 Until UL>LL;
 Repeat
  Write('Step= ');
  Readln(H);
  If (H<=0) or (H>(UL-LL)) then writeln('Error: incorrect value!');
 Until (H>0) and (H<=(UL-LL));
 N:=Round((UL-LL)/H);
 For i:=0 to N do
  begin
   x:=LL+H*i;
   Writeln(x:6:3,Y(x):15:5);
  end;
 Readln
END.

Код:

VAR
 x,UL,LL,H:Real;
 N,i:Byte;

Function Y(z:real):Real;
begin
 Y:=Sqrt(z*Sqrt(z)-z*4);
end;

BEGIN
 Repeat
  Write('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= ');
  Readln(H);
  If (H<=0) or (H>(UL-LL)) then writeln('Error: incorrect value!');
 Until (H>0) and (H<=(UL-LL));
 N:=Round((UL-LL)/H);
 For i:=0 to N do
  begin
   x:=LL+H*i;
   Writeln(x:6:3,Y(x):15:5);
  end;
 Readln
END.

Гульназ.М. · 4 Фев 2012

Спасибо огромное!

Гульназ.М. · 4 Фев 2012

В первой программе в конце, где END. выводится ошибка двоеточия, все проверила никаких ошибок,но выводится

Гульназ.М. · 4 Фев 2012

А вторая работает на славу

Vladimir_S · 4 Фев 2012

Гульназ.М. написал(а):
В первой программе в конце, где END. выводится ошибка двоеточия, все проверила никаких ошибок,но выводится

Ну... у меня обе "работают на славу", иначе бы не выложил. А что такое "ошибка двоеточия"? Нельзя ли подробнее?

Гульназ.М. · 4 Фев 2012

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

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

Vladimir_S · 4 Фев 2012

Гульназ.М. написал(а):
В последней строке где END. записано,выдает ошибку, что не хватает знака двоеточия.

Нет, не понимаю. Сейчас скопипастил прямо с экрана, как есть, запустил - никаких ошибок трансляции. Дайте скриншот - попробуем разобраться.

MrSTEP · 4 Фев 2012

Пользователь Гульназ.М. () пожаловался на это сообщение:

http://www.tehnari.ru/f43/t63517-post668014/#post668014

Это сообщение является частью темы:
http://www.tehnari.ru/f43/t63517/

Причина, указанная отправителем:
Всё всё получилось.

Это сообщение послано всем модераторам раздела, а если отсутствуют модераторы - всем администраторам.

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

Гульназ.М. · 4 Фев 2012

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

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

Vladimir_S · 4 Фев 2012

Гульназ.М. написал(а):
Всё,, получилось.. тысячу раз пересмотрела и нашла пропущенное какое то слово.

А Вы что же, перенабиваете? Зачем?

Гульназ.М. написал(а):
Длинная программка однако..

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

Гульназ.М. · 4 Фев 2012

Vladimir_S написал(а):
А Вы что же, перенабиваете? Зачем?

Нет нет.

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

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

MrSTEP · 4 Фев 2012

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

Гульназ.М. · 9 Фев 2012

нет а нельзя как нибудь попроще написать, для основ.
без таких слов премудростей, как:
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;

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

Гульназ.М. · 9 Фев 2012

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

Vladimir_S · 9 Фев 2012

Гульназ.М. написал(а):
нет а нельзя как нибудь попроще написать, для основ.

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

Гульназ.М. · 9 Фев 2012

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

Vladimir_S · 9 Фев 2012

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

Ну тогда я, извините - пас! То, что Вы хотите выбросить - это она и есть.
Предлагаю такой выход: давайте внимательно, шаг за шагом, разберемся, как она работает.
Итак, берем фрагмент:

Код:

Repeat
 Write('Lower limit = ');
 Readln(LL);
 If LL<16 then writeln('Error: lower limit must be >=16!');
Until LL>=16;

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

Нужно написать программу с табулированием функции на отрезке AB с шагом H

Новые

Вложения

Ученик

Новые

Ученик

Новые

Новые

Новые

Ученик

Новые

Ученик

&#19968;&#27493;&#19968;&#27493;&#22320;&#20250;&#

Новые

Ученик

Новые

&#19968;&#27493;&#19968;&#27493;&#22320;&#20250;&#

Новые

Новые

Ученик

Новые

Ученик

一步一步地会&#

一步一步地会&#