Работа с файлами (Паскаль)

[radich]

Здравствуйте. Помогите,пожалуйста, с решением 5 задач. Вообще плохо понимаю этот язык.

1.дан текст в котором слова отделяются пробелами,в конце стоит точка.определить кол-во слов в тексте и найти среднюю длину слова
2.с клавиатуры вводится целое число,которое имеет четное кол-во цифр не менее 50. найти средние цифры числа и переставить их местами
3.дан натуральный отрезок чисел [А,B]. найти те числа этого отрезка,которые в своей записи имеют только четные цифры. проверку, имеет ли данное число в своей записи только четные цифры,сделать с помощью логической функции пользователя
4.даны три числа,могут ли эти числа быть стороными треугольника. если треугольник существует,то вычислить длины высот этого треугольника.вычисление длины высоты треугольника оформить в виде функции пользователя
5.даны 2 целых числа. определить с помощью логической функции пользователя простые эти числа или нет
Заранее спасибо!

[Nik Raider]

Здравствуйте. Помогите,пожалуйста, с решением 5 задач. Вообще плохо понимаю этот язык.

Помочь многие рады, но есть ли смысл оказывать медвежью услугу? Будьте добры показать свои попытки решения и Вас поправят, направят, на крайний случай допишут. Какой смысл будет от того, что напишут кучу Вам непонятных строк?

[radich]

Кто захочет, тот разберется в каждой непонятной букве. Литературы валом, но легче разобраться на примере. Если есть возможность - поделись,пожалуйста,примитивным примером, от которого можно плясать. Буду благодарен

[Serge_Bliznykov]

Кто захочет, тот разберется в каждой непонятной букве. Литературы валом, но легче разобраться на примере.

Ладно. Попробуем.

Задача №5

program TestPrim;

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var
  A,B : longint;
begin
  WriteLn('Введите два целых числа для проверки на простоту: ');
  Readln(A,B);
  if isPrime(A) then
      WriteLn('Первое число простое')
  else
      WriteLn('Первое число не простое');

  if isPrime(B) then
      WriteLn('Второе число простое')
  else
      WriteLn('Второе число не простое');

  WriteLn('Программа закончила работу.');
  Readln;
end.

не понятно, какое отношение название темы имеет к задачам!

[radich]

Спасибо большое!!!

[Poma][a]

Опять же, всё написанное далее возможно является ложья, так что ...

while i <= sqrt(x) do

1) Т.к. в while условие выхода из цикла, проверяются при каждой итерацие, и sqrt (x) будет высщитан много раз (возможно i/2) так что можно завести переменную, туда один единственный раз посчитать sqrt(x) и уже баловаться её (переменной в цикле).
Можно этого и не делать (как говорится на спичках не экономят), но если вдруг данный алгоритм будет использоваться в других алгоритмах (например являются 1000000 введеных чисел простыми), то эта эффективность будет хоть чуть-чуть но заметна (даже если 0,01 секунды).

2) Опятьже

while i <= sqrt(x) do

как уже писал TinMan, то в какой-то момент времени, sqrt(49) (например) может быть равен не 7, а 6, (9). А при в цикле, мы дойдем до 7, отбросим наши цифирки после запятой, и получим 7 <= 6, нас не пусят в тушку цикла, и придется вывести что число 49 - простое.

Подчеркиваю, это всё мои догадки, предположения, домыслы, которые могут оказаться не TRUE

[Аватар]

sqrt(49) (например) может быть равен не 7, а 6, (9)

Вполне возможно, но чуть подправив избежим такой участи

while i <= sqrt(x)+0.1

или чтобы наверняка

while i*i <= x

[Poma][a]

чуть подправив избежим такой участи

Хитро
Но на проверке 100000000 числе на простоту, придется за кофем в ларек бежать, а можно один разик Round'нуть

[Аватар]

Сто миллионов маловато, а вот для пары миллиардов можно и поспать Нужно проверить

[Serge_Bliznykov]

Poma][a, согласен с обоими замечаниями.

по первому.
Действительно, функция sqrt(x) будет вызываться многократно (я проверил, это так!), примерно (в худшем случае) (sqrt(x) div 2) раз.
И, хотя это может влиять только на быстродействие, тем не менее, согласен, лучше заменить вычисление этой функции переменной, вычисленной один раз до цикла.

по поводу второго замечания.
теоретически, то, что Вы говорите, практически - не подверждается.

так что, первоначальный вариант вполне себе достойный и работоспособный.
Впрочем, второй вариант чуть быстрее...
можно его рекомендовать к использованию.

вот, прошу оценить:

program PrimeNumbers;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

function isPrimeEx(X: LongInt): boolean;
var i, HighBound: integer;
Begin
     isPrimeEx:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     HighBound := trunc(sqrt(x))+1;
     while i <= HighBound do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrimeEx := true;
End;


var i, cnt1, cnt2 : longint;
  wTick1, wTick2 : Dword;
begin
  wTick1 := GetTickCount();
  cnt1 := 0;
  for i:=1 to 1000000 do
    if isPrime(i) then Inc(cnt1);
  wTick2 := GetTickCount();

  WriteLn('First variant found ', cnt1,' prime numbers for ',
                  (wTick2-wTick1)/1000:0:1,' seconds ');

  wTick1 := GetTickCount();
  cnt2 := 0;
  for i:=1 to 1000000 do
    if isPrimeEx(i) then Inc(cnt2);
  wTick2 := GetTickCount();

  WriteLn('Second variant found ', cnt2,' prime numbers for ',
                   (wTick2-wTick1)/1000:0:1,' seconds ');

  Readln
end.

результат на моём достаточно стареньком компьютере (специально проверил на предложенном вами диапазоне - от 1 до 1000000 подсчитал количество простых чисел ):

First variant found 78498 prime numbers for 0.4 seconds
Second variant found 78498 prime numbers for 0.1 seconds

p.s. если нужно найти все простые числа, то предложенный метод перебора использовать крайне неэффективно и непродуктивно!!!
давно уже известны нормальные эффективные способы поиска множества простых чисел.