Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
var A : array [1..5] of integer;
i, j, tmp : integer;
begin
readln(A[1],A[2],A[3],A[4],A[5]);
for j:=1 to 4 do
for i:=1 to 4 do
if A[i]>A[i+1] then
begin
tmp:=A[i];
A[i]:=A[i+1];
A[i+1]:=tmp;
end;
for i:=1 to 5 do writeln(A[i]);
readln;
end.
program lab_1_6; { вариант 30 }
uses crt;
var
{ входные }
A:real; { константа }
N:byte; { число значений }
X:real; { аргумент функции }
dX:real; { шаг изменения аргумента }
{ выходные }
Y:real; { значение функции }
{ промежуточные }
i:byte; { счетчик }
begin
clrscr;
writeln('Lab 1.6');
write('N= ');
readln(N);
write('A= ');
readln(A); { A:=2; }
write('X1= ');
readln(X); { X:=-7*A; }
write('dX= ');
readln(dX); { dX:=2*A/5; }
writeln('i':3,'X':10,'Y':10);
for i:=1 to N do
begin
if x<=0 then
begin
Y:=-8*A*sqr(A)/(sqr(X)+4*sqr(A));
writeln(i:3,X:10:3,Y:10:3);
end
else if X<=abs(A) then
begin
Y:=2*A*sqrt(1-sqr(X/A))-4*A;
writeln(i:3,X:10:3,Y:10:3);
end
else
begin
writeln(i:3,X:10:3,'NaN':10);
end;
X:=X+dX;
end;
end.
Program HelloWorld(output);
var t, pare, impare: array [1..100] of integer;
n,i,j,k: integer;
begin
readln(n);
j:=0;
k:=0;
for i:= 1 to n do
readln(t[i]);
for i:= 1 to n do
begin
if t[i] mod 2 = 0 then begin
j:=j+1;
pare[j]:=t[i];
end else begin
k:=k+1;
impare[k] := t[i];
end;
end;
for i:=1 to j do
writeln(pare[i]);
for i := 1 to k do
writeln(impare[i]);
writeln('andrei');
for i := 1 to n do
begin
if i <= j then t[i]:=pare[i] else
t[i]:=impare[i-j];
end;
for i := 1 to n do
writeln(t[i]);
end.
Type
grades = Array [0..9] of integer;
Var
scores: grades;
i, j, sum: integer;
avg: real;
Procedure readinput (Var currarray: grades);
begin
For i:= 0 to 9 Do
begin
readln(currarray[1]);
end;
end;
Function average (Var currarray: grades):real;
begin
sum:=0;
For j:= 0 to 9 Do
begin
sum:= currarray[j] + sum;
end;
average:= sum/10;
writeln('The average of your scores is', avg:8:2);
end;
Procedure AboveorBelowAverage (Var currarray: grades);
begin
for j := 0 to 9 Do
begin
if currarray[j] >= avg then
begin
writeln (currarray[j], ' is abhove the average');
end;
if currarray[j] < avg then
Begin
writeln (currarray[j], ' is below the average');
end;
end;
end;
begin
sum:=0;
writeln('Please enter your scores');
readinput(scores);
average(scores);
writeln('End of program');
writeln('Varun Senthilvel 8B');
readln;
end.
program mnoziny;
var
a : array[1..4] of integer = (7,5,6,2);
b : array[1..6] of integer = (1,5,3,6,9,8);
stejne : array[1..2] of integer;
jine : array[1..6] of integer;
i,j,k,l,n,m,o,p : integer;
c : boolean;
begin
m := 6;
n := 4;
o := 2;
p := 6;
k:=1;
for j:= 1 to m
do
begin
for i:=1 to n
do
begin
if a[i]=b[j]
then begin stejne[k]:=a[i]; writeln('stejne=',stejne[k]); k:=k+1; end
end;
end;
l:=1;
for i:=1 to n
do
begin
c:=false;
j:=0;
repeat
j:=j+1;
begin
if a[i]=b[j] then c:=true; // kontrola jestli neni v pruniku
end;
until (j=m) or (c=true);
if c=false // pokud neni v pruniku tak...
then
begin
jine[l]:=a[i]; // zapis unikatnich prvku do pole "jine"
l:=l+1; // posunuti pole o 1
end;
writeln('jine[l] ',jine[l],' a[i] ',a[i],' l ',l);
end;
for j:=1 to m
do
begin
c:=false;
i:=0;
repeat
i:=i+1;
begin
if b[j]=a[i] then c:=true;
end;
until (j=m) or (c=true);
if c=false
then
begin
jine[l]:=b[j];
l:=l+1;
end;
writeln('jine[l] ',jine[l],' b[j] ',b[j],' l ',l);
end;
begin
for l:=1 to p
do writeln('cisla sjednoceni = ',jine[l]);
for k:=1 to o
do writeln('cisla pruniku = ',stejne[k]);
end;
end.
