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

Моля за помощ за курсова работа по Програмиране на Паскал

Препоръчан отговор


условието ми е: За група студенти са зададени Име,ЕГН,оценки по физика,математика и програмиране.Да се напише програма,която съхранява данните във файл и избира следните операции от меню:*създава празен файл*добавяне на данни за студентикъм файла*изтриване на данните за студент по зададен ЕГН*извеждане в текстов файл на имената и ЕГН на студентите които трябва да се явят на поправителен по ПрограмиранеКода ми е верен с изключение на последната процедура която не мога да се сетя как ще станеБЛАГОДАРЯ ВИ ПРЕДВАРИТЕЛНО!!------->>>>TypeTipStudent=recordIme:string[20]; EGN:string[10];OcFiz,OcMath,OcProgr:integer;end;VarStudentFl:file of TipStudent;TxtFl:text;ImeFl:string[20];Student:TipStudent;C:byte;Procedure ReadStudent(Var St:TipStudent);BeginWith St dobeginWrite(' ':20,'Vavedete ime: ');Readln(Ime);Write(' ':20,'Vavedete EGN: ');Readln(EGN);Writeln(' ':20,'Vavedete ocenki po 3-te disciplini: ');Write(' ':20,'Vavedete ocenka po fizika: ');Readln(OcFiz);Write(' ':20,'Vavedete ocenka po matematika: ');Readln(OcMath);Write(' ':20,'Vavedete ocenka po programirane: ');Readln(OcProgr);endEnd;Procedure WriteStudent(St:TipStudent);BeginWith St do Writeln('Ime: ',St.Ime);Writeln('EGN: ',St.EGN);Writeln('Ocenka po fizika: ',St.OcFiz);Writeln('Ocenka po Matematika: ',St.OcMath);Writeln('Ocenka po Programirane: ',St.OcProgr);End;Procedure SzdPrz;BeginRewrite(StudentFl); Close(StudentFl);Writeln;Writeln(' Failyt e syzdaden.')End;Procedure Dobaviane;VarCh:char;BeginReset(StudentFl); Seek(StudentFl,FileSize(StudentFl));RepeatReadStudent(Student); Write(StudentFl,Student);Write('Shte prodyljite li dobavqneto? ');readln(Ch)until Ch in ['N','n','Н','н'];;Close(StudentFl);End;Procedure Iztrivane;VarDelFl:file of TipStudent;EGN:string[10];BeginWrite('Vavedete EGN: ');Readln(EGN);Reset(StudentFl); Assign(StudentFl,'Del'); Rewrite(DelFl);While not EOF(StudentFl) dobeginRead(StudentFl,Student);If Student.EGN<>EGNthen Write(StudentFl,Student)else Writeln('Dannite za student s EGN: ',EGN,' sa iztriti.');end;Close(StudentFl); Close(DelFl); Erase(StudentFl); Rename(DelFl,ImeFl);Writeln;End;Procedure Izvejdane(St:TipStudent);With St do beginReset(StudentFl); Seek(StudentFl,1);While Not EOF(StudentFl) do beginRead(StudentFl,St);If St.OcProgr=2Append(TxtFl);Write(TxtFl,St)end;end;BEGINWrite('Zadaite ime na faila ');Readln(ImeFl);Assign(StudentFl,ImeFl);RepeatWriteln(' ':20,'MENU NA IZPALNQVANITE OPERACII:');Writeln(' ':33,'1 - za syzdavane na nov fail');Writeln(' ':33,'2 - za dobavqne na studenti');Writeln(' ':33,'3 - za iztrivane na studenti');Writeln(' ':33,'4 - za izvejdane v tekstov fail na neizdyrjalite izpit po Programirane');Write(' ':20,'Posochete operaciq ili 0 za krai: ');Readln©;Case C of1:SzdPrz;2:Dobaviane;3:Iztrivane;4:Izvejdane;end;until C=0End.

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

  • Разглеждащи това в момента   0 потребители

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

  • Горещи теми в момента

  • Подобни теми

    • от Фердинанд Костадинов
      Здравейте, имам задача по корпоративна политика
      Да се изясни достоверността и обективността на поднесената информация в 
      следния линк:

      https://www.youtube.com/watch?v=PEfeQ2pTaK0&feature=share
      Къде ли не търсих в интернет, но не намирам почти никаква информация, която да докаже, че нещата, които този човек
      говори и споделя са истина.Трябват ми поне няколко аргумента, за да мога да изясня достоверността на поднесената информация от
      г-н Станков.
      Когато му напиша името в гугъл ми излизат съобщения, че според не знам какви закони,
      са изтрити по негово желание доста линкове, а точно те ми трябват, как бих могъл да стигна до тях и въобще
      възможно ли е да се направи от човек, който не е толкова на ти с IT сферата?
      Възможно е някои резултати да са били премахнати съгласно европейското законодателство за защита на личните данни.
      Ако някой има идея, как мога да се справя с това като цяло, моля да сподели.
       
    • от Karttela
      Здравейте! Затруднявам се много с втората ми курсова работа по програмиране на c++. Моля някой да ми помогне понеже няма как да я направя... Ще съм много благодарен ако някой успее да ми помогне понеже тези файлове са ми пълна индия... Благодаря предварително ! Условието ще го кача като снимка!

    • от 97joro
      Хора, трябва ми спешно да направя една лесна (според преподавателя) задача на free Pascal, но не съм се занимавал никога с програмиране и за това, ако може някой да помогне със задачата и малко обяснение към нея, ще съм много благодарен.
      Ето и задачата: Да се намери сумата от елементите в отделните стълбове на двумерен масив с m реда и n стълба.
    • от Калин Иванов
      Дадена е права греда с размери и натоварване според схемата. Да се намерят големите на опорните реакции в т. А и т. В
      съср. момент - 13 M,kN.m
        разстояние a,m -1
        Интензивност на раз.товар q,kN -2
       

      Моля за помощ :):)
    • от justdoingit
      Здравейте, за съжаление изпитвам трудности с зададената ми курсна работа, стигнах до някъде и след това просто забих. Най-вече се изгубих във въвеждането на входните данни и отпечатването им. Моля помогнете ми поне за тях. Благодаря ви.
      Ето и условието на задачата:
      Да се състави програма за обработка на масива A[N,N] където данните са цели числа в интервала [-1000;1000]. Програмата да извърши следните действия:
      -отпечатване на условието на задачата.
      -отпечатване на имената на автора.
      -въвеждане на входните данни.
      -отпечатване на входните данни
      -а) да се образува едномерен масив D|N|,който се образува от всички елементи по-големи от P (P се въвежда от клавиатурата),които лежат под главния диагонал на дадения масив;
      -б) полученият масив да се сортира по големина;
      -отпечатване на получените резултати след обработка а) и след обработка б).
      Стигнах до тук:
      #include <stdio.h> #include <stdlib.h> #include <math.h> const int N=15; int n,j,i,m=0; int A[N][N],D[N]; int main() { printf("Vladislav Nikolov Hristov\n"); printf("MTF,Grupa: 19,Potok: 3,F.Nomer: 09849323\n"); printf("Da se systavi programa za obrabotka na masiva A[N,N], kadeto dannite sa celi chisla v intervala [-1000;1000]. Programata da izvyrshi slednite deistviq:\n"); printf("-otpechatvane na uslovieto na zadachata;\n"); printf("-otpechatvane na imenata na avtora na programata;\n"); printf("-vavejdane na vhodnite danni;\n"); printf("-otpechatvane na vhodnite danni;\n"); printf("a) da se obrazuva ednomeren masiv D|N|,koito se obrazuva ot vsichki elementi po-golemi ot P (P se vavejda ot klaviaturata),koito lejat pod glavniq diagonal na dadeniq masiv;\n"); printf("b) polucheniqt masiv da se sortira po golemina;\n"); printf("-otpechatvane na poluchenite rezultati sled obrabotka a) i sled obrabotka b)\n"); scanf("%d"); system("pause"); return 0; }  
       
       
       
  • Дарение

×

Информация

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