Задача на тему файлы и строки в паскале ( В файле F задана последовательность 3-х программ )

[Serge_Bliznykov]

s-andriano, Вы все правильно говорите. я, наверное, не очень внятно выразился. Чтобы полученный алгоритм (уже записанный либо по русски, либо в виде блок-схем, либо в любом другом виде) записать на нужном языке программирования (а ведь получить программу на заданном языке программирования, в данном случае на языке Паскаль - и является финальной сверхзадачей), вот тут уж без знания нужного языка программирования не обойтись!




p.s. кстати, данная задача является немного не типичной в том смысле, что даже для того, чтобы разработать и записать алгоритм в виде пошаговых действий (по русски) всё равно потребуется знание языка Паскаль - чтобы знать, как отличить операторы присваивания от других конструкций/операторов языка и как разделить три программы друг от друга.. Но это, конечно, исключительная особенность данной задачи.

[s-andriano]

Не совсем так.
1. Есть текстовый файл на определенном языке, который нужно анализировать. А для анализа - иметь некоторые представления о языке, на котором он написан.
2. Нужно записать алгоритм программы на конкретном ЯП.

Так вот, тот факт, что язык из первого пункта совпал с ЯП из второго - лишь частный случай.
Собственно, от первого языка требуется довольно немного знаний:
- как выглядит оператор присваивания,
- как отделить один анализируемый фрагмент (называемый в условии задачи программой) от другого.
А вот второй язык нужно знать в объеме, позволяющем решить задачу.

Но для первоначального наброска алгоритма по-русски достаточно только знания (первого) языка в указанном очень ограниченном объеме.

[SWAGG]

Сообщение от s-andriano

проболел весь семестр - берешь академотпуск.

протестите плиз прогу)!!я написал, оказалось что тема файлы и строки не такая уж и сложная)буду благодарен....

function CR(substr, str: string): integer;
var
  cnt, p: integer;
begin
  cnt := 0;
  while str <> '' do
  begin
    p := Pos(substr, str);
    if p > 0 then
      inc(cnt)
    else
      p := 1;
    Delete(str, 1, (p + Length(substr) - 1));
  end;
  CR := cnt;
end;
//объявляем переменные
var
str1, prog1, prog2, prog3 :string;
i, a1, a2, a3:integer;
input, output : Text;

begin
// открываем файлы
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);

// читаем данные
while not eof(input) do
      begin
           readln(input, str1);
           prog3:=prog3 + str1 + ' ' ;
      end;

//разделяем всю программу на 3 (1-я_prog1; 2-я_prog2; 3-я_prog3)
prog1 := copy(prog3, 0, pos('end.', prog3) + 3);
delete(prog3, 1, pos('end.', prog3) + 3);
prog2 := copy(prog3, 0, pos('end.', prog3)+ 3);
delete(prog3, 1, pos('end.', prog3) + 3);
// конец

//считаем кол-во присваиваний
a1 := CR(':=', prog1);
a2 := CR(':=', prog2);
a3 := CR(':=', prog3);

//сравниваем и выводим
if (a1 >= a2)and(a1 >= a3) then
  writeln(output, prog1);
if (a2 >= a1)and(a2 >= a3) then
  writeln(output, prog2);
if (a3 >= a2)and(a3 >= a1) then
  writeln(output, prog3);

//закрываем файлы
close(input);
close(output);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну, что там тестить то.
проверьте, например, на таких программах:

VAR I:INTEGER;
BEGIN
  I:=2;
  I := 2 + I;
END.

и на такой:

Var I,J : integer;
Begin  
  WriteLn(' для присвоения используем оператор := (именно :=)');
End.

[SWAGG]

Сообщение от Serge_Bliznykov

ну, что там тестить то.
проверьте, например, на таких программах:

VAR I:INTEGER;
BEGIN
  I:=2;
  I := 2 + I;
END.

и на такой:

Var I,J : integer;
Begin  
  WriteLn(' для присвоения используем оператор := (именно :=)');
End.

это я тестил, я просто прошу шарющих людей протестить, проверить сам код и т.д

[BDA]

Если бы тестировали, то заметили бы, что во второй программе вместо 0 присваиваний выдаёт два (саму программу не запускал, но предполагаю).

[Serge_Bliznykov]

BDA, +1


SWAGG,
а ещё, еcли бы тестили, то заметили, что данные мною примеры программы ВООБЩЕ не разделяются на отдельные!

Далее. Удалять символы строки, для того, чтобы проверить и подсчитать совпадение подстроки в строке - это крайне неэффективно! Ну, это всё равно, как если бы вам поручили посчитать, сколько книг Александра Дюма есть в библиотеке, а вы брали книжку и ВЫНОСИЛИ на улицу. Если это книга Дюма, делали себе пометку в блокноте, если нет - то пометку не делали. И продолжали бы пока внутри библиотеки не осталось НИ ОДНОЙ книжки. Согласитесь, что это не очень эффективно?!
Но именно так Вы и поступаете с символами строки!


Далее, какой у Вас Паскаль? Если TurboPascal - то в нём ограничение на длину строки - переменная типа string не может быть длинее 255 символов. А Вы пытаетесь все три программы в одну строчку собрать.
Вставьте свою программу в файл input.txt в качестве одной из 3-х программ (последней, желательно ). думаю, что Вы будете неприятно удивлены...


Автор, если Вы не видите и, главное, НЕ ХОТИТЕ видеть косяков в вашем коде, то зачем писать просьбу о тестировании?!