Рациональные числа в файле

@papirus · Регистрация: 21.07.2009

Студворк — интернет-сервис помощи студентам

В файле содержатся рациональные числа, причем рациональное число изображается в виде записи с двумя полями: числитель и знаменатель целого типа. Вычислить наибольшее из данных рациональных чисел. Если их несколько, то выдать номера компонентов всех таких чисел.

вот мое решение но не правильно выдает:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses crt;
const n=20;
type rac=record
     chisl:integer;
     znam:integer;
     end;
var f:file of integer;
    q:rac;
    i,max,a,b:integer;
BEGIN
clrscr;
randomize;
Assign(f,'m:/tp7/bin/exe_2/file.dat');
{$I-}
Rewrite(f);
{$I+}
if IOResult=0 then
   begin
        for i:=1 to (n div 2) do
            begin
            q.chisl:=random(101)-random(101);
            q.znam:=1+random(100);
            write(f,q.chisl);
            write(f,q.znam);
            writeln(i,': ',q.chisl,'/',q.znam,'=',q.chisl/q.znam:3:3);
            end;
        Close(f);
 
        Reset(f);
        read(f,q.chisl,q.znam);
        a:=q.chisl; b:=q.znam;
        seek(f,2);
        i:=2;
        while not eof(f) do
              begin
              read(f,q.chisl,q.znam);
              if (a*q.znam-b*q.chisl)<0 then
                 begin
                 a:=q.chisl; b:=q.znam;
                 max:=FilePos(f)-2;
                 inc(i,2);
                 end
              else
                  max:=FilePos(f)-i;
              end;
        seek(f,max);
        read(f,a,b);
 
        writeln('Naibolshee znachenie: ',a,'/',b,' ');
        write('Nomera vsex komponent s naibolshim znacheniem: ');
        seek(f,0);
        while not eof(f) do
            begin
            read(f,q.chisl,q.znam);
            if (a=q.chisl)and(b=q.znam) then write(FilePos(f)-2,' ');
            end;
        writeln;
   end
else writeln('File not be found!');
Close(f);
readln;
END.

Добавлено через 18 минут
хелп плз

Добавлено через 32 минуты
ну гляньте кто-нибудь

@EvgeniiSp · 13.11.2009, 20:16

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program EvgeniiSp;
uses crt;
const n=20;
type rac = record
            chisl:integer;
            znam:integer;
           end;
var 
 f: file of rac;
 q: rac;
 maximum: real;
 i,max,a,b: integer;
BEGIN
clrscr;
randomize;
maximum:=-100;
Assign(f,'d:file.dat');
Rewrite(f);
        for i:=1 to (n div 2) do
           begin
            q.chisl:=random(101)-random(101);
            q.znam:=1+random(100);
            write(f,q);
            writeln(i,': ',q.chisl,'/',q.znam,'=',q.chisl/q.znam:3:3);
           end;
        Close(f);
 
        Reset(f);
        while not eof(f) do
             begin
              read(f,q);
              if (q.chisl/q.znam) > maximum then
                begin
                 a:=q.chisl; b:=q.znam;
                 maximum:=q.chisl/q.znam;
                 max:=FilePos(f);
                end;
             end;
             
        writeln('Naibolshee znachenie: ',a,'/',b,' ');
        write('Nomera vsex komponent s naibolshim znacheniem: ');
        seek(f,0);
        while not eof(f) do
           begin
            read(f,q);
            if (q.chisl/q.znam) = maximum then write(FilePos(f),' ');
           end;
Close(f);
readln;
END.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .