Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Nyshk@
2 / 2 / 2
Регистрация: 06.06.2013
Сообщений: 83
#1

Расположить в порядке по убыванию

02.03.2016, 19:19. Просмотров 154. Ответов 2
Метки нет (Все метки)

помогите написать задачу, вот этот код надо дополнить, чтобы в файле все стояло по убыванию.

Задание
Дополнить предыдущую программу так, чтобы в файл данные записывались упорядоченными по убыванию суммы набранных студентом за семестр баллов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program f1;
uses crt;
procedure ReadTextFile;
var
  f,v:text;
  k,sum:integer;
  st,fam,s1:string;
begin
  assign(f,'sem1_213.txt');
  assign(v,'itog.txt');
  reset(f);
  rewrite(v);
  while not(eof(f))do
    begin
      readln(f,st);
      k:=pos(',',st);
      fam:=copy(st,1,k-1);
      delete(st,1,k);
      sum:=0;
      while pos(',',st)>0 do
        begin
          k:=pos(',',st);
          s1:=copy(st,1,k-1);
          sum:=sum+strtoint(s1);
          delete(st,1,k);
        end;
      sum:=sum + strtoint(st);
      writeln(v,fam:32,' - ',sum);
    end;
  close (f);
  close (v);
end;
 
begin
  ReadTextFile;
end.
0
Вложения
Тип файла: txt sem1_213.txt (2.2 Кб, 2 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2016, 19:19
Ответы с готовыми решениями:

Расположить ненулевые элементы последовательности по убыванию
Ребят, помогите написать программку! Ничего не смыслю в программировании, учусь...

Расположить элементы первой половины массива в порядке возрастания,а второй половины в порядке убывания
Дан массив(random). Расположить элементы первой половины массива в порядке...

Расположить элементы заданной строки матрицы по убыванию
ввести двумерный массив m на n, ввести номер строки и распол. элементы строки...

Удалить нулевые элементы массива, а остальные расположить по убыванию
1. Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив...

Сжать массив, выбросив нулевые элементы, а оставшиеся расположить по убыванию
Помогите решить. 1. Задан массив, содержащий несколько нулевых элементов....

2
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,818
02.03.2016, 19:24 #2
Да нафига тебе что-то писать, если ты все равно свою тупость переписываешь?
0
Nyshk@
2 / 2 / 2
Регистрация: 06.06.2013
Сообщений: 83
02.03.2016, 22:58  [ТС] #3
Спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2016, 22:58

Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию
Помогите пожалуйста решить задачу в Pascal ABC, как можно быстрее. Дана матрица...

Расположить слова строки в обратном порядке
Дана строка, состоящая из русских слов, разделенных пробелами (одним или...

Фамилии расположить в обратном порядке по алфавиту
Исходная информация представлена в виде трех массивов, содержащие: - Фамилию...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru