
- •Ответы на задачи с4:
- •Var tMonth: array[1..12] of real;
- •I, month: integer;
- •Var count: array[1..26] of integer;
- •Var count:array[1..26] of integer;
- •I, k, cA, cAm, iMax:integer;
- •Var count:array['a'..'z']of integer;
- •Var Info: array[1..100] of record
- •I, k, p, n, c: integer;
- •I, j, n: byte;
- •Var Info: array[1..Lim] of record
- •I, k, n, mark, max: integer;
- •Var names: array[1..Lim] of string;
- •I, k, n, ball, mark, max, count: integer;
- •Var Info: array[1..Lim] of record
- •I, k, n, mark, max1, max2, max3: integer;
- •Var name: array[1..Max] of string;
- •Var name: array[1..Lim] of string;
- •I, k, count, mark1, mark2, n: integer;
- •Var name: array[1..Lim] of string;
- •I, k, count, mark1, mark2, n: integer;
- •Var podr: array[1..100] of integer;
- •If not exist then begin
- •Var podr: array[1..100] of integer;
- •I, k, p, count, n: integer;
- •If not exist then begin
- •Var podr: array[0..99] of boolean;
- •I, k, p, count, n: integer;
- •Var podr: set of 0..99;
- •Var ballBest: array[1..2] of integer; { результат (баллы) }
- •Var ballBest: array[1..2] of integer;
- •I, j, k, ball: integer; { вспомогательные переменные }
- •Var Best: array[1..2] of record
- •I, j, k, ball: integer;
- •Var MinPrice, Count: array[1..3] of integer;
- •Var MinPrice, Count: array[1..3] of integer;
- •I, j, k, price: integer;
- •Var Total: array[0..Max] of integer;
- •Var Count: array[0..Max,7..11] of integer;
- •I, j, class, ball, minBall, Sum: integer;
- •Var List: array[1..500] of string;
- •Var List: array[1..500] of string;
- •I, j, n, ball1, ball2, ball3, count: integer;
- •Var List: array[1..500] of string;
- •I, j, n, ball1, ball2, ball3, count: integer;
- •Var MinPrice, Count: array[1..3] of integer;
- •Var MinPrice, Count: array[1..3] of integer;
- •I, j, k, price: integer;
- •Var count: array[1..26] of integer;
- •Var count: array['a'..'z'] of integer;
- •Inc(nOdd);
- •Var count: array['a'..'z'] of integer;
- •I, nOdd: integer;
- •Inc(nOdd);
- •Var I, oddCount:integer;
- •Inc(count[c]); { увеличиваем счётчик }
- •Inc(oddCount);
- •Var Info: array[1..1000] of tInfo;
- •Var temp: tInfo;
- •Var Info: array[1..1000] of tInfo;
- •Var h, m, code0: integer;
- •Var Info: array[1..1000] of tInfo;
- •Var Info: array[1..1000] of tInfo;
- •Var h, m, code0: integer;
- •If c in ['a'..'z', 'a'..'z'] then ...
- •If c in['a'..'z','a'..'z'] then
- •Var Names: array[1..Max] of string;
- •Var count: array[1..Max] of integer;
- •Var nParties: integer;
- •Var Names: array[1..Max] of string;
- •Var Parties: array[1..Max] of tParty;
- •Var Parties: array[1..Max] of tParty;
- •Val(Copy(s,1,2), d, c);
- •Val(Copy(s,4,2), m, c);
- •Val(Copy(s,7,4), y, c);
- •Var s, Name, minName: string;
- •Val(Copy(s,1,2), d, c);
- •Val(Copy(s,4,2), m, c);
- •Val(Copy(s,7,4), y, c);
- •Var s, Name, specDate, minName, minDate: string;
- •Var name,name1,name2:string;
- •I, j, n, school, ball,
- •Var sum, count: array[1..99] of integer;
- •Var sum, count: array[1..99] of integer;
- •I, n, sch, ball, k, total: integer;
- •If s[I] in ['a'..'z','a'..'z'] then
- •If inside then begin
- •Var s: string;
- •Var word: string;
- •If s[position] in ['a'..'z','a'..'z'] then
- •If s[position - dist] in ['a'..'z'] then
- •Var s: string;
- •If s[position] in ['a'..'z', 'a'..'z'] then
- •If s[position - dist] in ['a'..'z'] then
- •If upcase(s[position]) in ['a'..'z'] then
- •Inc(word_len)
- •Var count:array[0..100] of integer;
- •I, n, sch, ball, m, s: integer;
- •Var c: char;
- •I, k, count: integer;
- •Var c, I: char;
- •Var digits, s: string;
- •I, j, l: integer;
- •If s[I] in ['0'..'9'] then begin
- •Var c: char;
- •I, j, k: integer;
- •Var c:char;
- •I, j, k:integer;
- •Var num: array['0'..'9'] of integer;
- •I, min: integer;
- •Var c: char;
- •I, k, count: integer;
- •Var c, I: char;
- •Var c: char;
- •Var num: array['1'..'9'] of integer;
- •Var num: array['1'..'9'] of integer;
- •Val(Copy(s,1,2), d, I);
- •Var dm: array[1..12] of integer;
- •Val(Copy(s,1,p-1), c.No, k); { номер слева от пробела }
- •Var maxStip: array[1..5] of integer;
- •Var I, k, n: integer;
- •Var first: array[1..5] of integer;
- •Var I, n, kurs, stip: integer;
- •Var people: array[1..Max-1] of integer;
- •Var Delta: array[1..Max] of integer;
- •Var Delta: array[1..Max] of integer;
- •I, s1, s2, n, p, min: integer;
- •Var people: array[1..Max-1] of integer;
- •I, j, s1, s2, n, p, min: integer;
- •Var schMax, schCount: array[1..Max] of integer;
- •Var schMax, schCount: array[1..Max] of integer;
- •I, n, sch, ball, count: integer;
- •Var schCount:array[1..Max] of integer;
- •Inc(schCount[sch]);
- •Var f: Text; { указатель на текстовый файл }
- •X1, x2: real; { корни уравнения }
- •I, r: integer; { вспомогательные переменные }
- •Val(Copy(s,1,I-1), a, r); { есть коэффициент }
- •Val(Copy(s,1,I-1), c, r);
- •Var k, d,I,n,z: integer;
- •1: Case k of
- •2: Case k of
- •Var Info: array[1..Max] of tInfo;
- •Var Info: array[1..Max] of tInfo;
- •I, j, n, zNo: integer;
- •Var count: array[1..Max] of integer;
- •Var count: array[1..Max] of integer;
- •I, j, nMin, n, zNo: integer;
- •Var Info: array[1..Max] of tInfo;
- •I, j, n, k: integer;
- •Var X, count, c, c0, max, max2, max3, max6: integer;
- •Var X, Xprev, n, l, lMax: integer;
- •Var X, Xprev, Xstart, n, lMax: integer;
- •Var k: char;
- •Var I, sumFf: integer;
- •Var I, count1, count2, sumFf: integer;
- •Var I, j, count1, count2, sumFf: integer;
- •Var words: array[1..27] of string;
- •Var sum, p, I, j, n, number: integer;
- •Var j: integer;
- •Var sum, p, I, V, n,number: integer;
- •Var j: integer;
- •Var words: array[1..99] of string;
- •Var sum, I, j, n: integer;
- •Var count: array['a'..'z'] of integer;
- •Var s: string;
- •Var letters: array['a'..'z'] of char;
- •Var count: array['a'..'z'] of integer;
- •I: integer;
- •Var count: array[1..26] of integer;
- •I, k: integer;
- •Var count: array[1..26] of integer;
- •I, k: integer;
- •Var w: array[1..26] of structW;
- •I, k: integer;
- •Var count: array[1..26] of integer;
- •I, k, max: integer;
- •Var mas: array['a'..'z'] of integer;
- •Var n, I, V, pMin, min, min2, max, max2: integer;
- •Var n, I, V, v1, ch1, ch2, nch1, nch2: integer;
- •Var n, I, V, ch1, ch2, nch1, nch2: integer;
- •Var fio: array[1..Max] of string;
- •Var I, k, n, nFio: integer;
- •Var I: integer;
- •Var fio: array[1..Max] of string;
- •I, k, n, nFio, maxCount: integer;
- •Var I: integer;
- •Var fio: array[1..Max] of string;
- •I, j, k, p, n, nFio: integer;
- •Var I: integer;
- •Var pass: array [1..Maxcells] of integer;
- •If ячейка найдена then begin
- •Var startTime, endTime: integer);
- •Var p, r: integer;
- •Val(sStartTime, startTime, r); { преобразовать в число }
- •Val(sEndTime, endTime, r); { преобразовать в число }
- •Var cellNo: integer;
- •Var cellFreeTime: array[1..Maxcells] of integer;
- •Var pass: array[1..Maxpass] of string;
- •I, p, cellNo, count: integer;
- •Inc(count);
- •Inc(cellNo);
- •Var I, n, X, y: integer;
- •XMin, xMax, yMax: integer;
- •Var I,X,y,n,h,minx,maxx:integer; s:real;
- •Void main()
- •Var I, n, X, y: integer;
- •XMin1, xMax1, yMax1: integer;
- •XMin2, xMax2, yMax2: integer;
- •Var Info: array[1..3] of tInfo;
- •Var res0: integer;
- •Var Info: array[1..3] of tInfo;
- •I, n: integer;
- •Var name:array[1..3] of string;
- •Var I, j, k, posName, n:longint;
- •Inc(posName);
- •Var count, r, xR, yR: array[1..4] of integer;
- •Var count, r, xR, yR: array[1..4] of integer;
- •I, k, n, X, y: integer;
- •Var f: Text;
- •Var max: double;
- •IMax: integer;
- •Var small: array[0..9] of integer;
- •If { номер I есть в массиве small } then
- •Var small: array[0..9] of integer;
- •If not isSmall then write(I, ' ');
- •Var a:array[1..10] of integer;
- •Var n,I,m,j,nmax:integer;
- •X,max:real;
- •Inc(count); { увеличить счётчик }
- •Var X, max7, max, r, r1, count: integer;
- •Inc(count);
- •Var count: array[0..Max-1] of integer;
- •Var count: array[0..Max-1] of integer;
- •I, ost, nMax, n, d, k: integer;
- •Var count: array[1..Max-1] of integer;
- •Var n, I, t, ta, tb, ai, bi: integer;
- •Var Buf: array[1..K] of integer;
- •Var I, j, n, max, maxSum, elem: integer;
- •Var I, n, max, maxSum, next, elem: integer;
- •Var I, n, max, maxSum, next, elem: integer;
- •Var I, n, min, minRes, next, elem: integer;
- •Var I, n, min, minRes, next, elem: integer;
- •Var n, I: integer;
- •Var min: real;
- •I, j: integer;
- •Var data: array[1..10000] of real;
- •Var minPrev: real;
- •Var data: array[1..10000] of real;
- •Var data: array[1..K] of real;
- •Var data: array[1..K] of real;
- •Var data: array[0..K-1] of real;
- •Var data: array[0..K-1] of real;
- •Var chet, nechet, r, r0, I, n, X: longint;
- •Var a: array[1..10000] of integer;
- •Var n: integer;
- •I, j, max: integer;
- •Var n: integer;
- •Var a: array[1..D] of integer;
- •Var n: integer;
- •Var n: integer;
- •Var n: integer;
- •I, j, min: integer;
- •Var n: integer;
- •Var n: integer;
- •I, j, min: integer;
- •Var n: integer;
- •Var r, r0, I, j, n: longint;
- •Var r, r0, I, max1, max2, max3a, max3b, n, X: longint;
- •Var a:array[0..2] of integer;
- •Var n: integer; { переданное число }
- •Var n, count: integer;
- •Var n: integer;
- •I, j, max: integer;
- •Var n: integer;
- •157 Http://kpolyakov.Spb.Ru
Var I, count1, count2, sumFf: integer;
s1, s2: string;
k: char;
begin
readln(s1);
readln(s2);
sumFF := 0;
for k:='A' to 'Z' do begin
count1 := 0;
for i:=1 to length(s1) do
if k = UpCase(s1[i]) then
count1 := count1 + 1;
count2 := 0;
for i:=1 to length(s2) do
if k = UpCase(s2[i]) then
count2 := count2 + 1;
sumFF := sumFF + count1 * count2;
end;
if length(s1)*length(s2) > 0 then
writeln(sumFF/(length(s1)*length(s2)):10:3)
else
writeln(0);
end.
Проанализируем эффективность. Прежде всего, мы избавились от массивов (это хорошо)! Но количество операций стали пропорционально 26*(length(s1)+length(s2)), поскольку получился вложенный цикл. Это значит, что скорость вычислений уменьшилась (стало хуже!), а эффективность по памяти – увеличилась (стало лучше!).
Ещё один вариант, который не использует массивов и быстро работает для коротких строк. Фактически нас интересуют только те символы, которые встречаются в обеих строках, поэтому можно в цикле рассматривать все символы одной строки, например, s1:
sumFF := 0;
for i:=1 to length(s1) do begin
{ если s[i] – латинская буква то
подсчитать count1 – сколько раз она входит в s1
подсчитать count2 – сколько раз она входит в s2
sumFF := sumFF + count1 * count2;
все }
end;
Здесь есть только одна проблема – а что если в первой строке буквы повторяются? Чтобы ее решить, можно «забивать» уже рассмотренные буквы пробелами, например, так (для упрощения считаем, что в языке есть функция UpCase):
for i:=1 to Length(s1) do begin
k := UpCase(s1[i]);
if ('A' <= k) and (k <= 'Z') then begin
{ считаем эти буквы в оставшейся части строки s1 }
count1 := 1;
for j:=i+1 to Length(s1) do
if k = UpCase(s1[j]) then begin
count1 := count1 + 1;
s1[j] := ' '; { забиваем букву пробелом }
end;
{ считаем эти буквы в строке s2 }
count2 := 0;
for j:=1 to Length(s2) do
if k = UpCase(s2[j]) then
count2 := count2 + 1;
{ увеличиваем сумму }
sumFF := sumFF + count1 * count2;
end;
Теперь остается только вывести результат на экран. Вот полная программа:
Var I, j, count1, count2, sumFf: integer;
s1, s2: string;
k: char;
begin
readln(s1);
readln(s2);
sumFF := 0;
for i:=1 to length(s1) do begin
k := UpCase(s1[i]);
if ('A' <= k) and (k <= 'Z') then begin
count1 := 1;
for j:=i+1 to Length(s1) do
if k = UpCase(s1[j]) then begin
count1 := count1 + 1;
s1[j] := ' ';
end;
count2 := 0;
for j:=1 to Length(s2) do
if k = UpCase(s2[j]) then
count2 := count2 + 1;
writeln(k, ' ', count1, ' ', count2);
sumFF := sumFF + count1 * count2;
end;
end;
if length(s1)*length(s2) > 0 then
writeln(sumFF/(length(s1)*length(s2)):10:3)
else
writeln(0);
end.
Проанализируем эффективность. Количество операций стало пропорционально произведению длин строк (получился вложенный цикл), его можно оценить как C*length(s1)*length(s2). Для длинных строк произведение длин во много раз больше, чем сумма длин, поэтому программа будет работать медленнее, чем предыдущий вариант. А для коротких строк – быстрее.
В этой задаче сначала нужно заполнить массив слов (обучающий блок). Естественно объявить массив так: