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

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


Здравейте трябва ми помощ относно задачата  на паслал ако може да ми напишете сорскода

IMG_20171122_195513.jpg

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


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

Тя таз я решаваха скоро. Разгледай темите. Цялата май е написана. Копи пейст и бегай.

  • Харесва ми 1

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


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

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

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

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

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

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

Вход

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

Вход

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

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

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

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

    • от 97joro
      Хора, трябва ми спешно да направя една лесна (според преподавателя) задача на free Pascal, но не съм се занимавал никога с програмиране и за това, ако може някой да помогне със задачата и малко обяснение към нея, ще съм много благодарен.
      Ето и задачата: Да се намери сумата от елементите в отделните стълбове на двумерен масив с m реда и n стълба.
    • от Валери Светлинов Димитров
      Здравейте хора, имам проблем с задача на Паскал, до някъде съм я направил,но предпоследното условие е грешно, а последното не мога да го измисля, ще с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.
    • от Метин
      Имам за задача от два масива А(М) и B(N) да изведа всички нечетни числа. Правилна ли е програмата?
       
       
       
      program volensiderov;var A(M)[1..5]of Integer;B(N)[1..3]of Integer;M, N:Integer;beginwrite('N=);readln(N);write('M=');readln(M);for i:=1 to N do beginwrite('A[',N,]=',A[M]);readln; end;for i:=1 to M do beginwrite('B[',N,']=',B[N]);readln; end;for i:=1 to M do beginif A[M] 3mod2=1 then write('chisloto e nechetno');readln;if B[N] 3mod2=1 then write('chisloto e nechetno');readln;End.
    • от metobest
      Здравейте! Имам следния проблем : В средата за програмиране Turbo Pascal трябва да извърша действието степенуване , но когато напиша следния код : var a,b,x:real; begin write('a='); read(a); write('b='); read(b); x:=a^b; write('x=',x) end. ми дава грешка в знака " ^ " .Ако може да ми кажете къде е грешката и как може да се степенува ще съм ви много благодарен
  • Дарение

×

Информация

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