программа на файлы в Turbo Pascal

[uiivalet]

помогите пожалуйста... в файлах на паскале совсем плохо понимаю(((
Создать программу которая создаёт на диске файл "Ведомость успеваемости учащихся класса" со следующей информацией:
фамилия и имя учащегося, название предмета, 3 предмета, 2 контрольные.
Программа должна обладать вводом, редактированием, выводом списка учащихся.
Вывод учащихся осуществлять по:
1. выполнившим хотя бы одну работу на "5".
2. все работы на "4" и "5".
3. две работы на "4" и "5".

заранее спасибо.

 

[acorn]

вам прайс-лист показать или вы предложите свою попытку решения?

 

[1ive]

Это разве задачка?!
На ТЗ уже больше похоже.

Добавлено: Если не понимаешь только работу с файлами, то легче просто почитать

Ссылка скрыта от гостей

 

[Dock1100]

На когда надо сделать?

 

[nayke]

Вообще больше похоже на работу с базами данных а не с файлами.. может в задание про файлы не говорилось? И какого рода требуется помощь? код.. направление.. готовая программа?

 

[bleene]

я не стал создавать отдельную тему и да простят меня модераторы а решил изложить свою проблему тут

само задание:
Даны три числа. Поменять местами большее и меньшее из этих чисел.

моё творчество:

var a:array[1..100]of integer;
x,y,i,min,max:integer;

begin

writeln('Введите 3 числа');
for i:=1 to 3 do read(a[i]);
min:=1;
max:=2;
for i:=1 to 3 do if a[i] > a[max] then max:=i else if a[i] < a[min] then min := i;
writeln('MAX = A[',max,'] = ', a[max]);
writeln('MIN = A[',min,'] = ', a[min]);
readln;
for i:=1 to 3 do write(a[i]);
end.

как поменять максимальное и минимально местами я понять не могу

 

[flashkpi]

Не хочу разбираться в Ваших творениях, вот код, не проверял на работоспособность, но обязан работать, к-во чисел выбираете самостоятельно

const n =3;
var a:array[1..n] of integer;
obm,i,min,max:integer;
n,k,k1:integer;
begin
randomize; 

for i:=1 to n do 
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
min:=a[1];
max:=a[1];
for i:=2 to n do 

if a[i] < min then 
begin  
min:=a[i];
k:=i;
End;
for i:=2 to n do 
if a[i] > max then 
begin
max:=a[i];
k1:=i;
end;

obm:=a[k];
a[k]:=a[k1];
a[k1]:=obm;

for i:=1 to n do
write(a[i],' ');
end.

 

[hosm]

как поменять максимальное и минимально местами я понять не могу

с помощью доп. переменной - посмотрите вот выше - код запостили.

 

[hosm]

для 3 чисел =)

 

[flashkpi]

НУ я ж написал, вы сами вводите любое количество, которое нужно, для Вашего частного случая вводите 3, и будет Вам массив из 3-х чисел, неужели даже это непонятно ?

 

[flashkpi]

Отредактировал код, теперь 3, если уж так тяжело переделать...

 

[bleene]

НУ я ж написал, вы сами вводите любое количество, которое нужно, для Вашего частного случая вводите 3, и будет Вам массив из 3-х чисел, неужели даже это непонятно ?

это-то понятно, затруднение вот что вызвало

Шибка: 0 - выход за границы диапазона изменения индекса строка 31....