Output file: output.txt
В файле in.txt даны координаты трех вершин A,B и С на трех строках соответственно. Координаты в файле разделены пробелом.
Необходимо определить существует ли треугольник АВС с указанными координатами вершин. Если существует, то вывести в файл out.txt слово «exist», иначе – «do not exist».
INPUT.TXT | OUTPUT.TXT |
1 3 5 7 8 9 | exist |
Решение
Program triangle;
Var
i,xa,xb,xc,ya,yb,yc,xAB,xBC,yAB,yBC: integer;
AB,BC: real;
f1,f2: text;
Begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
read(f1,xa,ya);
readln(f1);
read(f1,xb,yb);
readln(f1);
read(f1,xc,yc);
readln(f1);
close(f1);
xAB:=xb-xa;
yAB:=yb-ya;
xBC:=xc-xb;
yBC:=yc-yb;
rewrite(f2);
if xAB/xBC <> yAB/yBC then writeln(f2,'exist')
else writeln(f2,'do not exist');
close(f2);
end.
Тема: Эффективные структуры данных.
Условие задачи: В преддверии начала 13-го чемпионата страны по футболу в 1-й лиге организаторы решили провести жеребьевку календаря. Секретарь федерации предоставил списки команд с учетом занятых мест в 12-м чемпионате, но для того, чтобы жеребьевка прошла непредвзято и корректно необходимы списки команд по алфавиту, независимо от их достижений в прошлом году. Составить программу, преобразующую турнирную таблицу 12-го чемпионата, состоящую из N команд, в алфавитный список.
|
|
INPUT. TXT | Реал Барселона Атлетико Депортиво Сельта Севилья Гранада Валенсия | Количество команд (N) Названия команд |
OUTPUT.TXT | Атлетико Барселона Валенсия Гранада Депортиво Реал Севилья Сельта |
Решение:
Program olimp1;
var
x: array[1..32] of string;
y: string;
i, j, n: integer;
Fd, Fs: Text;
begin
assign(Fd, ‘D:\input.txt’);
reset(Fd);
assign(Fs, ‘D:\output.txt’);
rewrite(Fs);
readln(Fd, N);
for i:=1 to N do
begin
readln(Fd, x[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
begin
y:=x[i];
x[i]:=x[j];
x[j]:=y;
end;
for i:=1 to n do
writeln (Fs, i:2,’.’+x[i]);
end.