[Windowsme]

Такой трабл парни) весь семестр х#$ пропинал, а теперь пришло время экзамена по программированию. вообщем надо сделать прогу. Консольный режим, т.е. не там где ещё рисовать кнопочки можно )))
----------------------------------------------------
Задание:
Задана запись: 2 поля. I поле string от 20, II - типа byte. Нужно заполнить I поле, посчитать кол-во вхождений символа "А". Полученный результат записать во II поле.
----------------------------------------------------

Кто поможет, буду очень благодарен!

[Windowsme]

народ хелп)) завтра консультация, и завтра мне надо прнести эту чёртову прогу (( помогите плз)

[~TB~]

Консольный режим? Причем тут поля?

[Aristarh Dark]

Консольный режим? Причем тут поля?

А почему бы и нет.

[Aristarh Dark]

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;
type
  TData = record
    Text:ShortString;
    Count:Byte;
  end;
var
  Rec:TData;
  i:integer;
begin
  ZeroMemory(@Rec,SizeOf(TData));
  WriteLn('Intut text');
  ReadLn(Rec.Text);
  for i:=1 to Length(Rec.Text) do
    if Rec.Text[i]='A' then
      Inc(Rec.Count);
  WriteLn;
  WriteLn('Symbol "A" founded '+IntToStr(Rec.Count)+' once');
  ReadLn;
end.

[ilang]

Честно говоря не совсем понимаю, зачем нужно ZeroMemory. Можно несколько упросить этот код, вообще не подключать никакие модули

Код:

program Project1;
{$APPTYPE CONSOLE}
type
  TData = record
    Text:ShortString;
    Count:Byte;
  end;
var
  Rec:TData;
  i:integer;
begin
  WriteLn('Intut text');
  ReadLn(Rec.Text);
  for i:=1 to Length(Rec.Text) do
    if Rec.Text[i]='A' then
      Inc(Rec.Count);
  WriteLn;
  WriteLn('Symbol "A" founded ',Rec.Count,' once');
  ReadLn;
end.

[Aristarh Dark]

Честно говоря не совсем понимаю, зачем нужно ZeroMemory.

А привычка у меня такая, очищать структуры перед использованием.

[ilang]

Ясно )
Ну в данном случае это совсем не обязательно )

[Aristarh Dark]

В данном случае да. Но, ИХМО, лучше лишний раз очистить там где не надо, чем забыть очистить там где надо.

[Windowsme]

Парни! огромное спасибо! очень выручили))