+ Ответить в теме
Показано с 1 по 2 из 2

Тема: нужна помощь ,не могу понять в чем ошибка

  1. #1
    Luntik is on a distinguished road
    Регистрация
    25.06.2016
    Возраст
    27
    Сообщений
    1
    Вес репутации
    0

    По умолчанию нужна помощь ,не могу понять в чем ошибка

    вот программаЖ
    uses crt;
    type
    sp=record
    nom:integer;
    fio:string[20];
    spec:string[6];
    group:string[3];
    end;
    var a:array[1..101] of integer;
    rasp:array[1..101] of sp;
    vr:sp;
    i,j,n,code,l,vp:integer;
    s,st,g:string;
    f:text;
    BEGIN
    N:=0;
    assign(f,'dano.txt');
    reset(f);
    l:=1;
    while not eof(f) do begin
    readln(f,s);
    with rasp[i] do begin

    g:=Copy(s,1,3);
    val(g,nom,code);
    fio:=Copy(s,6,20);

    g:=Copy(s,27,2);
    val(g,vp,code);
    spec:=Copy(s,6,20);


    group:=Copy(s,38,3);
    n:=n+1;
    end;
    l:=l+1;
    end;
    close(f);
    writeln;

    writeln('Начальный список:');
    for i:=1 to n do
    with rasp[i] do begin
    writeln('',nom,' ',fio,' ',spec,' ',group);
    end;


    writeln;
    writeln('Факультет ФВТ');
    for i:=1 to n do
    with rasp[i] do begin
    if (spec='ФВТ') then
    begin
    write('',nom,' ',fio,' ',spec,' ',group);
    writeln;
    end;
    end;

    writeln;
    writeln('Вывод специальности меньше 102030');
    for i:=1 to n do
    with rasp[i] do begin
    if s[36]>='102030' then
    writeln('',nom,' ',fio,' ',spec,' ',group);
    end;

    for i:=1 to n-1 do
    for j:=1 to n-i do
    if rasp[j].group>rasp[j+1].group then begin
    vr:=rasp[j];
    rasp[j]:=rasp[j+1];
    rasp[j+1]:=vr;
    end;
    writeln;
    writeln('Сортировка по возрастанию');
    for i:=1 to n do
    with rasp[i] do begin
    writeln('',nom,' ',fio,' ',spec,' ',group);
    end;

    assign(f,'dano1.txt');
    rewrite(f);
    for i:=1 to n do
    with rasp[i] do begin
    writeln;
    write(f,nom);
    write(f,fio);
    write(f,spec);
    write(f,group);
    end;
    close(f);
    END.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    coder garmayev is on a distinguished road
    Регистрация
    19.12.2013
    Адрес
    Irkutsk
    Возраст
    33
    Сообщений
    26
    Вес репутации
    11

    По умолчанию Re: нужна помощь ,не могу понять в чем ошибка

    1. Что делает эта программа (Вчитываться в чужой код, который автор сам поленился прокомментировать я лично не собираюсь)?
    2. Какая ошибка выпадает?
    3. Какого эффекта вы собираетесь добиться?

+ Ответить в теме

Похожие темы

  1. нужна помощь, где ошибка?
    Помогите составить меню для программы. program PCX_Viewer; uses Dos, Crt; const MaxBufLen = 65520;
    от king999 в разделе Delphi и Pascal
  2. массивы.не могу понять какая ошибка...(
    Б4-3. Дана матрица 5х5. Для данного натурального М найти сум- му тех элементов матрицы, сумма индексов которых равна М. При выполнении заданий...
    от A_L_E_N_K_A в разделе Ассемблер
  3. нужна помощь! где ошибка?
    Program PR11; Var x: array of real; m, xn, xk: real; a, b, c, d, i: byte; y: real; FO: text; Begin
    от Drive в разделе Delphi и Pascal
  4. Нужна помощь не могу решить контрольную
    Может кто нибудь поможет завтра вечером здавать Вариант 1 1. Алфавит и элементарные конструкции языка. Стандартные типы констант,...
    от tatuer в разделе Решите мне задачку
  5. Не могу понять
    подскажите, что не так,:( :confused: Дана последовательность целых чисел. Найти наибольший и наимень¬ший из номеров ее членов, попавших в заданный...
    от EgorX в разделе Delphi и Pascal

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения