1.
Kod: Zaznacz cały
program cosik;
const
n=100;
type
ind=1..n;
var
i,j:integer;
m:ind;
s:real;
a:array[ind] of integer;
b:array[ind] of real;
begin
read(m);
for i:=1 to m do
for j:=1 to m do
read(a[i],b[j]);
i:=m;
s:=0;
repeat
s:=s+a[i]*b[j];
i:=i-1;
until i=0;
writeln('s= ',s);
readln;
end.
Kod: Zaznacz cały
program cosik2;
var
a:array[char] of integer;
b:array['0'..'9'] of integer;
zn:char;
begin
for zn:='A' to 'Z' do
a[zn]:=0;
for zn:='0' to '9' do
b[zn]:=0;
while not eoln do
begin
read(zn);
if (zn in ['A'..'Z'])
then a[zn]:=a[zn]+1
else if (zn in ['0'..'9']) then b[zn]:=ord(zn);
end;
writeln('a: ');
for zn:='A' to 'Z' do
write(a[zn]);
writeln;
writeln('b:');
for zn:= '0' to '9' do
write(' ',b[zn]);
readln;
end.
Kod: Zaznacz cały
program cosik3;
const pi=3.1415;
var
beta,delta,r,x,y:real;
begin
readln(r,delta);
beta:=0;
repeat
x:=r*cos(beta);
y:=sqrt(sqr(r)-sqr(x));
writeln('x= ',x:0:0);
writeln('y= ',y:0:0);
writeln('beta= ',beta:0:0);
beta:=beta+delta;
until beta>pi/2;
readln;
end.