Type tbank=record name:string; curs:real; end; var banks:array[1..15] of tbank; max,dollars:real; i,mi:longint; Begin Write('You have: '); readln(dollars); for i:=1 to 15 do Begin Write('Bank name: '); readln(banks[i].name); write('Curs: '); readln(banks[i].curs); end; max:=dollars*banks[1].curs; mi:=1; for i:=2 to 15 do Begin if(dollars*banks[i].curs>max) then Begin max:=dollars*banks[i].curs; mi:=i; end; end; writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.'); end.
1)Program Z1; Var st:string; i,j,k:integer; Begin k:=ord('A'); For i:=1 to 26 do begin For j:=1 to i do begin write(chr(k)); end; k:=k+1; end; end.
2)Program Z2; Var st:string; i,c,c1:integer; Begin Writeln('Введите строку'); Readln(st); For i:=1 to length(st) do begin if st[i]='а' then inc(c); if st[i]='о' then inc(c1); end; if c>c1 then writeln('Да') else writeln('Нет'); end.
3)Program Z3; Var st,st1,st2,st3:string; k,n:integer; Begin Writeln('Введите строку'); Readln(st); Writeln('Введите k'); Readln(k); n:=length(st); st1:=copy(st,1,k); st2:=copy(st,n-k+1,k); st3:=copy(st,k+1,n-2*k); st:=st2+st3+st1; Writeln(st); end.
4)Program Z4; Var st,st1,st2:string; n,i:integer; Begin Writeln('Введите строку'); Readln(st); Writeln('Введите букву для удвоения'); Readln(st1); n:=length(st); For i:=1 to n do begin; if st[i]=st1 then st2:=st2+st[i]+st[i] else st2:=st2+st[i]; end; Writeln(st2); end.
5)Program Z5; Var st,st1:string; n,i:integer; Begin Writeln('Введите строку'); Readln(st); n:=length(st); For i:=1 to n do begin if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и' else st1:=st1+st[i]; end; writeln(st1); end.
6)Program Z6; Var st,st1:string; n,i:integer; Begin Writeln('Ââåäèòå ñòðîêó'); Readln(st); n:=length(st); st:=' '+st+' '; For i:=1 to n do if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1); end; writeln(st); end.
(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)
name:string;
curs:real;
end;
var banks:array[1..15] of tbank;
max,dollars:real;
i,mi:longint;
Begin
Write('You have: ');
readln(dollars);
for i:=1 to 15 do Begin
Write('Bank name: ');
readln(banks[i].name);
write('Curs: ');
readln(banks[i].curs);
end;
max:=dollars*banks[1].curs;
mi:=1;
for i:=2 to 15 do
Begin
if(dollars*banks[i].curs>max) then Begin
max:=dollars*banks[i].curs;
mi:=i;
end;
end;
writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.');
end.
1)Program Z1;
Var st:string;
i,j,k:integer;
Begin
k:=ord('A');
For i:=1 to 26 do begin
For j:=1 to i do begin
write(chr(k));
end;
k:=k+1;
end;
end.
2)Program Z2;
Var st:string;
i,c,c1:integer;
Begin
Writeln('Введите строку');
Readln(st);
For i:=1 to length(st) do begin
if st[i]='а' then inc(c);
if st[i]='о' then inc(c1);
end;
if c>c1 then writeln('Да')
else writeln('Нет');
end.
3)Program Z3;
Var st,st1,st2,st3:string;
k,n:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите k');
Readln(k);
n:=length(st);
st1:=copy(st,1,k);
st2:=copy(st,n-k+1,k);
st3:=copy(st,k+1,n-2*k);
st:=st2+st3+st1;
Writeln(st);
end.
4)Program Z4;
Var st,st1,st2:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите букву для удвоения');
Readln(st1);
n:=length(st);
For i:=1 to n do begin;
if st[i]=st1 then st2:=st2+st[i]+st[i]
else st2:=st2+st[i];
end;
Writeln(st2);
end.
5)Program Z5;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
n:=length(st);
For i:=1 to n do begin
if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и'
else st1:=st1+st[i];
end;
writeln(st1);
end.
6)Program Z6;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Ââåäèòå ñòðîêó');
Readln(st);
n:=length(st);
st:=' '+st+' ';
For i:=1 to n do
if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);
end;
writeln(st);
end.
(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)