СТЕК(((Написать с использованием стека(((

[Sonne_asja]

Сообщение от rrrFer

вот это поясни, почему не 5+8+9, и вообще, где в задании сказано что надо сумму искать?

там я уже поняла нужно найти количество самых большихчисел которые есть в файле ну тоисть и в стеке тоже

Сообщение от Alkagolik

дайте текст задачи на укр языке. разберемся что надо. Вероятнее всего надо найти количество цифр числа имеющего наибльшую длину, немного не точно, но что - то в этом роде.

Именно это и нужно найти я ужепоняла))) помогите мне код написать а то меня завтра скушают(((

[Летучий_СкилетиК]

Сообщение от Sonne_asja

Создать файл действительных чисел. За один просмотр подсчитать количество чисел, имеющих наибольшую величину.

как то так:

uses crt;
type
    ptr = ^element;
    element = record
        inf : real;
        kol : integer;
        link : ptr;
    end;
var
   p, p2 : ptr;
   i : integer;
   f : file of real;
   x : real;
begin
p := nil;
    assign(f,'input.dat');
    reset(f);
    while (not eof(f)) do
    begin
         read(f,x);
         if p <> nil then
         begin
              if x > p^.inf  then
              begin
                   new(p2);
                   p2^.inf := x;
                   p2^.kol := 1;
                   p2^.link := p;
                   p := p2;
              end else
              if x = p^.inf then inc(p^.kol);
         end else
         begin
              new(p);
              p^.inf:=x;
              p^.kol:=1;
              p^.link:=nil;
         end;
    end;
close(f);
write(p^.inf,'->',p^.kol);
end.

[Sonne_asja]

Тоисть просто без использования отдельных процедур?)))

[Sonne_asja]

обьясни пожалуйста значение зминых))) link, inf )))

[Летучий_СкилетиК]

Сообщение от Sonne_asja

обьясни пожалуйста значение зминых))) link, inf )))

Используя стек так стек, хотя можно без стека используя 1 переменную.
link - это поле с указателем, inf - поле с числами считываемыми с файла, kol - поле с кол-вом цифр в файле.

[Sonne_asja]

Сообщение от Летучий_СкилетиК

Используя стек так стек, хотя можно без стека используя 1 переменную.
link - это поле с указателем, inf - поле с числами считываемыми с файла, kol - поле с кол-вом цифр в файле.

спасибо огромное)))
да без стека я ее сделала))) а вот со стеком...
большое спасибо за обьяснения!!!

[Sonne_asja]

Program maximov;
uses crt;
type
stack=^stackreal;
stackreal=record
inf:real;
next:stack;
end;
f_type=file of real;
var f: f_type; name:string;
max:real;
l:stack; a:real;
Procedure Init_file(var f:f_type);
begin
Checkeof:=true;
rewrite(f);
writeln('Vvedity chisla. Kinec ^Z');
while not eof do begin
read(a);
write(f,a);
end;
writeln;
close(f);
end;
Procedure init_stek(var l:stack; var max:real);
var
h:stack;
begin
reset(f); read(f,a);
l:=nil;
max:=a;
new(h);
h^.inf:=a;
h^.next:=l;
l:=h;
while not eof(f) do
begin
read(f,a);
if a>max then max:=a;
new(h);
h^.inf:=a;
h^.next:=l;
l:=h;
end;
close(f);
end;
Procedure druk_max(var l:stack; max:real);
var k:integer;
begin
k:=0;
while l<>nil do
begin
if l^.inf=max then k:=k+1;
l:=l^.next;
end;
writeln('Kilkist sliv= ',k);
end;
Begin
clrscr;
writeln('Vvedity name');
readln(name);
assign(f,name);
Init_file(f);
init_stek(l,max);
druk_max(l,max);
repeat until keypressed;
End.