решите 2 задачи на паскале

Тема в разделе "Delphi - FAQ", создана пользователем away, 23 дек 2007.

Статус темы:
Закрыта.
  1. away

    away Гость

    В матрице E(6,5) выбрать положительные элементы и напечатать: <номер строки>
    <количество положительныхэлементов> Если количество положительных элементов в строке больше половины общегоколичества элементов в строке, то все отрицательные нулю элементы превратить в "единицы". Исходные, промежуточные и результативные данные вывести на экран дисплея.

    Имеется произвольный текст, состоящий из последовательности литер и цифр общим числом 50 знаков. Составить програму печати с начала строки всех цифр, а затем всех литер, входящих в этот текст.
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Твою прогу не фиг делать. Щас за пять сек напечатаю, и тебе в пм отправлю(личные сообщения).
     
  3. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Первая прога:
    Код (Text):
    Program one;
    Uses
    Crt;
    Var
    E : Array [1..6,1..5] of Integer;
    i,j,n,m,kol : Integer;
    Begin
    ClrScr;
    n:=6;
    m:=5;
    For i:=1 To n Do
    For j:=1 To m Do
    Begin
    Write('E[',i,',',j,']=');
    Read(E[i,j])
    End;
    ClrScr;
    WriteLn('Исходная матрица E:');
    For i:=1 To n Do
    Begin
    For j:=1 To m Do
    Write(E[i,j]:4);
    WriteLn
    End;
    For i:=1 To n Do
    Begin
    kol:=0;
    For j:=1 To m Do
    If E[i,j]>0 Then kol:=kol+1;
    If kol*2>m Then
    For j:=1 To m Do
    If E[i,j]<=0 Then E[i,j]:=1;
    WriteLn('В ',i,'-той строке ',kol,' положительных элементов.')
    End;
    ReadKey;
    ClrScr;
    WriteLn('Новая матрица E:');
    For i:=1 To n Do
    Begin
    For j:=1 To m Do
    Write(E[i,j]:4);
    WriteLn
    End;
    ReadKey
    End.
    Вторая прога:
    Код (Text):
    Program Two;
    Uses
    Crt;
    Var
    st : String;
    i : Integer;
    Begin
    ClrScr;
    Write('st=');
    ReadLn(st);              {
    For i:=1 To Length(st) Do
    If st[i] in ['0'..'9'] Then Write(st[i]);
    For i:=1 To Length(st) Do
    If NOT (st[i] in ['0'..'9']) Then Write(st[i]);
    Другой вариант твоей проги.
    }
    For i:=1 To Length(st) Do
    If st[i] in ['0'..'9'] Then
    Begin
    GoToXY(i,WhereY);
    Write(st[i]);
    Delay(60000)
    End;
    For i:=1 To Length(st) Do
    If NOT (st[i] in ['0'..'9']) Then
    Begin
    GoToXY(i,WhereY);
    Write(st[i]);
    Delay(60000)
    End;
    ReadKey
    End.
    И почему я знаю паскаль как алгоритмический язык лучше некоторых студентов, зато компоненты на форму кидать не умею как все :blink:
     
  4. away

    away Гость

    спасибо Вадик! Ты выручил)) завтра сдаюсь! дай пять чуваг :( :blink:
     
  5. root

    root Гость

Загрузка...
Статус темы:
Закрыта.

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