"введите текст из 100 литер..."

[katya36]

alex, у меня так задачу не примут с использ.строк...1ый курс, не прошли ещё

[katya36]

спасибо! и ещё вопросик- что значит uses crt?

[katya36]

и clrscr- что такое?)

[alex_fcsm]

uses - модуль в котором находится процедура clrscr
clrscr - очищает экран

[katya36]

понятно,а можно это не писать? вот полностью программа, правильно?я немножко изменила, как обычно делаем)

//введите текст из 100 литер, удалив повторные вхождения каждой литеры.
program p75_ex41;
const n=100;
var a:array[1..n] of char;
i,j:integer;
ok:boolean;
begin

for i:=1 to n do
read(a[i]);
writeln;
write('Result:');
for i:=1 to n do
begin
ok:=true;
for j:=1 to i-1 do
if a[i]=a[j] then ok:=false;
if ok then write(a[i]);
end;

end.

[alex_fcsm]

clrscr
Это я делал исключительно для удобства

[katya36]

{Пусть дана последовательность из N элементов. Уменьшите её, удалив первый из
отрицательных и минимальный из положительных (считайте, что такой элемент один)
и сдвинув все остальные к началу.}
program p76ex51;
const n=100;
var A: array [1..n] of integer;
pn, pp, i, g, max: integer;
ok: boolean;
//pn- позиция первого отрицательного элемента, pp-мин.положител.соответственно
{$APPTYPE CONSOLE}

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('vvedite posledovatelnost');
for i:=1 to n do
read (A[i]);
readln;


ok:=false;
i:=1;
while (i<=n) and ok do
if A[i]<0 then
ok:=true
else
i:=i+1;

if ok then
pn:=i
else
pn:=n+1;

i:=1;
ok:=false;
while (i<=n) and ok do
if A[i]>0 then ok:=true
else i:=i+1;

if not ok then
pp:=n+1
else
begin
pp:=i;
max:=A[pp];
for g:=i+1 to n do
if (A[g]>0) and (A[g]>max) then
begin
pp:=g and max:=A[g];
end;
if pp<pn then
left:=pp






end.




помогите ещё плиз вот эт дописать. там всё вроде верно сделано, осталось заполнить пробел- сдвинуть элементы к началу, как- не знаю(

[alex_fcsm]

uses crt;
const n=10;
var A: array [1..n] of integer;
    i,otr,min,k: integer;
    ok:boolean;
begin
clrscr;
k:=0;
for i:=1 to n do
 read(a[i]);
min:=0;
otr:=0;
ok:=false;
for i:=1 to n do
 if a[i]<0 then begin
                  ok:=false;
                  otr:=i;
                  inc(k);
                 end
   else begin
         if a[i]>0 then begin
                         if a[min]<0 then min:=i
                            else if a[min]>a[i] then min:=i;
                        end;
        end;
if a[min]>0 then inc(k);
for i:=min to n-1 do
     a[i]:=a[i+1];
if not(ok) then begin
                 if min<>0 then if min<otr then dec(otr);
                 for i:=otr to n do
                 a[i]:=a[i+1];
                end;
writeln;
for i:=1 to n-k do
 write(a[i]:4);

end.

[katya36]

это решение задачи про последовательность? а вот именно дописать то, что я выложила, можно? у меня прреподавательница сказала что всё правильно, только дописать нужно немного) сдвинуть элементы..)

[katya36]

как дорешать это(сдвинуть элементы)??

{Пусть дана последовательность из N элементов. Уменьшите её, удалив первый из
отрицательных и минимальный из положительных (считайте, что такой элемент один)
и сдвинув все остальные к началу.}
program p76ex51;
const n=100;
var A: array [1..n] of integer;
pn, pp, i, g, max: integer;
ok: boolean;
//pn- позиция первого отрицательного элемента, pp-мин.положител.соответственно
{$APPTYPE CONSOLE}

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('vvedite posledovatelnost');
for i:=1 to n do
read (A[i]);
readln;


ok:=false;
i:=1;
while (i<=n) and ok do
if A[i]<0 then
ok:=true
else
i:=i+1;

if ok then
pn:=i
else
pn:=n+1;

i:=1;
ok:=false;
while (i<=n) and ok do
if A[i]>0 then ok:=true
else i:=i+1;

if not ok then
pp:=n+1
else
begin
pp:=i;
max:=A[pp];
for g:=i+1 to n do
if (A[g]>0) and (A[g]>max) then
begin
pp:=g and max:=A[g];
end;
if pp<pn then
left:=pp






end.