Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 03.02.2012, 16:43   #1 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужно написать программу с табулированием функции на отрезке AB с шагом H

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

Старый 03.02.2012, 16:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую вам пролистать данные темы, в них наверняка много полезного

Нужно написать на паскале
Нужно написать программу расчета вознаграждения
Нужно написать программу в Pascal

Старый 03.02.2012, 16:55   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Так которая из двух функций нужна? Или обе?
Vladimir_S вне форума   Ответить с цитированием
Старый 03.02.2012, 17:40   #3 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Так то обе..нужны
Гульназ.М. вне форума   Ответить с цитированием
Старый 04.02.2012, 11:49   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Гульназ.М. Посмотреть сообщение
Так то обе..нужны
Да пожалуйста - без проблем:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 04.02.2012, 12:33   #5 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо огромное!
Гульназ.М. вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 04.02.2012, 14:25   #6 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

В первой программе в конце, где END. выводится ошибка двоеточия, все проверила никаких ошибок,но выводится
Гульназ.М. вне форума   Ответить с цитированием
Старый 04.02.2012, 14:43   #7 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

А вторая работает на славу
Гульназ.М. вне форума   Ответить с цитированием
Старый 04.02.2012, 16:20   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Гульназ.М. Посмотреть сообщение
В первой программе в конце, где END. выводится ошибка двоеточия, все проверила никаких ошибок,но выводится
Ну... у меня обе "работают на славу", иначе бы не выложил. А что такое "ошибка двоеточия"? Нельзя ли подробнее?
Vladimir_S вне форума   Ответить с цитированием
Старый 04.02.2012, 16:50   #9 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

В последней строке где END. записано,выдает ошибку, что не хватает знака двоеточия.
Гульназ.М. вне форума   Ответить с цитированием
Старый 04.02.2012, 17:22   #10 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Гульназ.М. Посмотреть сообщение
В последней строке где END. записано,выдает ошибку, что не хватает знака двоеточия.
Нет, не понимаю. Сейчас скопипастил прямо с экрана, как есть, запустил - никаких ошибок трансляции. Дайте скриншот - попробуем разобраться.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:44.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.