Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 28.12.2014
Сообщений: 56
1

Исправьте небольшую ошибку

06.01.2015, 06:39. Просмотров 894. Ответов 6
Метки нет (Все метки)

Delphi
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 Project24444;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f,x,a:real;// переменные
begin
a:=4;
x:=0; // оператор присваивания
while x<=2 do  //  пока  x<=2 выполняется составной оператор
begin
if x<1 then f:=2*a*x+4 // по заданному условию  x<1 если оно верно вычисляем значение функции  f:=2*a*x+4 и т.д.
else if x=1 then f:=2*a*x-x*x 
else f:=sin(cos(a*x)) 
 begin
writeln('|',x:5:2,'|',f(x,a):8:4,'|');// вывод значения на экран
x:=x+0.25;//  наращивание x на 0.25
end;
writeln('----------------------------------');
readln
end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2015, 06:39
Ответы с готовыми решениями:

исправьте ошибку
program Project5; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; ...

исправьте ошибку
Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Найти...

Исправьте ошибку
Здравствуйте есть код procedure TForm1.Chromium1BeforePopup(Sender: TObject; const...

исправьте ошибку в рекурссии
function rec(n,a:real):real; var f:real; implementation {$R *.dfm} function...

6
Модератор
60141 / 45294 / 31257
Регистрация: 18.05.2008
Сообщений: 108,774
06.01.2015, 07:08 2
Лучший ответ Сообщение было отмечено MoT как решение

Решение

Delphi
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
program Project24444;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f,x,a:real;// переменные
begin
a:=4;
x:=0; // оператор присваивания
writeln('-----------------');
writeln('|  x  |   f(x)  |');
writeln('-----------------');
while x<=2 do  //  пока  x<=2 выполняется составной оператор
 begin
  if x<1 then f:=2*a*x+4 // по заданному условию  x<1 если оно верно вычисляем значение функции  f:=2*a*x+4 и т.д.
  else if x=1 then f:=2*a*x-x*x
  else f:=sin(cos(a*x));
  writeln('|',x:5:2,'|',f:8:4,' |');// вывод значения на экран
  x:=x+0.25;//  наращивание x на 0.25
 end;
writeln('-----------------');
readln
end.
1
2 / 2 / 0
Регистрация: 28.12.2014
Сообщений: 56
06.01.2015, 09:16  [ТС] 3
Delphi
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program Project2nnn;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f,x,a1, a2, a3:real;
begin
writeln('-------------------------------------');
writeln('|  x  |   f(a1)  |  f(a2)  | f(a3)  |');
writeln('-------------------------------------');
a1:=4;
x:=0; 
 
while x<=2 do  
 begin
  if x<1 then f:=2*a1*x+4
  else if x=1 then f:=2*a1*x-x*x
  else f:=sin(cos(a1*x));
  writeln('|',x:5:2,'|',f:8:4,' |');
  x:=x+0.25;
 end;
 
 begin
a2:=-3;
x:=0; 
writeln('-----------------');
writeln('|  x  |   f(x)  |');
writeln('-----------------');
while x<=2 do  
 begin
  if x<1 then f:=2*a2*x+4 
  else if x=1 then f:=2*a2*x-x*x
  else f:=sin(cos(a2*x));
  writeln('|',x:5:2,'|',f:8:4,' |');
  x:=x+0.25;
 end;
writeln('-----------------');
readln
end;
 
begin
a3:=5;
x:=0; 
writeln('-----------------');
writeln('|  x  |   f(x)  |');
writeln('-----------------');
while x<=2 do 
 begin
  if x<1 then f:=2*a3*x+4 
  else if x=1 then f:=2*a3*x-x*x
  else f:=sin(cos(a3*x));
  writeln('|',x:5:2,'|',f:8:4,' |');
  x:=x+0.25;
 end;
writeln('-----------------');
readln
end;
end.
ВЫВОД РЕШЕНИЯ, ЗАПИСАТЬ ВЫВОД В 3 СТОЛБИКА РЯДОМ....)))))?
0
Модератор
60141 / 45294 / 31257
Регистрация: 18.05.2008
Сообщений: 108,774
06.01.2015, 09:24 4
Delphi
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
 program Project2nnn;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function f(x,a:real):real;
begin
if x<1 then f:=2*a*x+4
else if x=1 then f:=2*a*x-x*x
else f:=sin(cos(a*x));
end;
var x:real;
begin
writeln('-------------------------------------');
writeln('|  x  |   f(a1)  |  f(a2)  | f(a3)  |');
writeln('-------------------------------------');
x:=0;
while x<=2 do
 begin
  writeln('|',x:5:2,'|',f(x,4):8:4,' |',f(x,-3):8:4,' |',f(x,5):8:4,' |');
  x:=x+0.25;
 end;
writeln('-------------------------------------');
readln
end.
1
2 / 2 / 0
Регистрация: 28.12.2014
Сообщений: 56
06.01.2015, 09:34  [ТС] 5
Вот вот загвоздка в том что я не использую не const не function.
Нужно через простые переменные (real).
0
Модератор
60141 / 45294 / 31257
Регистрация: 18.05.2008
Сообщений: 108,774
06.01.2015, 09:43 6
Цитата Сообщение от MoT Посмотреть сообщение
я не использую
Так нужно использовать.

Добавлено через 7 минут
По тупому
Delphi
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
33
34
35
36
37
38
39
40
41
 program Project2nnn;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x,a1,a2,a3,f1,f2,f3:real;
begin
a1:=4;
a2:=-3;
a3:=5;
writeln('-------------------------------------');
writeln('|  x  |   f(a1)  |  f(a2)  | f(a3)  |');
writeln('-------------------------------------');
x:=0;
while x<=2 do
 begin
  if x<1 then
   begin
    f1:=2*a1*x+4;
    f2:=2*a2*x+4;
    f3:=2*a3*x+4;
   end
  else if x=1 then
   begin
    f1:=2*a1*x-x*x;
    f2:=2*a2*x-x*x;
    f3:=2*a3*x-x*x;
   end
  else
   begin
    f1:=sin(cos(a1*x));
    f2:=sin(cos(a2*x));
    f3:=sin(cos(a3*x));
   end;
  writeln('|',x:5:2,'|',f1:8:4,' |',f2:8:4,' |',f3:8:4,' |');
  x:=x+0.25;
 end;
writeln('-------------------------------------');
readln
end.
1
2 / 2 / 0
Регистрация: 28.12.2014
Сообщений: 56
06.01.2015, 10:00  [ТС] 7
ВО ВО
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2015, 10:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Исправьте ошибку в программе!
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

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

Исправьте ошибку, пожалуйста
исправьте ошибку пожалуйста братаны

Исправьте ошибку в программе
С помощью логической переменной проверьте, что (a+b) кратно 7. Исправьте код procedure...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.