); p> end;
{$ F-}
Procedure Simps (F: Func; a, b: Real; N: Integer; var INT: Real);
var
sum, h: Real; p> j: Integer;
begin
if Odd (N) then N: = N +1;
h: = (b-a)/N;
sum: = 0.5 * (F (a) + F (b)); p> for j: = 1 to N-1 do
sum: = sum + (j mod 2 +1) * F (a + j * h);
INT: = 2 * h * sum/3 p> end; begin WriteLn ('ВВЕДИ TN, TK, N');
Read (TN, TK, N); p> Simps (Q, TN, TK, N, I); p> WriteLn ('I =', I: 8:3) p> end.
Заданіе15. Записати відрізок-X (-1, -10), за допомогою функції
program as;
function A (x: integer): integer;
begin
a: =-x;
end;
var i: integer;
begin
for i: = 1 to 10 do writeln (a (i));
end.
Файлові дані в Паскалі
Завдання 1. Дан текстовий файл, порахувати кількість рядків у ньому
Program as;
Uses crt;
Var F: text; a: string; s: integer;
Begin clrscr;
Assign (F, 'a1.txt');
Reset (f);
While not (Eof (f)) do begin
Readln (f, a);
S: = s +1; end;
Close (f);
Writeln (s);
End.
Завдання 2. Створити текстовий файл і записати в нього фразу: В«Здрастуй Мир!В»
Program as;
Uses crt;
Var F: text; a: string;
Begin clrscr;
Assign (F, 'a.txt');
Rewrite (f);
Readln (a);
Writeln (f, a);
Close (f);
End.
Завдання 3. Створити текстовий файл і записати в нього слово В«ПривітВ»
Program as;
Uses crt;
Var F: text; a: string;
Begin clrscr;
Assign (F, 'A.txt');
Rewrite (f);
Readln (a);
Writeln (f, a);
Close (f);
End.
Завдання 4. Створити текстовий файл і записати в нього 5 однакових чисел
Program as;
Uses crt;
Var F: text; a: string; i: integer;
Begin clrscr;
Assign (F, 'text.txt');
Rewrite (f);
For i: = 1 to 5 do
Writeln (f, 5);
Close (f);
End.
Завдання 5. Створити текстовий файл і записати в нього всі числа від 10 до 16
Program as;
Uses crt;
Var F: text; a: string; i: integer;
Begin clrscr;
Assign (F, 'text.txt');
Rewrite (f);
For i: = 10 to 16 do
Writeln (f, i);
Close (f);
End.
Завдання 6. Створити текстовий файл і записати в нього 5 однакових слів
Program as;
Uses crt;
Var F: text; a: string;
Begin clrscr;
Assign (F, 'A.txt');
Rewrite (f);
Readln (a);
Writeln (f, a);
Close (f);
End.
Завдання 7. Дан текстовий файл перенести його рядки в інший файл
Program as;
Uses crt;
Var f, t: text; a: string;
Begin clrscr;
Assign (f, '202as. txt '); assign (t, '201as. txt ');
Reset (f); rewrite (t),
While not (eof (f)) do begin
Readln (f, a);
Writeln (t, a);
End;
Close (f),
Close (t);
Readln;
End.
Завдання 8. Мається текстовий файл, надрукувати все його рядки починаючи з букви Т
Program as;
Uses crt;
Var f: text; a: string;
Begin clrscr;
Assign (f, '202as. txt '); p> Reset (f);
While not (eof (f)) do begin
Readln (f, a);
If copy (A, 1,1) = 'T' then
Writeln (a);
End;
Close (f);
Readln;
End.
Завдання 9. Мається текстовий файл порахувати кількість рядків починаються на букву А
Program as; readln (f, a);
Uses crt; if copy (a, 1,1) = 'A' then k: = k +1;
Var F: text; a: string; k: integer; end;
Begin clrscr; close (f);
Assign (f, 'abc.txt'); writeln (k);
Reset (f); end.
While not (Eof (f)) do begin
Заданіе10. Всі парні рядки цього файлу записати в 2 файл, а не парні в 3 файл
Program as;
Uses crt;
Var F, t, g: text; a: string; k: integer;
Begin clrscr;
Assign (f, 'abc.txt'); assign (t, 'cop.txt'); Assign (g, 'cap.txt');
Reset (f); rewrite (t); rewrite (g);
While not (Eof (f)) do begin
Readln (f, a);
K: = k +1;
If k mod 2 = 0 then writeln (t, a) else writeln (g, a);
End;
Close (f); close (t); close (g);
End.
Заданіе11. Знайти суму елементів одновимірного масиву різ-т записати в тек...
