ПОМОГИТЕ ПОЖАЛУЙСТА!!РЕШИТЬ 2 ЗАДАЧКИ (ТИП-ЗАПИСИ)

[Хыиуду]

C_O_D_E, зачем же так все усложнять?
меняем pol: string на male: boolean;
Ввод будет примерно такой:
writeln ('Введите 0, если человек - женщина, или 1, если мужчина');
readln(x);
if x=1 then male:=true else male:=false;

[Vovchik]

Хыиуду, а понял сейчас попробую переделать !!!!

[Vovchik]

вот я всё исправил принемайте вариант перврой задачи !!!!!!

Код: Выделить всё

uses crt;
type tab = record
      ves:real;
      pol:boolean;
     end;
const n=3;
var tabl:array [1..n] of tab;
    sred:real;
    obsh,obsh1,k:real;
    x:array[1..n]of byte;
    i:byte;
BEGIN
 clrscr;
 for i:=1 to n do
  begin
   writeln('Ведите данные N',i,':');
   write('Вес(kg):');readln(tabl[i].ves);
   write('Пол(если мужчины введите = 1/если женщины введите = 0)');readln(x[i]);
   writeln(' ');
  end;
 for i:=1 to n do
  begin
   if x[i] = 0
   then tabl[i].pol:=false { Женщины }
   else tabl[i].pol:=true; { Мужчины }
  end;
 for i:=1 to n do
  begin
   if tabl[i].pol = false
   then begin
         obsh1:=obsh1+tabl[i].ves;
         k:=k+1;
        end;
  end;
 sred:=obsh1/k;
 for i:=1 to n do
  begin
   if tabl[i].pol = true
   then obsh:=obsh+tabl[i].ves;
  end;
 writeln('Средний вес всех Женщин:',sred:20:2);
 writeln('Обший вес всех мужчин:',obsh:20:2);
 readln;
END.

[C_O_D_E]

C_O_D_E, зачем же так все усложнять?
меняем pol: string на male: boolean;
Ввод будет примерно такой:
writeln ('Введите 0, если человек - женщина, или 1, если мужчина');
readln(x);
if x=1 then male:=true else male:=false;

тогда можно вообще через Case X of

[Serge_Bliznykov]

ну, тогда уже можно
male := (x=1);
Все помнят анекдот, про то, чему равняется значение выражения 2+2=4 ??? ;-))

[Vovchik]

Люди хватит спорить задача уже решена !!!!!!!!!

[Хыиуду]

Vovchik, завсегдатаям этого форума уже давно неинтересно решать такие задачки сами по себе. Им хочется сделать максимально кратко и красиво.

[Serge_Bliznykov]

Хыиуду, в самую ТОЧКУ!!

[Medved]

давно неинтересно решать такие задачки

И не только такие! Только более сложные задачи появляются редко, ОЧЕНЬ редко. И если такие задачи появляются, то

завсегдатаи этого форума

после двух-трёх страниц решения пишут ещё страниц 10 обсуждения и упрощения=)

[Vovchik]

а понял !!!! значит присоеденяюсь к вам коллеги !!!