Расположить оценки студента в заданном порядке

@IAmHated · Регистрация: 27.10.2009

Студворк — интернет-сервис помощи студентам

Имеется n итоговых оценок студента. Расположите эти оценки в следующем порядке: десятки, восьмерки, шестерки. Остальные оценки в произвольном порядке.

@Puporev · 24.10.2011, 19:25

Если проходили подпрограммы, то перестановку нужно написать процедурой.

Pascal

uses crt;
var a:array[1..100] of byte;
    n,i,j,k,x:byte;
 
Begin
clrscr;
randomize;
write('Сколько оценок n=');
readln(n);
writeln('Оценки:');
for i:=1 to n do
 begin
  a[i]:=random(11);
  write(a[i]:3);
 end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=6 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
k:=0;
for i:=1 to n do
if a[i]=8 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
k:=0;
for i:=1 to n do
if a[i]=10 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:3);
readln
end.

@tonia233 · 02.03.2013, 02:30

а как она будет выглядеть через процедуру?

@Puporev · 02.03.2013, 08:06

Pascal

uses crt;
type mas=array[1..100] of byte;
procedure perest(var a:mas;n,p:byte);
var i,j,k,x:byte;
begin
k:=0;
for i:=1 to n do
if a[i]=p then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
end;
var a:mas;
    n,i:byte;
Begin
clrscr;
randomize;
write('Сколько оценок n=');
readln(n);
writeln('Оценки:');
for i:=1 to n do
 begin
  a[i]:=random(11);
  write(a[i]:3);
 end;
writeln;
perest(a,n,6);
perest(a,n,8);
perest(a,n,10);
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:3);
readln
end.

@IAmHated 1 / 1 / 2 Регистрация: 27.10.2009 Сообщений: 109
		1
	Расположить оценки студента в заданном порядке 24.10.2011, 18:53. Показов 743. Ответов 3 Метки нет (Все метки) Имеется n итоговых оценок студента. Расположите эти оценки в следующем порядке: десятки, восьмерки, шестерки. Остальные оценки в произвольном порядке. 0

@tonia233 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 29
	02.03.2013, 02:30	3
	а как она будет выглядеть через процедуру? 0

	02.03.2013, 08:06

Опции темы