Важная информация
Показано с 1 по 4 из 4

Тема: Turbo Pascal Создание и работа с типизированными файлами

  1. #1 Turbo Pascal Создание и работа с типизированными файлами 
    Новичок
    Регистрация
    10.03.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Создание и работа с типизированными файлами,строки которых имеют тип запись

    Помогите пожалуйста создать программу,не особо разобралась с этой темой и не могу понять как вычисляется суммарное кол-во денег.

    Файл содержит записи со сведениями о студентах группы(фамилия, имя, отчество, размер стипендии). Вычислить суммарное количество денег, полученное студентами за 4 семестр.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Раз уж не разобрались, привожу по полной...
    Запись:
    Код :
    type
      TRecSt = record
      Name1:String; // Фамилия
      Name2:String; // Имя
      Name3:String; // Отчество
      Step:double;  // стипендия
    end;
    Ввод данных:
    Код :
      N:=StrToInt(InputBox('Ввод студентов','введите количество студентов','2'));
      SetLength(Student,N);
      For I:=0 To N-1 Do
      Begin
        Student[I].Name1:=InputBox('Фамилия','введите фамилию студента','');
        Student[I].Name2:=InputBox('Имя','введите имя студента','');
        Student[I].Name3:=InputBox('Отчество','введите отчество студента','');
        Student[I].Step:=StrToInt(InputBox('Стипендия','введите стипендию студента','200'));
      End;
    Вычисление суммы:
    Код :
      Sum:=0;
      N:=StrToInt(InputBox('Ввод месяцов','введите количество месяцов в семестре','4'));
      For I:=0 To (Length(Student)-1) Do
      Begin
        Sum:=Sum+Student[I].Step;
      End;
      Sum:=Sum*N;
      ShowMessage(FloatToStr(Sum));
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    10.03.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите пожалуйста откомпилировать,чтобы работало,а то я уже запуталась!
    program bl;
    uses crt;
    type
    studrec=record
    surname:string[20];
    name:string[20];
    otchestvo:string[20];
    stependia:integer;
    end;
    file_typl=file of studrec;
    var
    school:array[1..n] of studrec;
    f:file_typl;
    i,c,n:integer;
    summa:integer;
    Begin
    clrscr;
    assign(f,'lab-16.txt');
    rewrite(f);
    writeln('Vvedite kol-vo studentov',n,':');
    write('Vvedite surname student:');
    readln(school[n].surname);
    write('Vvedite name student:');
    readln(school[n].name];
    write('Vvedite otchestvo student:');
    readln(school[n].otchestvo);
    write('Vvedite stependia student:');
    readln(school[n].stependia);

    summa:=0;
    for i:=1 to n do
    begin
    summa:=summa+school[n].stependia;
    writeln('Vvedite kol-vo mesyacev v semestre:',c);
    readln(c);
    summa:=summa*c;
    readln;
    end;
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Дина Посмотреть сообщение
    Помогите пожалуйста откомпилировать,чтобы работало,а то я уже запуталась!
    Код :
    school:array[1..n] of studrec;
    n должно быть объявлено и определено, до определения массива.
    Код :
    readln(school[n].name];
    закрывающая скобка должна быть круглой!

    Определитесь точно с количеством студентов, где Вы его берете.
    Внимательнее надо быть, и желательно читать сообщения компилятора , потому, что синтаксические ошибки то он полностью вычисляет.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Две задачи в TC(Turbo C или же Turbo C++)
    от Bewusteloos в разделе C/C++
    Ответов: 1
    Последнее сообщение: 11.02.2013, 23:59
  2. Ответов: 0
    Последнее сообщение: 14.02.2012, 20:36
  3. Работа с файлами
    от nikita в разделе QBasic
    Ответов: 6
    Последнее сообщение: 05.05.2011, 07:23
  4. Ответов: 12
    Последнее сообщение: 28.01.2011, 01:33
  5. Сайт про Turbo Pascal
    от Konstantin Shcherba в разделе Архив
    Ответов: 5
    Последнее сообщение: 22.12.2010, 22:54
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •