Вывести в файл данные учеников, которые получили больше 80 баллов - Pascal ABC - Ответ 9071706

@ChiliPalmer · 26.04.2016, 13:55

ulyana_, пару замечаний:
1. Там где вы присваиваете переменной B[st] часть исходной строки - откуда вы знаете, что осталось всего 3 символа? А если их не три - переменная неправильно "возьмет" часть исходной подстроки.
Я думаю, вместо цифры 3 в данном случае нужно использовать длину строки S, так как в ней после предыдущих удалений останется только "сумма баллов" в строчном виде. Но сумма баллов может варьироваться от нуля до сотни с лишним(например) и соответственно длина оставшейся строки будет в диапазоне 1-3 символа(а может и больше, в зависимости от максимально возможного размера общей суммы баллов), поэтому выделять именно три символа из оставшейся строки будет неправильно.
2. Rewrite(f2) я бы вынес вверх за цикл For, так как эта процедура будет в цикле "обнулять" ваш второй файл.
3. Условие занесения Инфы во второй файл у вас написано не совсем корректно. Нужно написать условие "x > 80", а не "x >= 80".
4. До занесения информации во второй файл, вам нужно вставить код сортировки, для осуществления которой я бы на вашем есте создал еще один массив - целочисленного типа и заносил бы туда баллы студентов вместе с заполнением остальных массивов(при чтении исходного файла в цикле).
Примечание: Сортировка у вас должна быть не совсем обычная. Так как вы не используйте в программе типизированную запись из трех элементов, вам придется при сортировке менять также местоположение соответствующих элементов в остальных массивах, чтобы впоследствии данные о фамилиях, именах и баллах соответствовали друг другу, как в исходных данных.

Добавлено через 2 минуты
П.с. Наверное с типизированной записью это бы выглядело немного проще.

Добавлено через 9 минут
П.с.2. Если вы все же не будете использовать типизированную запись, уточню по поводу своего 4-го пункта: тогда нужно создать не дополнительный массив, а просто поменять тип массива баллов на целочисленный, и заполнять его сразу числовыми значениями в цикле чтения инфы из исходного файла. Тогда будет проще его сортировать впоследствии.

Вернуться к обсуждению:
Вывести в файл данные учеников, которые получили больше 80 баллов Pascal ABC

Другие темы раздела
Pascal ABC В двух файлах записаны отсортированные массивы, объединить их, записать результат в третий файл В двух файлах записаны отсортированные по возрастанию массивы неизвестной длины. Объединить их и записать результат в третий файл. Полученный массив также должен быть отсортирован по возрастанию. https://www.cyberforum.ru/ pascalabc/ thread1721228.html	Вычислить количество расположений чисел в строке, которые можно получить из начальной строки Pascal ABC Числообменник Условие Числа от 1 до N выписаны подряд в строку. Разрешается менять местами любые два числа, между которыми в строке стоят ровно P1, P2, ... или PM, чисел (числа P1, P2, ..., PM заданы). Например, пусть N = 5, M = 2, P1 = 3, P2 = 2. Тогда после перестановки чиселв позициях 1 и 4 (между ними стоят 2 числа) и чисел в позициях 1 и 5 (между ними стоят 3 числа) получится...
Pascal ABC Рассчитать сумму денег по вкладу при вложении начальной суммы с фиксированной процентной ставкой https://www.cyberforum.ru/ pascalabc/ thread1720903.html Написать программу, рассчитывающую сумму денег по вкладу при вложении начальной суммы с фиксированной процентной ставкой дохода через определенное количество лет. Пользователь должен вводить с клавиатуры начальный вклад, число лет и процентную ставку.	Pascal ABC Найти фамилию человека по заданному адресу Дан список друзей: фамилии, имена, адреса (город, улица, дом, квартира). Требуется: а) найти фамилию человека по заданному адресу; б) найти адрес по введенной фамилии; в) найти фамилии тех, кто живет в разных городах, но имеет одинаковый адрес. Подскажите, пожалуйста, как решается данная программа? https://www.cyberforum.ru/ pascalabc/ thread1720864.html
Ввести четные числа, конец ввода 10-е нечетное число Pascal ABC вводятся четные числа,конец ввода 10-е нечетное число.	Pascal ABC Вычисления выражения с использованием нестандартных функций Составить программу для вычисления выражения с использованием нестандартных функций и подпрограмм для вычисления выражений. Вид функции выбрать самостоятельно. Вид выражения представлены в таблице 9 https://www.cyberforum.ru/ pascalabc/ thread1720850.html
Pascal ABC Определите, все ли элементы массива – простые числа, в матрице из вещественных элементов https://www.cyberforum.ru/ pascalabc/ thread1720797.html 1. В одномерном массиве, состоящем из n вещественных элементов: 1) определите, каких элементов больше – положительных нечетных или отрицательных четных; 2) определите, все ли элементы массива – простые числа. Не совсем поняла это задание. Заранее благодарю.	Pascal ABC Составить программу обработки двумерного массива согласно таблице : Дано матрицу действительных чисел. Составить программу обработки двумерного массива согласно таблице 7. Матрицы задаются таблицами 5 и 6. обозначения: m - количество лент матрицы n - количество столбцов матрицы i - начальный номер строки в таблице 5 j - начальный номер столбца в таблице 5 найменування матрици H8 m=8
Pascal ABC как найти добуток елементов каторие не =0 . Дано одновимірний масив дійсних чисел: X={0.01; -27.3; 0; 125.27; -371.45; 0; 12; -5; -172.3; 0.05; -17.1; найти добуток елементів, котрі не = 0 var A:array of real=(0.01,-27.3,0,125.27,-371.45,0,12,-5,-172,3,0.05,-17.1,49.5,-0.01); i:real; begin write('x= '); https://www.cyberforum.ru/ pascalabc/ thread1720620.html	Pascal ABC Как протабулировать функцию без оператора цикла Как это сделать без использования оператора цикла program Tabulyazia1; var x,a,b,h,f,c,d: real; begin a:=3.5; b:=4.0; h:=0.08; x:=a; https://www.cyberforum.ru/ pascalabc/ thread1720578.html
Найти сумму элементов последовательности Pascal ABC Дано действительное число x. последовательность a1,a2,... образована по следующему закону: An=X/sqrt(n)*(n+2)! Получить a1+...+ak, где k - наименьшее целое число, удовлетворяющее двум условиям: k>10 и \|ak+1\|<10-5 Помогите написать программу :(	Pascal ABC Переставить столбец и строку, в которой находится первый отрицательный элемент https://www.cyberforum.ru/ pascalabc/ thread1720559.html Дан двумерный квадратный массив. Переставить столбец и строку, в которой находится первый отрицательный элемент. Если такого элемента нет, то выдать сообщение Program perest; type Mass=array of integer; Var b:Mass; n,m,i,j:integer; procedure WWOD(var a: Mass);

	26.04.2016, 13:55