вычислить количество элементов массива, лежащих в диапазоне от А до В

[Gigatrest]

Организовать типизированный файл, содержащий сведения о студентах: ФИО, номер курса, номер группы, форма обучения (бюджетная, договорная), успеваемость – 5 экзаменов в каждой из 9 сессий. Написать подпрограмму-процедуру для организации безопасного ввода оценок – целые числа в диапазоне от 2 до 5.

и вот еще

[crc83]

а help по работе с типизироваными файлами прочесть слабо?
или учится уже не можно

Кстате кто тебя потом на работу возьмет

[Gigatrest]

спасибо за совет, но времени не осталось совсем...
очень прошу помочь!

[maladoy]

2

uses crt;
var dx,x,e,y,t:real;
i:integer;
begin
clrscr;
write('x=');readln(x);
write('e=');readln(e);
dx:=x;
y:=0;
i:=0;
t:=1/(2*i+1);
while abs(dx)>e do
begin
y:=y+dx*t;
inc(i);
dx:=-dx*x*x;
t:=1/(2*i+1);
end;
writeln('Rezultat razlozenia=',y:0:5);
writeln('Rezultat vychislenia=',arctan(x):0:5);
writeln('Chislo iteracij=',i);
readln
end.

[Gigatrest]

спасибо)) перед сессией совсем не работают мозги

[Gigatrest]

помогите пожалуйста разобраться с типизированным файлом!

[puporev]

Условие несколько идиотское. Если 9 сессий, то курс скорее пятый. А если дошел до 5 курса, то двоек в зачетке не должно быть. И вводить по 45 оценок каждому в учебных целях, рука отнимется. Но сделаем как написано.

uses crt;
const n=9;//сессии
      m=5;//оценок в сессию
type Tmatr=array[1..n,1..m] of byte;//массив оценок
     TStud=record  //тип запись с полями по условию
           fio:string[20];
           krs:byte;
           grp:word;
           fob:string[20];
           usp:Tmatr;
           end;
procedure Ocenki(var x:Tmatr);//процедура "безопасного" ввода оценок
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
  begin
    repeat
     write('Ocenka[',i,',',j,']=');
     readln(x[i,j]);
    until x[i,j] in [2..5];//проверяем, если не такая повторяем ввод
  end;
end;
var ks,i,l,j:byte;
    sp:array[1..100]of Tstud;//массив записей, список студентов со всеми данными
    f:file of Tstud;//типизированный файл
begin
clrscr;
assign(f,'stud.dat');//создаем файл
rewrite(f);//открываем для записи
write('Kolichestvo studentov ks=');
readln(ks);
for i:=1 to ks do
  begin
   writeln('Student ',i);  //вводим данные
   write('Familia I.O.: ');readln(sp[i].fio);
   write('Kurs: ');readln(sp[i].krs);
   write('Gruppa: ');readln(sp[i].grp);
   write('Forma obuchenia: ');readln(sp[i].fob);
   Ocenki(sp[i].usp);//вызываем процедуру ввода оценок
   write(f,sp[i]); //заносим запись в файл
  end;
clrscr;//очищаем экран
writeln('Spisok studentov:');
reset(f);//открываем файл для чтения
i:=1;
while not eof(f) do//пока не конец файла
 begin
   read(f,sp[i]);//читаем очередную запись
   writeln(sp[i].fio,'  Kurs-',sp[i].krs,'  Gruppa-',sp[i].grp);//выводим данные
   writeln('Ocenki:');
   for l:=1 to n do //выводим в виде таблицы оценки
     begin
       for j:=1 to m do
       write(sp[i].usp[l,j]:3);
       writeln;
     end;
   readln;//после каждого делаем задержку до нажатия Enter, а то много на экран не войдет
 end;
close(f);//закрываем файл
readln
end.