Помогите с Паскалем

[ВасилийНемтырев]

Помогите с Паскалем

1)Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на , но не делятся на . Подсчитать их количество.
2)Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.

 

[ВасилийНемтырев]

Помогиет пожалуйста ктонибудь

 

[Vladimir_S]

Пока Вы по крайней мере внимательно не прочтете то, что сами написали в первом посте - "делятся на , но не делятся на " - Вам никто не "помогиет". Просто полное неуважение к нам - выкладывать такое и даже не читать. Так, мол, сойдет...

 

[Артём]

Это осень хитрый какой-то задача, шайтанама-на!

 

[ВасилийНемтырев]

1)Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.
2)Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на m , но не делятся на n . Подсчитать их количество.
Надеюсь на вашу помощь))

 

[Vladimir_S]

Надеюсь на вашу помощь))

Постараюсь оправдать.

1)Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле.

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.

2)Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на m , но не делятся на n . Подсчитать их количество.

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.

 

[ВасилийНемтырев]

Спасибооооо огромное)))а как их в икселе делать?Просто у меня ваще завал с информатикой,Надо еще 4 задания решить(причем каждое в паскале и в икселе).

 

[ВасилийНемтырев]

Че то у меня ошибка на первой задаче выходит-"переменная цикла for должна иметь тип integer,char,byte интервальный или перечислимый"

 

[Vladimir_S]

Че то у меня ошибка на первой задаче выходит-"переменная цикла for должна иметь тип integer,char,byte интервальный или перечислимый"

А потому что надо не пальчики любимые жалеть, а информацию предоставлять, в частности, о каком именно Паскале идет речь. Потому что Паскаль Паскалю рознь. Судя по всему, у Вас Паскаль АВС - да, он не любит формат Word. Выход: в разделе описания переменных (Var) следует Word (а лучше и Byte) заменить на Integer.

 

[ВасилийНемтырев]

спасибо большое))просто я вообще не понимаю ниче в этом паскале((((