0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 29
1

Написать и отладить программу для табуляции функции

27.05.2014, 10:43. Показов 1213. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать и отладить программу для табуляции следующий функции:
Помогите пожалуйста. Не могу понять что не правильно.
https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sqrt{t+1}{e}^{2 ty}cos(t-a) при 1<=t<=2 с шагом 0.2,
a = -2.1, при 2<= y<=3 с шагом 0.3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program a4_1;
const
  a=-2.1;
var
  t,y,s,e:real;
begin
  writeln('------------------------');
  writeln('   y  |     t|        s|');
  writeln('------------------------');
  y:=2;
  while y<=3.1 do
    begin
      writeln(y:5:2);
      t:=2;
      while t<=3 do
        begin
          s:=Sqrt(a+1)*Exp(2*t*y*Ln(e))*cos(t-a);
          writeln(t:12:2,'|',s:10:2);
          t:=t+0.2;
        end;
      writeln('------------------------');
      y:=y+0.3
    end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2014, 10:43
Ответы с готовыми решениями:

Написать и отладить программу для табулирования функции
Значений функций y=2sin(3x-0,8) для х в интервале с шагом 0,25

Написать и отладить программу для табулирования функции
Выручайте. Очень нужно сделать а я в этот абсолютно не понимаю. Заранее очень благодарен 1....

Написать и отладить программу для табулирования функции
1)написать и отладить программу для табулирования функции y=ln (2x2 +3x-5) для xв интервале с...

Написать и отладить программу для табулирования функции
Помогите решить!!!! &quot;Написать и отладить программу для табулирования функции&quot; - значений функции...

5
Модератор
9919 / 5275 / 3321
Регистрация: 17.08.2012
Сообщений: 16,135
27.05.2014, 14:17 2
Вот, подправил и приукрасил. Теперь "y" печатается в одной строке с "t" и "s". Строки, где были досадные недоразумения, помечены комментарием //, ставить ли перед "end." "readln" - зависит от версии паскаля. Если без "readln" удаётся насладиться результатом, то "readln" можно убрать. Хотя, лучше оставить. Для совместимости. Полагаю, в чём плюхи, поймёте при сравнении задания, Вашего кода и подрихтованного мной Вашего кода.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const a = -2.1;
var t, y, s, e: real;
begin
  writeln('+---+---+----------+');
  writeln('| y | t |       s  |');
  writeln('+---+---+----------+');
  y:=2;
  while y <= 3.1 do
    begin
      t := 1; //
      while t <= 2.1 do //
        begin
          s := Sqrt(t + 1) * Exp(2 * t * y) * cos(t - a); //
          if t = 1
            then write('|', y:3:1, '|')
            else write('|   |');
          writeln(t:3:1, '|', s:10:2, '|');
          t := t + 0.2;
        end;
      writeln('+---+---+----------+');
      y := y + 0.3
    end;
  readln //?
end.
1
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 29
28.05.2014, 07:31  [ТС] 3
Можно попросить модифицировать программу с использованием оператора цикла REPEAT ... UNTIL.
0
Модератор
9919 / 5275 / 3321
Регистрация: 17.08.2012
Сообщений: 16,135
28.05.2014, 15:30 4
Мне странно это... Вы не сами писали программу? Здесь просто тупая замена. Замените конструкцию
Pascal
1
2
3
4
5
6
7
8
9
  while y <= 3.1 do
    begin
      //...
      while t <= 2.1 do
        begin
          //...
        end;
      //...
    end;
на
Pascal
1
2
3
4
5
6
7
    repeat
      //...
      repeat
        //...
      until t > 2.1;
      //...
    until y > 3.1;
Добавлено через 1 минуту
Ну и, отступы для красоты подправьте, что ли...
1
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 29
29.05.2014, 06:51  [ТС] 5
Программировать почти не умею. На шел в интернете похожий код. Спасибо за помощь.
0
Cyborg Drone
29.05.2014, 08:05     Написать и отладить программу для табуляции функции
  #6

Не по теме:

Ничего страшного, лиха беда начало...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2014, 08:05

Написать и отладить программу для табулирования функции
- перевода температуры из шкалы Цельсия (С) в шкалу Фаренгейта для температур от -5oС до 30oС с...

Написать и отладить программу для табулирования функции
24. Для заданного n вычислите F=n! (123…n) Спасибо!!!!

Написать и отладить программу для табулирования функции
- перевода температуры из шкалы Цельсия (С) в шкалу Фаренгейта для температур от -5С до 30С с...

Операторы цикла: Написать и отладить программу для табулирования функции
Помогите с программой пожалуйста! Написать и отладить программу для табулирования функции -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru