Нарисовать график с этого кода borland c++ #include
#include
#include
#include
struct data {
double u;
double f;
double c;
double k;
double h;
double m;
double pi;
double d;
}x[3];
double F(struct data *d, float t) {
if(t>=0 && t<=2.5) {
double Fu = d->f*(1+h*t);
return d->f*(1+h*t);
}
else if(t>=2.5 && t<=7.5) {
return d->f*(1+h*2.5);
}
else {
return d->f(1+h*2.5);
}
}
double K(struct data *f, float t) {
if(t>=0 && t<=5) {
return f->k*(1+m*t);
}
else {
return f->k*(1+m*5);
}
}
double U(struct data *f, float t) {
if(t>=0 && t<=2.5) {
return f->u*(1-pow(f->e,-1*f->K(f,t)*t));
}
else if(t>=2.5 && t<=5) {
return f->u*(1-(f->e,-1*f->K(f,t)*2.5));
}
else {
return f->u*(1-pow(f->e,-1*a->K(f,t)*t))*pow(f->e,-1*f->K(f,t)*(t-5));
}
}
double P(struct *f, float t) {
return f->pow(f->U(f,t),1*f->2)*2*pi*F(f,t)*c*tg(b);
}
int main() {
float t;
int i;
FILE *p, *s;
p=fopen("data.txt", "r");
s=fopen("result.txt", "w");
for(i=0; i<3; i++) {
for(t=0; t<=10; t=t+0.5) {
printf("Fx[%d]=%e t=%f\n", i, F((x+i),t), t);
printf(s, "Fx[%d]=%e t=%f\n", i, F((x+1),t),t);
}
puts(" ");
}
getch();
return 0;
}
Растровое изображение - это изображение, в основе которого лежит таблица.
Достоинства растрового изображения:
⇒ реалистичность изображения;
⇒ возможность изображать на растровом изображении все, что угодно;
⇒ применение к растровым изображениям разнообразных эффектов;
⇒ использование растровых форматов изображений при создании веб-страниц в Интернете.
Недостатки растровых изображений:
⇒ плохое масштабирование растровых изображений; увеличение его без потери качества невозможно;
⇒ невозможность разбить растровое изображение на части и редактировать каждую из них;
⇒ размер растрового изображения больший по сравнению с векторным.
нач
целтаб Dat[1:10]
цел к, s
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 5
Dat[5] := 6
Dat[6] := 7
Dat[7] := 9
Dat[8] := 8
Dat[9] := 6
Dat[10] := 9
s: = 0
нц для к от 1 до 10
s:= s + Dat[k]
все
КЦ
вывод s
КОН
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76
2.
DIM Dat(10) AS INTEGER
DIM k,m,n AS INTEGER
Dat[1] = 7
Dat[2] = 9
Dat[3] = 10
Dat[4] = 5
Dat[5] = 6
Dat[6] = 7
Dat[7] = 9
Dat[8] = 8
Dat[9] = 6
Dat[10] = 9
s = 0
FOR k := 1 TO 10
IF Dat(k) < m THEN
s:= s + Dat[k]
ENDIF
NEXT k
PRINT s
В программе не задано значение переменной m. Если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=0
3.
Var k, m, n: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s: = 0;
for k := 1 to 10 do
s:= s + Dat[k];
writeln(s);
End.
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76