4 Программы Pascal

[KARTER]

1.Вычислить значение выражения F = ((b+sqrt(sqr(b)+4*a*c)/(2*a))-sqr(a)*a*c+sqr(b))
2.Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень отрицательные.
3.Напишите программу, которая для заданного массива А из 10 целых чисел вычисляет сумму, произведение и количество его положительных элементов.
4.Дана строка. Подсчитать, сколько в ней букв r, k, l.

[Pein95]

можно ваш код посмотреть?

[KARTER]

По этим программам?

[MyLastHit]

А есть по другим?


PS: ну ёмоё, зачем учиться на программиста если сам не хочешь ничего делать...Задачки та чуть ли не в одну строчку, а в первой так и вообще тебе уже часть кода дана...

[KARTER]

Я написал кое как мне еще нужно по ним отчеты сделать ! Щас напишу то что я смог сделать

1)

Program vi4islenie;
var f,a,b,c: real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
f:=((b+sqrt(sqr(b)+4*a*c)/(2*a))-sqr(a)*a*c+sqr(b));
writeln('zna4enie f=',f:8:3);
readln;
end.

2)

Program Kvadrat;
var a,b,c:real;
begin
write('a');
readln(a);
write('b');
readln(b);
write('c');
readln(c);
if a>=0 then a:=a*a else a:=sqr(a)*sqr(a);
if b>=0 then b:=b*b else b:=sqr(b)*sqr(b);
if c>=0 then c:=c*c else c:=sqr(c)*sqr(c);
writeln('—Ёб«® ь1:',a:5:2);
writeln('—Ёб«® ь2:',b:5:2);
writeln('—Ёб«® ь3:',c:5:24);
readln;
end.

3)

Program Massiv;
const n=10;
Type mass=array[1..n] of integer;
Var a:mass; i,s,p,k,x:integer;
begin
for i:=1 to n do
begin
write('a[',i,']=');
readln (a[i]);
end;
k:=0;
s:=0;
p:=1;
for i:=1 to n do
begin
if a[i]>0 then
k:=k+1;
s:=s+a[i];
p:=p*a[i];
end;
writeln('Polojitelnih elementov-',k);
writeln('Summa elementov-',s);
writeln('Proizvedenie elementov-',p);
readln;
end.

4)

var ir,ik,il,i,n:integer;
r,k,l:char;
str:string;
begin
writeln('Vvedite stroku');
readln(str);
n:=length(str);
ir:=0;
ik:=0;
il:=0;
i:=0;
for i:=1 to n do
begin
if str[i]='r' then
begin
ir:=ir+1;
end;
end;
readln;
end.

[Novi4ok_11]

1. Даже делать не нада она сделана
3.

for i:=1 to n do begin
if a[i]>0 then 
begin 
s:=s+a[i];
p:=p*a[i];
kol:=kol+1;
end;
4. for i:=1 to lenght(a) do 
begin
if a[i]='r' then st1:=st1+1;
if a[i]='k' then st2:=st2+1;
if a[i]='l' then st3:=st3+1;
end;