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

  • Автор темы away
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

away

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

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

Vadik(R)

Well-Known Member
12.12.2007
469
0
#2
Твою прогу не фиг делать. Щас за пять сек напечатаю, и тебе в пм отправлю(личные сообщения).
 

Vadik(R)

Well-Known Member
12.12.2007
469
0
#3
Первая прога:
Код:
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.
Вторая прога:
Код:
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:
 
A

away

Гость
#4
спасибо Вадик! Ты выручил)) завтра сдаюсь! дай пять чуваг :( :blink:
 
Статус
Закрыто для дальнейших ответов.