Информация о студентах...

[manchester_alan]

После поступления в ВУЗ о студентах собрана информация: фамилия, нуждается ли в общежитии, стаж, работал ли учителем, что окончил, какой язык изучал. Составить программу, определяющую: 1) сколько человек нуждается в общежитии; 2) списки студентов, проработавших 2 и более лет учителем...

нужно сделать не через файл, а через тип запись...

Помогите пожалуйста вот с этим...

[Stilet]

Попытками похвастаться можешь?

[manchester_alan]

Сообщение от Stilet

Попытками похвастаться можешь?

что-то есть..

Type Anketa=Record
     Fam,Obraz,Yazik:string[20];
     Obsch,Rab:string[3];
     Staj:0..30;
     End;
Var w:array[1..n]of Anketa;
    s:Anketa;
    n,i,k:integer;
Begin
    write('Введите кол-во анкет: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом студенте: ');
      write('Введите Фамилию: ');readln(s.Fam);
      write('Введите нуждается ли в общежитие (yes/no): ');readln(s.Obsch);
      write('Введите стаж: ');readln(s.staj);
      write('Введите что окончил: ');readln(s.obraz);
      write('Какой язык изучал: ');readln(s.yazik);
     End;
 {Сколько человек нуждается в общежитии}
      if s.Obsch='yes' then inc(k); writeln(k);
    Writeln('Список студентов работавших учителем более 2-х лет');
      if (s.staj in [2..30])and(s.rab='yes') then writeln(s.fam);

[Stilet]

О! Красата )
Теперь рассказывай чем эта наработка не подходит.

[manchester_alan]

Сообщение от Stilet

О! Красата )
Теперь рассказывай чем эта наработка не подходит.

ну нужно как-то через тип запись сделать.. там еще with w[i] do знаю надо вставить... поможете?

[Stilet]

нужно как-то через тип запись сделать

Внимательнее посмотри свой код. Там и так используется этот тип.

[manchester_alan]

Сообщение от Stilet

Внимательнее посмотри свой код. Там и так используется этот тип.

ну это да.. но там не выводится нормально..

вот еще чуть изменил...

но как мне сделать чтобы работало как надо, пожалуйста?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

Type Anketa=Record
     Fam,Obraz,Yazik:string[20];
     Obsch,Rab:string[3];
     Staj:0..30;
     End;
Var w:array[1..100]of Anketa;
    s:Anketa;
    n,i,k:integer;
Begin
    SetConsoleCP(1251); SetConsoleOutputCP(1251);
    write('Введите кол-во анкет: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом студенте: ');
      write('Введите Фамилию: ');readln(s.Fam);
      write('Введите нуждается ли в общежитие (да/нет): ');readln(s.Obsch);
      write('Введите стаж: ');readln(s.staj);
      write('Работал ли учителем? (да/нет)'); Readln(s.rab);
      write('Введите что окончил: ');readln(s.obraz);
      write('Какой язык изучал: ');readln(s.yazik);
     End;
     Writeln('Сколько человек нуждается в общежитии: ');
      if s.Obsch='да' then inc(k); writeln(k);
    Writeln('Список студентов работавших учителем более 2-х лет');
      if (s.staj in [2..30])and(s.rab='да') then writeln(s.fam);

    Readln;
end.

[Stilet]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

Type Anketa=Record
     Fam,Obraz,Yazik:string[20];
     Obsch,Rab:string[3];
     Staj:0..30;
     End;
Var w:array[1..100]of Anketa;
    n,i,k:integer;
Begin
    SetConsoleCP(1251); SetConsoleOutputCP(1251);
    write('Введите кол-во анкет: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом студенте: ');
      write('Введите Фамилию: ');readln(w[i].Fam);
      write('Введите нуждается ли в общежитие (да/нет): ');readln(w[i].Obsch);
      write('Введите стаж: ');readln(w[i].staj);
      write('Работал ли учителем? (да/нет)'); Readln(w[i].rab);
      write('Введите что окончил: ');readln(w[i].obraz);
      write('Какой язык изучал: ');readln(w[i].yazik);
      if w[i].Obsch='да' then inc(k); writeln(k);
     End;

    Writeln('Сколько человек нуждается в общежитии: ',k);

    For i:=1 to n do
    Writeln('Список студентов работавших учителем более 2-х лет');
      if (w[i].staj in [2..30])and(w[i].rab='да') then writeln(w[i].fam);

    Readln;
end.

P.S. Без обид, но если ты эту профессию выбрал себе на будущее, может стоит задуматься о другой? Диллер или брокер. Но диллером лучше.

[manchester_alan]

да какие обиды, спасибо)) посмотрим, пока только начинаю же)

[Stilet]

пока только начинаю же)

Так ведь не с того начинаешь судя по всему )
Циклы не знаешь. Теорию по записям тоже на троечку. Да и что такое массивы тоже судя по коду не знаешь.