Премини към съдържанието

Валери Светлинов Димитров

Потребител
  • Публикации

    1
  • Регистрация

  • Последно онлайн

Харесвания

0 Неутрална репутация

Всичко за Валери Светлинов Димитров

  • Титла
    Новобранец
  1. Проблем с задача на Паскал

    Здравейте хора, имам проблем с задача на Паскал, до някъде съм я направил,но предпоследното условие е грешно, а последното не мога да го измисля, ще сe радвам ако някой удари едно рамо. Та ето го условието на задачата: За група студенти са зададени име, факултетен номер, оценки по 6 дисциплини. Да се състави, програма, която съхранява данните във файл и избира следните операции от меню: -създаване на празен файл; -добавяне на данни за студенти към файла; -изтриване на данните за студент по зададен ФН; -извеждане в текстов файл на броя на студентите, които имат повече от една двойка. Това е кода, който трябва да довърша. Код на програмата: Program Kursova_zadacha2; type TStudents=record Ime:string; Nomer:String[6]; Math,Prog,Fiz,Sport,VKc,Ang:Real; End; Var n,j,i:Integer; FS:File of TStudents; TS:TStudents; ImeFile:String; C:byte; Procedure Vhod (Var TS:TStudents); {Процедура за въвеждане на данни за студента.} Begin With TS do Begin Write('Въведете име на студента: ');Readln(Ime); Write('Въведете ФН на студента: ');Readln(Nomer); Write('Въведете оценка по математика: ');Readln(Math); Write('Въведете оценка по програмиране: ');Readln(Prog); Write('Въведете оценка по физика: ');Readln(Fiz); Write('Въведете оценка по Физ.култура: ');Readln(Sport); Write('Въведете оценка по Английски език: ');Readln(Ang); Write('Въведете оценка по ВКцКТТ: ');Readln(VKc); End; End; Procedure StudWrite(Var TS:TStudents); {Процедура извеждаща информация за студента} Begin With TS do Begin Writeln('Име: ',Ime); Writeln('Факултетен номер: ',Nomer); Writeln('Математика: ',math:0:2); Writeln('Програмиране: ',prog:0:2); Writeln('Физика: ',fiz:0:2); Writeln('Физ.култура: ',sport:0:2); Writeln('ВКцКТТ: ',vkc:0:2); Writeln('Английски език: ',ang:0:2); End; End; Procedure CreateFile; {Процедура за създаване на празен файл.} Begin Rewrite(FS); Close(FS); Writeln('Файлът е създаден'); End; Procedure Add; {Процедура за добавяне на студент.} Var Ch:char; Begin Reset(fs); Seek(fs,fileSize(fs)); Repeat Vhod(TS); Write(FS,TS); Writeln('Ще добавите ли още студенти ? <Y/N>');Readln(ch); until ch in ['N','n']; Close(FS); End; Procedure Edit; {Тази процедура трябва да изтрива данните за студент по зададен ФН.} Var TS:TStudents; nomer:String[6]; Begin Reset(fs); Write('Факултетен номер: ');Readln(nomer); while not EOF(fs) do Begin read(fs,ts); if(ts.nomer = nomer) then Begin seek(fs,filepos(fs)-1); With ts do begin write('Име на студента: ');readln(ime); write('ФН на студента: ');readln(nomer); write('Оценка по Математика: ');readln(math); write('Оценка по Програмиране: ');readln(prog); write('Оценка по Физика: ');readln(fiz); Write('Оценка ро Физ.култура: ');Readln(sport); write('Оценка по ВКцКТТ: ');Readln(vkc); Write('Оценка по Английски език: ');Readln(ang); write(fs,ts); end; end; close(fs); end; end; Procedure Menu; {Процедура за съставяне на меню.} Begin Write('Въведете име на файла: ');Readln(ImeFile); Assign(FS,ImeFile); Repeat writeln('':20,'МЕНЮ'); writeln('':40,'1:Създаване на празен файл'); writeln('':40,'2:Добавяне на данни за студенти'); writeln('':40,'3:Редактиране на информация'); Writeln('':40,'0 за изход');readln©; case c of 1:CreateFile; 2:Add; 3:Edit; else if c<>0 Then Begin Writeln('Грешка!'); Writeln('Натиснете <Enter> , за да продължите!'); Readln; end; End; Until c=0; End; Begin Menu; End.
  • Разглеждащи в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.