SaveText.Ru

Без имени
  1. var n:string;
  2. B,M,V,i,D:integer;
  3. begin
  4. readln(n);
  5. B:=0;
  6. M:=0;
  7. D:=Length(n);
  8. for i:=1 to D do begin
  9. if ((n[i]>='a') and (n[i]<='z') and (n[i]<>' ')) then M:=M+1;
  10. if ((n[i]>='A') and (n[i]<='Z') and (n[i]<>' ')) then B:=B+1;
  11. end;
  12. V:=M+B;
  13. writeln(V, ' - количество всех');
  14. writeln((M*100) div V, ' - процент маленьких');
  15. writeln((B*100) div V, ' - процент больших');
  16. writeln(M, ' - количество маленьких');
  17. writeln(B, ' - количество больших');
  18. end.
  19. //программа ищет большие и маленькие буквы и выводит их процент в строке
  20.  
  21. var
  22.         str: string;
  23.         i, count: integer;
  24. begin
  25.         write('Введите строку: ');
  26.         readln(str);
  27.  
  28.         i := length(str);
  29.         if i > 0 then begin
  30.                 count := 1;
  31.                 while i > 0 do begin
  32.                         if str[i] = ' ' then
  33.                                 count := count + 1;
  34.                         i := i - 1;
  35.                 end;
  36.         end
  37.         else
  38.                 count := 0;
  39.  
  40.  
  41.         writeln('Количество слов: ', count);
  42. readln;
  43. end.
  44. // программа считает количество слов в строке
  45.  
  46. var
  47. n:string;
  48. S,D,E,i:integer;
  49. begin
  50. readln(n);
  51. E:=0;
  52. D:=Length(n);
  53.  for i:=D downto 1 do begin
  54.  E:=E+1;
  55.  if n[i]=' ' then begin
  56.  writeln(copy(n,(i+1),E));
  57.  delete(n,i,(E)); E:=0; end;
  58.  end;
  59. writeln(n);
  60. end.
  61. // программа выводит слова в обратном порядке
  62.  
  63. var
  64.     s: string;
  65.     i: byte;
  66. begin
  67.     write('Строка: ');
  68.     readln(s);
  69.     i := 1;
  70.     repeat
  71.         if copy(s,i,2)='  ' then
  72.             s := copy(s,1,i) + copy(s,i+2,length(s))
  73.         else
  74.             i := i + 1
  75.     until (i > length(s));
  76.     writeln('Строка: ', s);
  77. readln
  78. end.
  79. // удаление лишних пробелов
  80.  
  81. program n_1;
  82. var a:array[1..100] of integer;
  83.  n,i,x,j,q:integer;
  84.  begin
  85.  Randomize;
  86.  read(n);
  87.  write('Изначальный массив: ');
  88.  for i:=1 to n do begin
  89.  a[i]:=random(100);
  90.  write(a[i],' ');
  91.  end;
  92.  write(' Изменённый массив: ');
  93.  for i:=2 to n do begin
  94.  x:=a[i];
  95.  j:=1;
  96.  while (x>a[j]) do
  97.  j:=j+1;
  98.  for q:=i downto j+1 do
  99.  a[q]:=a[q-1];
  100.  a[j]:=x;
  101.  end;
  102.  for i:=1 to n do
  103.  write(a[i],' ');
  104.  end.
  105.  // программа сортировки массива с помощью прямого включения
  106.  
  107. var a:array[1..100] of integer;
  108.     i, z, n, max, min:integer;
  109. begin
  110.     readln(n);
  111.     max:=0;
  112.     min:=10001;
  113.     for i:= 1 to n do begin
  114.         readln(a[i])
  115.         if a[i]>a[max] then
  116.             max:=i;
  117.         if a[i]<a[min] then
  118.             min:=i;
  119.     end;
  120.     z:=a[min]
  121.     a[min]:=a[max];
  122.     a[max]:=z;
  123.     for i:= 1 to n do
  124.     writeln(a[i])
  125. end.
  126. // меняет местами максимальное и минимальное
  127.  
  128. var a:array[1..6] of integer;
  129. i,j,mp,m,q:integer;
  130. begin
  131. randomize;
  132. for i:=1 to 6 do begin
  133. a[i]:=random(100);
  134. write(a[i],' ');
  135. end;
  136. for i:= 1 to 6 do begin
  137. m:=a[i];
  138. for j:= 1 to 6 do
  139. if a[j]<=m then begin m:=a[j];
  140. mp:=j;
  141. q:=a[i];
  142. a[i]:=m;
  143. a[mp]:=q;
  144. end;
  145. write(a[i],' ');
  146. end.

Share with your friends:

Print