Question

注意：这不是一个家庭作业，我不想回答这里给出的问题，这样你就可以更清楚地了解我的问题，因为我很难用英语解释它，请原谅我并试着理解我的要求。

这是我的姐妹ICT考试试卷中的一个问题，她请求我的帮助找到答案，但我只知道很少的Turbo Pascal。如果你能提供帮助我感激不尽。至少如何计算数组中有多少常见值并将它们放入变量中。这是问题所在。

在数组T（8） - 员工的出生年份在数组P（8） - 性别在数组S（8） - 公民身份

数字N的元素，编号为N - 员工N的出生年份数组P的元素，数字N - 员工N的性别数字为N的数组元素 - 雇员的公民身份N

P（N）= 0，女性员工 P（N）= 1，男性员工

S（N）= 0，单身员工 S（N）= 1，已婚员工

查找 K = 55岁的女性员工人数/女性总人数* 100

我要问的是如何将变量中的公共值（例如：Array = [1,0,0,1,1]只有2 0）的总和。< /强>

先谢谢

Answer 1

我在Pascal上下载了一本书，直到现在才读到它，并且至少读了一下......我发布这样可能对其他人有所帮助。它是这样的，它可能是错的但它在某种程度上起作用

Program Emp_Details(input, output);
uses crt;

var
Y: Array[1..8] of integer;
P: Array[1..8] of integer;
S: Array[1..8] of integer;

I: integer;
K: real;

YearCheck: integer;
FemaleCount: integer;

begin
 clrscr;
 For I:= 1 to 8 Do
 begin
      Write('Please enter Year of Birth: ');
      Readln(Y[I]);

      Write('Please Enter Gender: ');
      Readln(P[I]);

      if(P[I] = 0) then
           FemaleCount := FemaleCount + 1;


      Write('Please Enter Civil Status: ');
      Readln(S[I]);

      if(Y[I] = 1961) then
       if(P[I] = 0) then
            YearCheck := YearCheck + 1;

 end;

 K := (YearCheck/FemaleCount) * 100;
 Writeln(K);

 Readkey;
end.

PASCAL数组（从数组中选择公共值并将其插入变量）

1 个答案: