Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Матрица. Сдвиг сектров. Вводится квадратная матрица размером 15 х 15. Если во всех секторах максимальные элементы являются центральными, сдвинуть сектора на 1 положение по часовой стрелке с сохранением порядка взаиморасположения элементов. В противном случае сдвинуть сектора на 1 положение против часовой стрелки с сохранением порядка взаиморасположения элементов. Диагонали в состав секторов не входят. Ввод значений... https://www.cyberforum.ru/ turbo-pascal/ thread567446.html Олимпиадная задача. Нереальная история Turbo Pascal
Вы не поверите, но однажды в древности произошла такая история. На заседании круглого стола король Артур встал и сказал: «Пусть каждый рыцарь, сидящий от меня справа не более чем на b мест и не менее чем на a мест, получит по c золотых монет из моего кармана». Если занумеровать всех рыцарей числами от 1 до N против часовой стрелки, так что, рыцарь, сидящий справа от Артура, получит номер 1, а...
Turbo Pascal Графика. Рисование ломаной линии с фиксированием узлов клавишей https://www.cyberforum.ru/ turbo-pascal/ thread567387.html
Помогите пожалуйста с такой задачкой: Рисуется ломаная линия. Фиксирование первых и очередных узлов осуществляется нажатием клавиши ''Enter'', фиксирование последнего узла двойным нажатием клавиши ''Enter''. Для удаления всей ломаной линии необходимо нажать клавишу "Esc". Как фиксировать узел? 		Turbo Pascal Помогите описать программу https://www.cyberforum.ru/ turbo-pascal/ thread567385.html
Помогите описать программу препод сказал что коментарии это одно , а описание программы совсем другое Program GraphsMenu; Uses CRT,GRAPH; Const MaxMenuItem = 5; {Общие параметры} Var Ret : Byte; {МЕНЮ} x1,x2,y1,y2 : Integer;{с помощью этих переменных задаём квадрат на координатной плоскоти, внутренняя часть которого
Turbo Pascal Массив. Отсортировать его методом выделения минимального элемента в порядке убывания
Дан массив натуральных чисел А . Отсортировать их методом выделения минимального элемента в порядке убывания. Вычислить среднее арифметическое четных чисел. Вывести на экран отсортированный массив и вычисленное значение. Заранее большое спасибо! 		Turbo Pascal Составить программу нахождения минимального элемента в стеке https://www.cyberforum.ru/ turbo-pascal/ thread567341.html
Составить программу нахождения минимального элемента в стеке, состоящий их целых чисел в диапазоне от -50 до 50. я :wall:. обыскала всё, что смогла. ну никак не доходит до меня этот стек:wall: помогите пжалуста:flirt:
Turbo Pascal Система счисления из 2 в 10 и обратно с функцией вычитания и сложения https://www.cyberforum.ru/ turbo-pascal/ thread567339.html
система счисления из 2 в 10 и обратно с функцией вычитания исложения 		Найти сумму элементов между первым и вторым элементами таблицы, имеющими нулевое значение. Turbo Pascal
Составить алгоритм, находящий сумму элементов между первым и вторым элементами таблицы, имеющими нулевое значение. Спасибо за помощь)
Turbo Pascal Описать процедуру SortDec(A,N), выполняющую сортировку по убыванию массива A из N вещественных чисел Помогите решить срочно необходимо! Пожалуйста! Описать процедуру SortDec(A,N), выполняющую сортировку по убыванию массива A из N вещественных чисел. Массив A является входным и выходным параметром. С помощью этой процедуры отсортировать массивы A, B, C размера NA, NB, NC соответственно. https://www.cyberforum.ru/ turbo-pascal/ thread567326.html Turbo Pascal Записи. Работа с текстовыми файлами. Структура: фамилия, номер школы, класс, занятое место Тема: Записи. Работа с текстовыми файлами. На олимпиаде по информатике на школьников заполнялись анкеты: фамилия, номер школы, класс, занятое место. Эта информация хранится в текстовом файле. Составить программу определения списков учеников, занявших первое место, с указанием их класса. Добавлено через 23 часа 20 минут актуально..помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread567310.html
Рекурсивная функция. Вычислить сумму ряда Turbo Pascal
Дано натуральное число N. Вычислить: 1-1/2+1/4-1/8+...+(-1)^n*(1/2*n) используя рекурсивную функцию. Помогите пожалуйста. 		Turbo Pascal Числа преобразовать в строки, произвести их сцепелние в разных сочетаниях (изменить) помогите пожалуйста переделать задачу: запросите у пользователя числа, преобразуйте их в строки, произведите их сцепелние в разных сочетаниях и вывод на экран. Не забудьте поставить между строками пробел, в конце точку и начать с заглавной буквы. работает почти правильно - не правильно то, что сцепление производит не так как нужно: нужно чтобы прога перебрала все возможные варианты... https://www.cyberforum.ru/ turbo-pascal/ thread567262.html
0 / 0 / 0
Регистрация: 03.05.2012
Сообщений: 4
0

Создать файл, содержащий сведения о результатах сессии - Turbo Pascal - Ответ 2999206

06.05.2012, 22:20. Показов 1396. Ответов 1
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Подскажите, пожалуйста

Создать файл, содержащий сведения о результатах сессии: фамилия и инициалы студента, номер группы, успеваемость (массив из пяти элементов). Вывести в отдельный файл и на экран список студентов каждой группы, имеющих хотя бы одну неудовлетворительную оценку

Вот мое решение
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

Type student=record
fio:string[50];
grup:integer;
bal:array[1..5] of integer;
end;
var
spisok:array[1..100] of student;
i,n,a,b:integer;
begin
write('a');
read(a);
begin
for i:=1 to a do
begin
writeln(' введите фамилию ', i, ' студента  ');
readln(spisok[i].fio);
write('группа ');
readln(spisok[i].grup);
writeln('оценки');
for n:=1 to 5 do
begin
write('оценка № ', n, ' ');
readln(spisok[i].bal[n]);
end;
end;
for i:=1 to a do
for n:=1 to 5 do
if (spisok[i].bal[n]<=2) then
begin
writeln(spisok[i].fio);
break;
end;
end;
end.
Подскажите как рассортировать по группам?

Вернуться к обсуждению:
Создать файл, содержащий сведения о результатах сессии Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.05.2012, 22:20
Готовые ответы и решения:

Создать типизированный файл, содержащий сведения о сдаче студентами сессии
Создать типизированный файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит...

Создать файл, содержащий сведения о удачи студентами 1 курса кафедры "ЭВМ" сессии
Создать файл, содержащий сведения о удачи студентами 1курса кафедры &quot;ЭВМ&quot; сессии. Структура записи:...

Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии
Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи -...

Создать файл, содержащий сведения о сотрудниках
Помогите сделать задачу! Пожалуйста! Нужно создать файл, содержащий сведения о сотрудниках. ...

1
06.05.2012, 22:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 06.05.2012, 22:20
Помогаю со студенческими работами здесь

Создать файл, содержащий сведения об автомобиле
Создать файл, содержащий сведения об автомобиле. Структура записи: марка, номер автомобиля и...

Создать файл, содержащий сведения о сотрудниках учреждения
Здравствуйте, уважаемые! Помогите пожалуйста вот с такой задачей: Дан файл F, содержащий сведения...

Создать файл, содержащий сведения о сотрудниках института
Создать файл, содержащий сведения о сотрудниках института. Структура записи: фамилия работающего,...

Создать файл, содержащий сведения об ассортименте игрушек
Задача:

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru