Developing.ru

1 ЗАДАЧА)Известны вес и пол каждого из 20 человек. Найти:

а) общую массу мужчин;

б) средний вес женщин.

2 ЗАДАЧА)Написать программу, в которой хранится информация об учениках музыкальной школы. Организовать меню для работы с программой, реализующее следующие пункты:

1- вывод всей информации в табличной форме;

2- вывод сведений о тех, кто играет на скрипке;

3- выход из программы.

вот ервая со второй пока не розобрался

Спасибо большое очень выручил___вот только без 2ой я не смогу здать----помогите

Вот как вариант второй

[syntax=Delphi]
Const
w=100;
Type
Rec =record
Sname:string[25];
Name: string[18];
Cl:byte;
Instr:string[20];
end;
Var
R:array[1..w] of Rec;
n,i,k:integer;
esc:char;
Procedure Input;
Begin
Writeln('Введите общее количество записей');
Readln(n);
Writeln('Введите данные учеников ');
For k:=1 to n do begin
Writeln('номер записи ',K);
Writeln;
Write('Введите фамилию ученика ');
Readln(R[k].Sname);
Write('Введите имя ученика ');
Readln(R[k].Name);
Write('Введите класс (от 0 до 7) ');
Readln(R[k].Cl);
Write('Введите инструмент ');
Readln(R[k].Instr);
end;
End;
Procedure OutPut;
begin
For k:=1 to n do begin
with R[k] do begin
Writeln(Sname:25,'|':4, Name:18,'|':4,Cl:4,'|':4,Instr:20,'|':4);
end;
end;
end;
Procedure Scripka;
var s,s1:string;
Begin
S:='Скрипка';
S1:='скрипка';
k:=1;
While k<=n do begin
if (R[k].Instr=S) or (R[k].Instr=S1) then begin
with R[k] do begin
Writeln(Sname:25,'|':4, Name:18,'|':4,Cl:4,'|':4,Instr:20,'|':4);
end;inc(k);
end
else inc(k);
end;
End;
Procedure Go_Out;
Begin
Writeln('Произведен выход из программы.');
Writeln('Для выхода в предыдущее меню, нажмите RESET');
Writeln('Press any key');
readln;
Halt;
end;
Begin
Input;
Writeln;
Repeat
Writeln('Для вывода всей информации на экран, нажмите 1');
Writeln('Для вывода данных, о тех кто играет на скрипке, нажмите 2');
Writeln('Для выхода из программы, нажмите 3');
Readln(i);
Case i of
1:OutPut;
2:Scripka;
3:Go_Out;
end;
Writeln('Press any key');
Until esc=#27;
End.

[/syntax]

всем большое спасибо и respect!!!!

Vovchik, немного советов по оптимизации

pol:string; - лучше не надо. Лучше все-таки boolean. Потому что, во-первых, "женщина" пишется как "woman", во-вторых, пользователь может ошибиться при наборе. У вас уже в программе глюк: предлагаете ввести Man/Wyman, а проверяете man/wyman - совпадения не будет никогда, потому что регистр символов имеет значение при проверке строковых констант. Одна проблема, исключительно морального характера - какой пол считать true, а какой false.

for i:=1 to n do
begin
if tabl.pol = 'man'
then obsh:=tabl.ves;
end;
Так мы найдем не общую массу мужчин, а массу последнего. Меняем obsh:=tabl.ves; на inc(obsh,tabl.ves)

А на шёт boolean спосибо я както упустил из вида (( так что приму ко вниманию !!!

Хыиуду, только у меня один вопрос как ето примерно будет выглядеть а то я сижу парю мозги но без стринга не как не получаеца, просто как ввести "женшины/Мужчины" без стринга ???

Vovchik
Ввод через множества можно. т.к. в наборе пользователь может допустить ну максимум 2-3 ошибки, поэтому если через множества, то
Женшины:'Ж' 'ж' 'Е' 'е' 'Н' 'н' 'Щ' 'щ' и т.д + транслит. если из 7 букв 5-6 находиться во множестве, значит правильно.

Это исключительно как вариант, ну что бы уже совсем без String