SaveText.Ru

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

Share with your friends:

Print