Pascal!

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

  1. YuZuK

    YuZuK Гость

    У даному одновимірному масиві замінити всі мінімальні елементи нулями. Використати тип даних файл(текстовий) для зчитування даних
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    определение минимального элемента
    Код (Text):
    for i := 1 to n do
    if a[i]<min then min:=a[i];
    замена нулями
    Код (Text):
    for i := 1 to n do
    if a[i]=min then a[i]:=0;
    что там "Використати" я не понял
     
  3. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Использовать тип данных файл (текcтовый) для считывания данных
    т.е.
    var f:text;
     
  4. YuZuK

    YuZuK Гость

    Спасибо большое!!!
     
  5. inna1990

    inna1990 Гость

    Код (Delphi):
    uses crt;
    var count:array[char] of integer;
    currStr:string; str: string;
    i:integer;
    procedure Func;
    var c:char;
    begin
    writeln(currStr);
    for c:=#0 to #255 do
    if count[c]>0 then begin
    dec(count[c]);
    currstr:=currstr+c;
    func; delete(currStr,length(currStr),1);
    Inc(Count[c]);
    end
    end;
    BEGIN
    clrscr;
    write('vvedite stroku:');
    readln(str);
    for i:=1 to Length(str) do
    inc(count[str[i]]);
    currstr:='';
    func;
    readln;
    END.
    объясните построчно пожалуйста, что делает задача.
     
Загрузка...

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