Реферат: Курсовая по информатике

writeln(' Выбранфайл - ',filen);

writeln('');

{Считываниеданных}

Assign(f,filen); Reset(f);

max:=0;

for s1:=1 to 100 do

for s2:=1 to 100 do

s[s1,s2]:=false;

while not eof(f) do

begin

s1:=get; s2:=get;

if s1>s2 then s[s2,s1]:=true else s[s1,s2]:=true;

end;

Close(f);

n:=1;

repeat

n:=n+1;

until gen(n);

{ Выводданныхвфайл - 'output.txt'.}

Assign(f1,'output.txt'); Rewrite(f1);

writeln(f1,' Число стран = ',max);

writeln(f1,'');

writeln(f1,'N cтран = ',n);

for j:=1 to max do

writeln(f1,'cтрана - ',j,', цвет - ',g[j],' ');

Close(f1);

end.

Koнец.

Данные из Input1.txt:

1 2 1 7 2 7 2 3 2 8 3 4 3 9 3 8 4 9 4 5 5 6 5 9 5 13

6 13 6 14 6 15 7 8 7 11 8 9 8 10 8 11 9 10 9 12 9 13

10 11 10 12 10 14 11 15 12 14 13 14 14 15

Результат в output . txt :

Число стран = 15

N стран = 4

страна - 1, цвет - 1

страна - 2, цвет - 2

страна - 3, цвет - 1

страна - 4, цвет - 2

страна - 5, цвет - 1

страна - 6, цвет - 2

страна - 7, цвет - 3

страна - 8, цвет - 4

страна - 9, цвет - 3

страна - 10, цвет - 1

страна - 11, цвет - 2

страна - 12, цвет - 2

страна - 13, цвет - 4

страна - 14, цвет - 3

страна - 15, цвет - 1

1. Дана функция f( x ) = a+b*x*Sin(c*x+d), в которой коэффициенты a, b, c, d определяются функцией R nd с использованием процедуры R andomize . Постоянная k определяется в интервале [0.1;0.2] c шагом 0.01 . Составить программу определения первой точки пересечения прямой y = k*x с функцией f для x >0.

Текст программы:

CLS