Множества, записи и работа с файлами Опции

[Spinne]

Задали мне тут задачки, в которые я просто не врубаюсь.
Ну например -  Дано множество символов. Определить ,есть ли в данном множестве определенный символ. В учебнике множества не могу найти вообще.
Вот еще -  Из списка группы вывести фамилии и имена девочек. Как использовать записи?
Ну и последняя - Построить график функции ......... и записать его в файл.

[oleg309]

Знаешь почему нет ни от кого ни какой реакции?

[AlaRic]

Олег, хватит комментировать  >:( Либо помогай, либо молчи!!!

[AlaRic]

Множества, пример:

Код

var s:string;
for i:=1 to n do
if s[i] in ["определенный символ"] then write('Есть');

Сообщение отредактировано: volvo - 18.12.2004 0:14

[AlaRic]

Записи:

Код

type people=record
familia:string[20];
name:string[10];
sex:char;
end;
var p:people;
...
...
for i:=1 to n do
begin
if sex='ж' then write(p.familia[i]',' p.name[i]);

Сообщение отредактировано: volvo - 18.12.2004 0:15

[Spinne]

Круто!

[Spinne]

Как вводить с клавиатуры множество символов? Как ввести имена и пол?

[AlaRic]

Множество символов может быть константой.
Вводи имена и пол примерно так:

Код

for i:=1 to n do
with p[i] do
begin
write('Имя'); readln(name);
write('Пол'); readln(sex);
end;

Сообщение отредактировано: volvo - 18.12.2004 0:17

[Spinne]

Склепал следующее, но показывает ошибку 121. Что делать?

Код

program Lab;
type people=record
name:string[10];
sex:char;
end;
var p:people;
i:integer;
BEGIN
for i:=1 to 5 do
with p[i] do
begin
write('имя'); readln(name);
write('пол'); read(sex);
end;
for i:=1 to 5 do
begin
 if sex='ж' then writeln(p.name[i]);
end;
END.

Сообщение отредактировано: volvo - 18.12.2004 0:18

[AlaRic]

Вот тебе исправленный код:

Код

program Lab;
const n=5;
type people=record
name:string[10];
fio:string[10];
sex:char;
end;
var p:array[1..n] of people;
i:integer;
BEGIN
for i:=1 to n do
begin
write('фам ');readln(p[i].fio);
write('имя '); readln(p[i].name);
write('пол '); readln(p[i].sex);
end;
for i:=1 to n do
if p[i].sex='1' then begin writeln(p[i].fio); writeln(p[i].name);  end;
end.

[Spinne]

А ты крутой перец!

[Spinne]

А как сделать чтобы вводить количество человек с клавиатуры?

[Spinne]

С множествами наклепал следующее:

Код

program Lab;
const n=5;
type M=set of 0..9;
var  s:string;
i:INTEGER;
BEGIN
for i:=1 to 5 do
begin
write('число');readln(s);
end;
for i:=1 to 5 do
if s[i] in [3] then writeln('есть!');
end;
END.

Но выдаёт ошибку 26.
А как в записях нужно вставить надпись типа

Код

var n:real;
write('введите количество человек');
read(n);

чтобы вводить количество человек с клавиатуры?

Сообщение отредактировано: volvo - 18.12.2004 0:23

[trminator]

s[i] - символ, а 3 - число.

Мог бы написАть не Ошибка 26, а Type Mismatch. Хотя бы потому, что в Дельфи, например, это ошибка имеет номер 14

[Spinne]

Согласен, ошибка вышла. Но если ставлю символ, то пишет unknown identifier. То есть все символы надо ещё как-то прописать?

[AlaRic]

Вот вариант без множества:

Код

program Lab;
const n=5;
var  s:array[1..n] of char;
i:INTEGER;
BEGIN
for i:=1 to 5 do
begin
write('число ');readln(s[i]);
end;
for i:=1 to 5 do
if s[i] in ['3'] then writeln('есть!');
END.

[Spinne]

И всё-таки как вводить с клавиатуры количесиво человек?

[AlaRic]

Вариант с множеством:

Код

program Lab;
const n=5;
var  s:array[1..n] of char;
a:set of char;
i:integer;
BEGIN
a:=['1','2','3','4','5','6','7','8','9','0'];
for i:=1 to n do
begin
write('число ');readln(s[i]);
end;
for i:=1 to n do
if s[i] in a then writeln('есть!');
END.

2) В чем проблема?
var d:byte;
writeln('кол-во ');
readln(d);
for i:=1 to d do
.......и т.д.

[Spinne]

Ну тупой я! Ну не знаю куда его всунуть!
Вот последний вариант:

Код

program Lab;
const n=5;
type people=record
name:string[10];
familia:string[20];
sex:char;
end;
var
p:array[1..n] of people;
i:integer;
BEGIN
for i:=1 to n do
begin
write('фамилия-'); readln(p[i].familia);
write('имя-'); readln(p[i].name);
write('пол-'); readln(p[i].sex);
end;
for i:=1 to n do begin
if p[i].sex='¦' then writeln('имена:',p[i].name,' ',p[i].familia);  end;
end.

Ну куда его совать?

Сообщение отредактировано: volvo - 18.12.2004 0:48

[AlaRic]

Присваиваешь значение n заведомо большее чем нужно. Например:

Код

program Lab;
const n=500;
type people=record
name:string[10];
familia:string[20];
sex:char;
end;
var
p:array[1..n] of people;
i,s:integer;
BEGIN
writeln('ввести кол-во');
readln(s);
for i:=1 to s do  
begin
write('фамилия-'); readln(p[i].familia);
write('имя-'); readln(p[i].name);
write('пол-'); readln(p[i].sex);
end;  
for i:=1 to s do begin  
if p[i].sex='¦' then writeln('имена:',p[i].name,' ',p[i].familia);  end;
end.