VPF::[Pascal]Строковые данные: писание, обработка

houmy

Дата 20.5.2008, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 20.5.2008

Репутация: нет
Всего: нет

Дан массив из восьми строк. В строке "фамилия студента_оценка1_оценка2". Приписать к каждой строке средний балл. отсортировать по убыванию балла и распечатать.

Задачу нужно решить без функций и процедур. Помогите разобраться и решить эту задачу плиз?

houmy

Дата 20.5.2008, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 20.5.2008

Репутация: нет
Всего: нет

Вот мой код, тут вводяться элементы матрицы, и выводятся без всяких изменений. Нужно чтобы он складывал число после первой "_" с числом после второй "_" и сумму делил на 2 и после отсортировал по убыванию. Какие нужно использовать команды и как это всё осуществить подскажите плиз?

Код

program sdfer;
var q:array[1..30,1..8] of string;j,i:integer;
begin
writeln('vvod strok:');
for j:=1 to 8 do
begin
readln(q[i,j])
end;
writeln('matrix:');
for j := 1 to 8 do writeln(q[i, j]);
writeln;
end.

houmy

Дата 21.5.2008, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 20.5.2008

Репутация: нет
Всего: нет

Поглядите, средний бал выводит, а как отсортировать незнаю, помогите решить плиз? Только плиз без функций и процедур.

Код

program lab6zad3;
uses crt;
const n=2;
var s:array[1..n]of string;
s1:array[1..20]of string;
i,t,q,c:integer;
sr:real;
st:string;
begin
clrscr;
for i:=1 to n do
begin
write('stydent nomer',i,':');{primer vvoda Popov_5_3}
readln(s[i]);
end;
for i:=1 to n do
begin
val(copy(s[i],pos('_',s[i])+1,1),t,c);
val(s[i][length(s[i])],q,c);
sr:=(t+q)/2;
str(sr:4:1,st);
s1[i]:=s1[i]+s[i]+' srednee='+st;
writeln(s1[i]);
end;
readln
end.

volvo877

Дата 21.5.2008, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Вот так:

Код


program lab6zad3;
uses crt;
const
  n = 5;

var
  s: array[1 .. n] of string;
  st: string;
  mark_1, mark_2: real;
  i, j, err: integer;

begin
  clrscr;
  for i:=1 to n do begin
    write('stydent nomer',i,':'); { primer vvoda Popov_5_3 }
    readln(s[i]);
  end;

  writeln('До сортировки:');
  for i:=1 to n do begin
    val(copy(s[i], pos('_',s[i])+1, 1), mark_1, err);
    val(s[i][length(s[i])], mark_2, err);
    str(((mark_1 + mark_2) / 2):4:1, st);
    s[i] := s[i] + ' srednee = ' + st;
    writeln(s[i]);
  end;

  for i := 1 to n do
    for j := n downto i + 1 do begin
      val(copy(s[j - 1], pos(' = ', s[j - 1]) + 4, 255), mark_1, err);
      val(copy(s[j    ], pos(' = ', s[j    ]) + 4, 255), mark_2, err);

      if mark_1 < mark_2 then begin
        st := s[j - 1]; s[j - 1] := s[j]; s[j] := st;
      end;
    end;

  writeln('После сортировки:');
  for i := 1 to n do
    writeln(s[i]);
  readln;
end.

(лишние переменные удалены...)

houmy

Дата 22.5.2008, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 20.5.2008

Репутация: нет
Всего: нет

Благодарю всё работает, как 100 постов наберу обязательно тебе + в репу поставлю smile

THandle

Дата 22.5.2008, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Цитата(houmy @ 22.5.2008, 21:55

)

Благодарю всё работает, как 100 постов наберу обязательно тебе + в репу поставлю smile

Поставил за тебя smile

houmy, помечай кстати тему как решенную smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »