помогите ребят, сделать програмку в делфи

[SалександрS]

имеются данные о выставленых оценках по математике для 10 студентов. получить список студентов, имеющих оценку 2, если таких нет, то выдать соответствующее сообщение

[Stilet]

Имеются в каком виде?

[SалександрS]

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

Имеются в каком виде?

в основном должен использоваться компонент StringGrid(таблица)

[Stilet]

С потолка:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 With StringGrid1 do begin
   RowCount:=10;
   ColCount:=5;
   Options:=Options+[goEditing,goAlwaysShowEditor];
   FixedCols:=0; 
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin
 s:='';
 with StringGrid1 do
  for i:=1 to RowCount-1 do
   if Rows[i].IndexOf('2')<>-1 then s:=s+Cells[0,i]+#13#10;
 if s='' then s:='Тут все Друзи.'; ShowMessage(s);
end;

end.

1) Не копипастить - не поможет
2) Первая колонка - ФИО студня.
3) С потолка, не проверял.

[SалександрS]

Спасибо огромное(все работает)

[SалександрS]

можно так же к этой программе, алгоритм решения, и обсолютно любую спецификацию(хотя бы блок схему)

[Stilet]

На словах опишу:
В цикле по строкам в каждой rows[] проверяется наличие символа "2" в ячейке. Этим занимается IndexOf(). Если найдено - двоешник, к s добавляется его ФИО. Потом добавленные ФИО выводятся.