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

Табулирование функции (Исправить программу)

02.04.2013, 22:45. Показов 620. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте.не подскажите,пожалуйста,как это исправить?
1)(тут с шагом проблемы,если и задаю,он не меняется).Написать и отладить программу для табулирования функции- перевода температуры из шкалы Цельсия (С) в шкалу Фаренгейта для температур от -5oС до 30oС с шагом 2oС (1oF=1,8oC+32) .
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
25
26
27
28
29
30
31
32
Program lab4;
Uses Crt;
Var
c: integer;
f: real;
Begin
writeln;
writeln(' Цельсий = Фаренгейт ');
writeln;
for c:=-5 to 30 do
begin
f:=c*1.8+32;
writeln('|',c:5,'=':5,f:7:1,'|':5);
end;
writeln;
End.
2)(тут у меня вычисляет с ошибками) Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислите сумму отрицательных элементов последовательности, кратных 5.
Program lab4;
Uses Crt;
Var
i,a,Summa:Integer;
Begin
i:=0;
Summa:=0;
Repeat
Write('a= ');
Readln(a);
If (a<0) and ((i/5)=1) then Inc(Summa,a);
Until a=0;
Writeln('Сумма = ',Summa);
Readln;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2013, 22:45
Ответы с готовыми решениями:

Табулирование функции, используя различные циклы (исправить программу)
Трижды протабулировать функцию, используя три различных цикла f(x)=sin^2(ctg(x+a)) на интервале x...

Исправить ошибку (Табулирование функции)
procedure TForm1.Button1Click(Sender: TObject); var a,b,h,x,f: Extended; p1,p2,p3:integer; begin...

Табулирование функции - исправить ошибки
Всем привет помогите пожалуйста исправить ошибки в коде #include &lt;stdio.h&gt; //Подключение...

Табулирование сложной функции (исправить)
Подскажите с чего начать написание программы на табулирования сложной функции по формуле не могу...

2
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
03.04.2013, 13:03 2
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var c: integer;
    f: real;
Begin
writeln(' Цельсий = Фаренгейт ');
c:=-5;
while c<=30 do
 begin
  f:=c*1.8+32;
  writeln('|',c:5,'=':5,f:7:1,'|':5);
  c:=c+2
 end;
writeln;
End.
Правда для 30 не получите, поскольку четные значения пропускаем

Добавлено через 7 минут
2. Кто задание писал
последовательность натуральных чисел,
.........................
Вычислите сумму отрицательных элементов последовательности
Разве натуральные бывают отрицательными?
Написал для целых вообще
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var a,Summa:Integer;
Begin
writeln('Введите целые положительные и отрицательные числа, окончание ввода 0');
Summa:=0;
Repeat
Write('a= ');
Read(a);
If (a<0) and (a mod 5=0) then Inc(Summa,a);
Until a=0;
Writeln('Сумма = ',Summa);
End.
1
0 / 0 / 0
Регистрация: 02.04.2013
Сообщений: 4
07.04.2013, 20:12  [ТС] 3
спасибо Вам большое)преподша наша по информатике в вузе составляла эти грамотные задания
0
07.04.2013, 20:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2013, 20:12
Помогаю со студенческими работами здесь

Табулирование функции (исправить код программы)
Необходимо вычислить значение заданной функции. Осуществить вывод значений аргумента и результатов...

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

Как исправить программу (сглаживание функции)
Доброго времени суток) В этой программе я хотел реализовать сглаживание функции и вывести его на...

Исправить программу по поиску значения мин и мах функции
Условие: Значение функции f(x)=4x3-3x2+2x-1 определены в точках x=X0(hx)Xn. ( Х0 - начальное, hx -...


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

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

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