|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нужна помощь срочно
Такой трабл парни) весь семестр х#$ пропинал, а теперь пришло время экзамена по программированию. вообщем надо сделать прогу. Консольный режим, т.е. не там где ещё рисовать кнопочки можно )))
---------------------------------------------------- Задание: Задана запись: 2 поля. I поле string от 20, II - типа byte. Нужно заполнить I поле, посчитать кол-во вхождений символа "А". Полученный результат записать во II поле. ---------------------------------------------------- Кто поможет, буду очень благодарен! |
#2
|
|||
|
|||
народ хелп)) завтра консультация, и завтра мне надо прнести эту чёртову прогу (( помогите плз)
Новая рефельная программа: получи 0.5 WMR за переход (ICQ) 730-196 (E-mail) koreametal[at]gmail[dot]com прячу pinch3 от АВ |
#3
|
||||
|
||||
Консольный режим? Причем тут поля?
|
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
Код:
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. |
#6
|
|||
|
|||
Честно говоря не совсем понимаю, зачем нужно 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. |
#7
|
||||
|
||||
Цитата:
|
#8
|
|||
|
|||
Ясно )
Ну в данном случае это совсем не обязательно ) |
#9
|
||||
|
||||
В данном случае да. Но, ИХМО, лучше лишний раз очистить там где не надо, чем забыть очистить там где надо.
|
#10
|
|||
|
|||
Парни! огромное спасибо! очень выручили))
Новая рефельная программа: получи 0.5 WMR за переход (ICQ) 730-196 (E-mail) koreametal[at]gmail[dot]com прячу pinch3 от АВ |