<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllLines('Pushkin.txt');
Writeln('*** Текст в файле ***',NewLine);
a.Println(NewLine);
var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;
a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;
WriteLines('Result.txt',a);
Writeln(NewLine,'*** Новый файл ***',NewLine);
ReadLines('Result.txt').Println(NewLine)
end.
<u>Пример:</u>
*** Текст в файле ***
Если жизнь тебя обманет,
Не печалься, не сердись!
В день уныния смирись:
День веселья, верь, настанет.
Сердце в будущем живет;
Настоящее уныло:
Всё мгновенно, всё пройдет;
Что пройдет, то будет мило.
(А.С. Пушкин, 1825)
*** Новый файл ***
Настоящее уныло:
Var sum, i: integer;
begin
i:=-5; sum:=0;
while i<=27 do begin
sum:=sum+i;
i:=i+4;
end;
writeln(sum);
end.
Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк
Вариант реализованный в Excel
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно увидеть в строке формул.