Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Проверить, верно ли, что каждый член последовательности больше его номера https://www.cyberforum.ru/ pascalabc/ thread437569.html
5. Дана последовательность чисел a1, a2,..., an. Проверить, верно ли, что каждый член этой последовательности больше его номера. Заранее спс.
Pascal ABC Определить количество элементов матрицы, кратных числу 4, увеличить элементы в 3 раза
Дана матрица А(5х2), состоящая из целых чисел. • Ввести элементы матрицы, а затем вывести их. • Определить количество элементов матрицы, кратных числу 4. • Увеличить элементы исходной матрицы в 3...
Массив.Матрица Pascal ABC
Помогите, пожалуйста, решить задачу!!! Вычислить сумму и число положительных элементов матрицы А, находющихся над главной диагональю.
Pascal ABC Определить является ли матрица магическим квадратом Помогите, пожалуйста, решить задачу!!! Заранее, большое спасибо. Выручали уже не раз, а можно написать с обьяснениями, чтобы понять как это делается? Дана целая квадратная матрица n-го порядка.... https://www.cyberforum.ru/ pascalabc/ thread437465.html
Pascal ABC Начертить указанные детали https://www.cyberforum.ru/ pascalabc/ thread437310.html
Кто умеет, сделайте программы....пожалуйста
Рисунок через цикл Pascal ABC
Нужно нарисовать 6 колец в один ряд которые должны пересекаться.Нарисовать надо через цикл. Вложил картинку с примером,только на картинки 4 кольца а надо 6
Pascal ABC Двумерные массивы. Определить сумму положительных элементов, кратных числу 7, в каждой строке матрицы
Дана матрица А(mxn), состоящая из целых чисел. • Ввести элементы матрицы, а затем вывести их. • Определить сумму положительных элементов, кратных числу 7, в каждой строке матрицы. • Найти...
Pascal ABC Сформировать новую строку, где слова исходной строки разделялись бы двумя пробелами Помогите я ничего не понимаю Дана строка. Слова в тексте разделены одним пробелом. В конце текста – точка. Сформировать новую строку, где те же слова разделялись бы двумя пробелами. https://www.cyberforum.ru/ pascalabc/ thread437091.html
Pascal ABC Найти количество нулевых элементов в строке матрицы https://www.cyberforum.ru/ pascalabc/ thread437082.html
Массив считывается из файла, после чего находится кол-во нулевых элементов в строке, и записывается в выходной файл. В программе всё выполняется, а файл остается пустой. Не могу найти ошибку. ...
Pascal ABC Label Помогите и ету задачу надо срочна а я немогу ето сделать, надо ету прогу о ето сделать с меткой Label Program P\b; Uses crt; Var i:integer; Prizv:string; Begin Writeln ('введите слово');... https://www.cyberforum.ru/ pascalabc/ thread437044.html
любитель покушать
685 / 637 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
29.01.2012, 22:39 0

Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал

29.01.2012, 22:39. Показов 1182. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

_Camelot, файлы ищи на диске C
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
uses crt;
var
a: array [1..5] of string;
i,k: integer;
sdal, nesdal: text;
begin
assign(sdal, 'C:\sdal.txt');
assign(nesdal, 'C:\nesdal.txt');
rewrite(sdal);
rewrite(nesdal);
for i:=1 to 5 do
    begin
    write('Введите фамилию ',i,' студента: ');
    read(a[i]);
    write('Введите оценку ',i,' студента: ');
    read(k);
    if (k>2) and (k<=5) then
       writeln(sdal, a[i]);
    if (k<3) and (k>0) then
      writeln(nesdal, a[i]);
    end;
close(nesdal);
close(sdal);
end.


Вернуться к обсуждению:
Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2012, 22:39

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Операции с датой: вывести список студентов, кто не сдал книги в срок
Есть список студентов, в нем есть дата, когда студенту выдали книгу в библиотеке, и есть кол-во...

Узнать количество парней на 4 курсе, среди них кто сдал зимнюю сессию без троек
Сформировать массив содержащий несколько студентов из разных курсов. Узнать кол-во парней на 4...

Рассчитать средний балл каждого студента и начислить стипендию тем кто сдал без троек
Дана задачка: В БД содержится информация о студентах Ввуза: ФИО, №группы, результаты сдачи сессии...

Сдал экзамен 70-176!!
Поздравления высылайте на мое мыло :-)))

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