Jump to content

Задача на Паскал


Препоръчан пост

Здравейте. Можете ли да ми помогнете с една задача на Паскал - Дадена е матрицата А от n-ти ред. Да се напише програма, която намира максималното от числата, срещащи се в матрицата повече от веднъж. Знам само, че задачата се решава с масив...мерси предварително на всички.
Link to comment
Сподели другаде

  • 1 year later...

Реших да не правя втора тема,имам проблем и аз уча Паскал.Ето я моята задача:

Да се състави програма,в която се въвеждат студентите от един випуск с данни:име и фамилия,специалност,курс,факултетен номер, година на приемане и успех.Данните да се подредят в таблица по азбучен ред.Нека да се извеждат имената на 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.

Ако някой е компетентен да помогне,плссссс! :help:

Link to comment
Сподели другаде

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гост
Отговори на тази тема

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   Не можете да качите директно снимка. Качете или добавете изображението от линк (URL)

Loading...
×
×
  • Създай ново...