Работа со строкой | Работа с файлом [Задачки на языке Pascal]

70K

06 декабря 2011 года

22 / / 30.11.2011

1. В заданной строке определить количество слов, в который заданная буква встречается больше одного раза.
2. Сделать таблицу умножения в шестнадцатеричной системе счисления.
3. Считать данные с файла(txt) и определить столбец, который имеет min элемент в третьей строке. Вывести столбец в порядке роста элементов на экран. Массив 6х8.
4. Считать данные с файла(txt) и отсортировать элементы третьего столбца в порядку убывания. Вывести сформированный массив на экран. Массив 8х6.

[Прошу простить меня за, возможно, плохой перевод. Перевожу задания с украинского]

*Я понимаю, что зачастил со своими задачами, уж извините пж, но сделать их в одиночку у меня не получается:(
Добрые люди, подскажите, подтолкните к верному решению, помогите сделать задания пожалуйста.

№ 1.

Свернуть исходник

Код:

uses crt;

var s,sl: string;

    i,j,k,ko: integer;

    c:char;

begin

write('s=');

readln(s);

write('Zadayte simvol ');

readln(c);

sl:='';

if s[length(s)]<>'.' then s:=s+'.';

ko:=0;

for i:=1 to length(s) do

    if (s<>' ') and (s<>'.')

       then sl:=sl+s else

           begin

           k:=0;

           for j:=1 to length(sl) do

               if sl[j]=c then inc(k);

           if k>1 then inc(ko);

           sl:='';

           end;

if ko=0 then writeln('Net slov v kotorih "',c,'" vstrechaetsa bolee 1 raza')

   else writeln('kolichestvo slov, v kotorih "',c,'" vstrechaetsa bolee 1 raza = ',ko);

readkey

end.

№ 2.

Свернуть исходник

Код:

uses crt;

const n=15;

var 

    p:array [1..n, 1..n] of integer;

    i, j:integer;

begin

    clrscr;

    for i:=1 to n do

        begin

        for j:=1 to n do

            begin

            p[i, j]:=i*j;

            write(p[i, j]:5);

            end;

        writeln

        end;

    readln

end.