Удалить дубликаты из массива символов. Матрица из 0 и 1

Тема в разделе "Pascal and Delphi", создана пользователем JFL, 9 дек 2010.

  1. JFL

    JFL Гость

    Помогите пожалуйста.
    2 задачки по паскалю, сегодня писать/сдавать отчет по практике (
    1.Задан массив из k символов. Удалить из него повторные вхождения каж-дого символа.
    2.Задан двухмерный массив целых чисел A размером N на M, состоящий из нулей и единиц. Найти количество нулей и единиц в этом массиве.

    Заранее благодарен, но, даже, если лень будет писать, спасибо хоть что уделили внимание этому :)

    Добавлено: Нашел тоже самое по принципу строки.
    п.с. Паскаль до этого вообще не учил :/
    Код (Delphi):
    program xX;
    var cr:intiger;i:integer;c:char;s:string;
    begin
    writeln('vvedite simvol')
    readln(c);
    writeln('vvedite stroky')
    readln(s)
    i:=1;
    cr:=0:
    while i<length(s) do
    begin
    if S[1]=C then cr:=cr+1;
    if cr>1 then delete(S,i,1)else i:=i+1;
    end;
    Но это "недоделка"
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    если массив правильно сформирован (m*n элементов - только 0 и 1), то так:
    Код (Delphi):
    var kol0, kol1 : integer;
    kol0 :=0;
    for i:=1 to n do
    for j:=1 to m do
    if a[i,j]=0 then
    kol0 :=kol0 + 1;
    kol1 :=m*n-kol0;
    а если может быть что-то еще, то так:
    Код (Delphi):
    var kol0, kol1 : integer;
    kol0 :=0;
    kol1 :=0;
    for i:=1 to n do
    for j:=1 to m do
    if a[i,j]=0 then
    kol0 :=kol0 + 1
    else
    if a[i,j]=1 then
    kol1 :=kol1 + 1;
     
  3. JFL

    JFL Гость

    Спасибо)
     
  4. JFL

    JFL Гость

    С радостью выслушаю твои предложения о выражении благодарности именно здесь.
     
  5. JFL

    JFL Гость

    Я заблудился, помоги же мне )
    Это инзначально подрузамевалось в вышенаписанном
     
Загрузка...

Поделиться этой страницей