Составить алгоритм и программу к задаче: Вычислить сумму квадратов всех четных чисел, не превосходящих N, введенного с клавиатуры выслать решение задачи (блок-схему и программу
Лучше писать результат не в тот же файл, а в другой: при составлении регулярных выражений без достаточного опыта можно легко ошибиться.
uses System.Text.RegularExpressions;
const CRLF = #13#10;
var s, sbig: string; fin, fout: Text;
begin Assign(fin, 'MyIn.txt'); Reset(fin); sbig := ''; while not Eof(fin) do begin Readln(fin, s); sbig := sbig + s + CRLF end; Close(fin); {пример - уладить подстроки, начиная с "http:" и до первого пробела, причем внутри подстроки может встретиться переход на новую строчку. Используется шаблон '\bhttp:\S+' - подробности: регулярные выражения} sbig:=RegEx.Replace(sbig, '\bhttp:\S+', '', RegexOptions.Multiline); Assign(fout, 'MyOut.txt'); Rewrite(fout); Write(fout, sbig); Close(fout); Writeln('Конец работы'); end.
1 задание var a:array[1..10000000] of integer; sk:real; i,n:integer; begin Write('Размер массива - '); readln(n); Write('Заполните массив - '); for i:=1 to n do begin read(a[i]); end; for i:=1 to n do begin write(a[i]+5,' '); end; writeln(); for i:=1 to n do sk:=sk+sqrt(a[i]); write('Сумма квадратов ',sk); end. 2 задание var a:array[1..12] of real; max,min:real; i:integer; begin write('Введите сред. t за каждый месяц - '); for i:=1 to 12 do begin read(a[i]); end; max:=a[1]; for i:=1 to 12 do begin if a[i]>max then max:=a[i]; end; min:=a[1]; for i:=1 to 12 do begin if a[i]<min then min:=a[i]; end; writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.'); end. 3 задание var a:array[1..12] of real; sum:real; i:integer; begin write('Введите учеников - '); for i:=1 to 12 do begin read(a[i]); end; for i:=1 to 12 do begin sum:=sum+a[i]; end; sum:=sum/12; writeln('Средний уровень успеваемости - ',sum); end.
uses
System.Text.RegularExpressions;
const
CRLF = #13#10;
var
s, sbig: string;
fin, fout: Text;
begin
Assign(fin, 'MyIn.txt');
Reset(fin);
sbig := '';
while not Eof(fin) do
begin
Readln(fin, s);
sbig := sbig + s + CRLF
end;
Close(fin);
{пример - уладить подстроки, начиная с "http:" и до первого пробела,
причем внутри подстроки может встретиться переход на новую строчку.
Используется шаблон '\bhttp:\S+' - подробности: регулярные выражения}
sbig:=RegEx.Replace(sbig, '\bhttp:\S+', '', RegexOptions.Multiline);
Assign(fout, 'MyOut.txt');
Rewrite(fout);
Write(fout, sbig);
Close(fout);
Writeln('Конец работы');
end.