циклы (B delphi)

[WiZzarD94]

Вводя в цикле по четыре оценки, полученные каждым студентом в сессию, подсчитать число студентов, не имеющих оценок 2 и 3. В группе учится N студентов

[Sciv]

Эх ты. Волшебник, а волшебные слова забыл!

[WiZzarD94]

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

Эх ты. Волшебник, а волшебные слова забыл!

Прошу простить, за дерзость сию,ведь торопился я немного.
Господа, помогите пожайлуста, и благодарение взайдет на каждого помогшему мне.
У мне все господа, зарание Спасибо говорю.

[DiemonStar]

Const N  = 5;
var I, J, Count: Integer; 
      Rates : array [1..N, 1..4] of Byte;
      prGood : Boolean;
begin
  Count := 0;
  For I := 1 to N do
    begin
      prGood = True; 
      For J := 1 to 4 do
         If Rates[I, J] < 4 then prGood := False;
      If prGood then Count := Count + 1; 
    end;   
end;

так как свои наработки зажали, то допиливать придётся вам самим.

[Sciv]

Прошу простить, за дерзость сию,ведь торопился я немного.
Господа, помогите пожайлуста, и благодарение взайдет на каждого помогшему мне.
У мне все господа, зарание Спасибо говорю.

Ну зачем так витиевато? Вполне хватило бы "Помогите, пожалуйста"

[apromix]

Вот ответ для консоли. Если требуется оконное приложение, то там по аналогии

program stud;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  N: Word; // Общее кол. студентов
  R: Word; // Результат, число студентов, не имеющих оценку 2 и 3
  I: Word; // Переменная цикла
  A, B, C, D: Byte; // Оценки
begin
  Write('Chislo studentov: ');
  Read(N);
  if N > 0 then
  begin
    R := 0; // Перед подсчетом у нас 0 студентов
    for I := 1 to N do
    begin
      // Ввод оценок
      WriteLn;
      WriteLn('Vvedite ocenki ' + IntToStr(I) + '-go studenta: ');
      ReadLn(A);
      ReadLn(B);
      ReadLn(C);
      ReadLn(D);
      // Подсчитываем
      if (A > 3) and (B > 3) and (C > 3) and (D > 3) then
        R := R + 1;
    end;
    WriteLn;
    WriteLn('Podschet zavershen!');
    WriteLn('Studentov: ' + IntToStr(R));
    WriteLn('Najmite lubujy klavishy...');
  end;
  ReadLn;
end.

[Serge_Bliznykov]

ТЕМА ЗАКРЫТА ЗА КРОССПОСТИНГ!


Оставляю тему, которая была создана чуть позже.
(Delphi) циклы. задание и мой код внутри. Проверте


Модератор