Dark`Elf Публикувано Декември 14, 2006 Report Share Публикувано Декември 14, 2006 Здравейте. Можете ли да ми помогнете с една задача на Паскал - Дадена е матрицата А от n-ти ред. Да се напише програма, която намира максималното от числата, срещащи се в матрицата повече от веднъж. Знам само, че задачата се решава с масив...мерси предварително на всички. Цитирай Link to comment Сподели другаде More sharing options...
Dennny Публикувано Март 4, 2008 Report Share Публикувано Март 4, 2008 Реших да не правя втора тема,имам проблем и аз уча Паскал.Ето я моята задача:Да се състави програма,в която се въвеждат студентите от един випуск с данни:име и фамилия,специалност,курс,факултетен номер, година на приемане и успех.Данните да се подредят в таблица по азбучен ред.Нека да се извеждат имената на 3-мата студенти с най-висок успех. Аз я написах,доколкото можах. Program zad1; type studenti=record ime:string[15]; familiq:string[15]; specialnost:string[15]; kurs:string[1]; faknom:string[7]; godnapr:string[4]; uspeh:real; edn; student=array[1..100] of studenti; var n,i:integer; j,d:integer; max:real; begin write('vavedete broi studenti '); readln(n); for i:=1 to n do with student[i] do begin write('vavedete ime '); readln(ime); write('vavedete familiq '); readln(familiq); write('vavedete specialnost '); readln(specilanost); write('vavedete kurs '); readln(kurs); write('vavedete faknom '); readln(faknom); write('vavedete godnapr '); readln(godnapr); write('vavedete uspeh '); readln(uspeh); end; d:=0; j:=1; max:=student[1]; for j:=2 to n-1 do if student[j].uspeh.max then begin d:=j; max:=student[j]; end; for j:=1 to 3 do writeln(student[j].ime); end; end.Ако някой е компетентен да помогне,плссссс! Цитирай Link to comment Сподели другаде More sharing options...
Препоръчан пост
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.