Цитата:
Сообщение от Air
Совсем не понимаю ничего в программировании, но учась на заочном, это нужно сдать((( помогите, пожалуйста
|
Ох. "Терпеть ненавижу" (как говорил один киногерой) оказывать "помощь" тем, кто "знать не знаю, не желаю, вы пишите, я скатаю", но да что с Вами сделаешь - если и впрямь заочник, то ладно.
Код:
Var
x,c:Real;
Begin
Write('x = ');
Readln(x);
Write('c = ');
Readln(c);
if x<=0.2 then writeln('f = ',(Abs(x)+c*x-4):0:3)
else writeln('f = ',(Sqr(Sin(x)-1)):0:3);
Readln
End.
Код:
Var
K,M,N:Word;
A,B,P,P1:Real;
Begin
Write('Количество коров: ');
Readln(K);
Write('Количество лошадей: ');
Readln(M);
Write('Норма кормления коровы: ');
Readln(A);
Write('Норма кормления лошади: ');
Readln(B);
Write('Количество дней: ');
Readln(N);
Write('Наличный запас сена: ');
Readln(P);
P1:=(1.0*A*K+1.0*B*M)*N;
If (P-P1)<0 then writeln('Не хватает ',Trunc(P1-P)+1,' кг сена')
else writeln('Сена хватит');
Readln
End.
Код:
Var
S,x:Real;
i:Byte;
Begin
Write('x = ');
Readln(x);
S:=0;
For i:=3 to 20 do
S:=S+Abs(x+1.0*i);
Writeln('S = ',S:0:3);
Readln
End.