data3.txt, , A,R .
4.1
, (. 4.2).
4.2
5. .
,
Type Kniga=Record
Avtor:String;
Nazvanie:String;
God:Integer;
Izdatel:String;
Stranizy:Integer;
End;
: - ;
- ;
- , , .
:
:
. . . record .
.
n=10.
. , . avt. avt .
. .
, , .
(. )
() Enter. , (. 5.1).
5.1
.
- ;
- ;
- , , .
(. 5.2)
5.2 -
, , , , , .
, , , , , , , ..
.
1. .. - Turbo Pascal. , .: , 2002, 496 .
|
|
2. . ., . . Pascal, .: -, 2004, 480 .
3. . . - , .:. , 2004, 424 .
4. PascalABC.NET - http://pascalabc.net/.
5. .. - Turbo Pascal 7.0. , , 1999, 211 .
6. [ ] - http://ru.wikipedia.org.
7. . . Pascal ABC, , 2009, 49 .
.
1
program A1;
uses crt;
var s:string;
A:array [1..20] of string;
B:array [1..10] of string;
i,j,max,r,k,l,n,m:integer;
begin
read(s); { }
r:=1;
for i:=1 to length(s) do
if s[i]=' ' then
begin
j:=j+1;
A[j]:=copy(s,r,i-r);
r:=i+1;
end; { }
for i:=1 to j do
writeln('A[',i,']=',A[i]);
{ }
For i:=1 to j do
begin
m:=0;
n:=0;
for l:=1 to length(A[i]) do
case A[i][l] of
'0'..'9': n:=1;
''..'': m:=1;
end;
if (n<>0) and (m=0) then begin
writeln(' "',A[i],'"');
for j:=length(A[i])downto 1 do
write(A[i][j]);
writeln;
end;
if (m<>0) and (n=0) then begin
writeln(' "',A[i],'"');
for j:=length(A[i])downto 1 do
write(A[i][j]);
writeln;
end;
end;{ , , }
end.
.
2
.
3
Program A3;
uses crt;
const c=['0','1','2','3','4','5','6','7','8','9'];
var
f1,f2:text;
a:array[1..99] of string;
b:array[1..99] of integer;
s,s1:string;
r1,r2:real;
i,j,k,x,g,v,s2:integer;
begin
assign(f1,'file1.txt');
assign(f2,'file2.txt');
Rewrite(f1);
write('vvedite text: ');readln(s);
write(f1,s);
write(' : ');
readln(r1);
write(' : ');
readln(r2);
Reset(f1);
while not eof(f1) do readln(f1,s);
j:=1;
for i:=1 to length(s) do
begin
if (s[i]<>' ') and (s[i] in c) then
begin
a[j]:=a[j]+s[i];
end
else inc(j);
end;
x:=j;
i:=0;
s2:=0;
for j:=1 to x do
begin
s1:=a[j];
val(s1,v,g);
if (v>r1) and (v<r2) then
begin
inc(i);
b[i]:=v;
end
else begin
s2:=s2+v;
k:=k+1;
end;
end;
writeln;
writeln('- : ',k);
for j:=1 to x do writeln(a[j]);
writeln;
writeln(' : ',s2);
Rewrite(f2);
for i:=1 to k do write(f2,b[i],' ');
close(f1);
close(f2);
end.
4
program A4;
uses GraphABC,crt;
const p=3.14;
var x,t,y,A,R,m:real;
n:byte;
l:text;
Q:array [1..4] of real;
begin
setwindowsize(600,600);
line(300,0,300,600);
line(0,300,600,300);
assign(l,'data3.txt');
reset(l);
for n:=1 to 4 do
begin
readln(l,m);
Q[n]:=m;
end;
A:=Q[1];
R:=Q[2];
t:=0;
while t<2*p do
begin
x:=(1+A)*cos(A*t)+R*cos(1+A)*t;
y:=(1+A)*sin(A*t)+R*sin(1+A)*t;
circle(trunc(x*20+300),trunc(y*20+300),2);
t:=t+0.01;
end;
close(l);
end.
|
|
.
5
Program 5;
Uses Crt;
Const n=10;
Type kniga = record
Avtor, Nazvanie, Izdatel:string[20];
God:integer;
Stranizy:real;
end;
Var a: array[1..n] of kniga;
i:byte;
avt:string;
naz:string;
izd:string;
max:real;
g:integer;
begin
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln(' ',I);
Readln(Avtor);
Writeln(' ');
Readln(Nazvanie);
Writeln('');
Readln(Izdatel);
Writeln(' ');
Readln(god);
Writeln('- ');
Readln(Stranizy);
end;
Writeln;
Writeln(' ');
Readln(avt);
for i:=1 to n do
with a[I] do
if avtor=avt then writeln (avtor,' "',Nazvanie,'", ',izdatel,' ',god,'. ',stranizy,'.');
Readln;
Writeln(' - ');
max:=0;
for i:=1 to n do
with a[I] do
if stranizy>max then begin
max:=stranizy;
naz:=Nazvanie;
end;
write(Naz,' ',max,'.');
Readln;
Writeln(' ');
Readln(avt);
Writeln(' ');
Readln(g);
Writeln(' ');
Readln(izd);
for i:=1 to n do
with a[I] do
if (avt=avtor) and (g=god) and (izd=Izdatel) then writeln(' "',Nazvanie,'", ',stranizy,'.');
Readln;
end.