16.04.2012, 21:09 | #1 (permalink) |
Member
Регистрация: 29.02.2012
Сообщений: 120
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3
|
Помогите с Паскалем
2)Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле. |
16.04.2012, 21:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, потратьте минутку и прочитайте темы которые люди создавали ранее Помогите с Паскалем Помогите кто-нибудь с Паскалем Помогите с паскалем очень прошу |
17.04.2012, 14:25 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пока Вы по крайней мере внимательно не прочтете то, что сами написали в первом посте - "делятся на , но не делятся на " - Вам никто не "помогиет". Просто полное неуважение к нам - выкладывать такое и даже не читать. Так, мол, сойдет...
|
18.04.2012, 00:52 | #5 (permalink) |
Member
Регистрация: 29.02.2012
Сообщений: 120
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3
|
1)Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.
2)Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на m , но не делятся на n . Подсчитать их количество. Надеюсь на вашу помощь)) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.04.2012, 11:11 | #6 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Постараюсь оправдать.
Цитата:
Код:
Const Nw=100; {Number of words in file} Var f:Text; i,N:Word; j,Nl:Byte; C,C1:Char; Begin Randomize; {Creating the text file} Assign(f,'Story.txt'); Rewrite(f); For i:=1 to Nw do begin Nl:=Random(16)+1; {Length of the word} for j:=1 to Nl do write(f,Chr(97+random(26))); if i<Nw then write(f,' '); end; Close(f); Reset(f); {Show the file on the screen} Repeat read(f,C); write(C); Until EoF(f); Writeln; Writeln; Write('The letter (small Latin) to search: '); Readln(C1); Writeln; N:=0; Reset(f); Repeat Read(f,C); If C=' ' then begin read(f,C); if C=C1 then Inc(N); end; Until EoF(f); Writeln(N,' times'); Readln End. Цитата:
Код:
Const Nn=100; {Amount of numbers in file} Var f:file of Integer; m,n,C:Integer; i,Nx:Byte; Begin Randomize; {Creating the file} Assign(f,'Num.dat'); Rewrite(f); For i:=1 to Nn do begin C:=32000-Random(64000); Write(f,C); end; Close(f); {Show the file on the screen} Reset(f); For i:=1 to Nn do begin read(f,C); write(C:8); end; Writeln; Writeln; Write('m= '); Readln(m); Write('n= '); Readln(n); Nx:=0; Reset(f); for i:=1 to Nn do begin read(f,C); if ((C mod m)=0) and ((C mod n)<>0) then Inc(Nx); end; Close(f); Writeln(Nx,' numbers'); Readln End. |
||
18.04.2012, 13:11 | #7 (permalink) |
Member
Регистрация: 29.02.2012
Сообщений: 120
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3
|
Спасибооооо огромное)))а как их в икселе делать?Просто у меня ваще завал с информатикой,Надо еще 4 задания решить(причем каждое в паскале и в икселе).
|
18.04.2012, 14:34 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А потому что надо не пальчики любимые жалеть, а информацию предоставлять, в частности, о каком именно Паскале идет речь. Потому что Паскаль Паскалю рознь. Судя по всему, у Вас Паскаль АВС - да, он не любит формат Word. Выход: в разделе описания переменных (Var) следует Word (а лучше и Byte) заменить на Integer.
|
18.04.2012, 22:13 | #10 (permalink) |
Member
Регистрация: 29.02.2012
Сообщений: 120
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3
|
спасибо большое))просто я вообще не понимаю ниче в этом паскале((((
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|