Lab4 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab4" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab4"
Текст из документа "Lab4"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №4
Тема: “Одномерные массивы”
Вариант №3
Цель работы: получить навыки работы с данными структурированного массива.
работу выполнил
группа ВР-1-08
проверил: Давлетчин Д.И.
Москва 2009
Постановка задачи. Составить программу по обработке одномерного массива согласно условию.
Условие. В одномерном массиве A из N элементов (0<N<100; 0<A[i]<1000) с четным количеством элементов находятся координаты N точек плоскости. Они располагаются в следующем порядке: X1, Y1, X2, Y2, X3, Y3 и т.д. Определить номера точек, которые могут являться вершинами равнобедренного треугольника.
А лгоритм
t1[i]:=random(100)
i:=i+2
i:=1
Да Нет
i2:=i2+2
i3:=1
Да
Нет
Нет Да
i3:=i3+2
Да Нет
Да Нет
Да Нет
Программа
program Lab4;
uses crt;
label M1,M2;
var i,i2,i3,:integer;
t1 : array [1..100] of integer;
l1:single;
begin
clrscr;
randomize;
for i:=1 to 100 do
t1[i]:= random(100);
i:=1;i2:=1;i3:=1;
repeat
begin
repeat
begin
if i=i2 then goto M1;
repeat
begin
if (i=i3) or (i2=i3) then goto M2;
if (sqrt(sqr(t1[i2]-t1[i]) + sqr(t1[i2+1]-t1[i+1])))=(sqrt(sqr(t1[i3]-t1[i])) + sqr(t1[i3+1]-t1[i+1])) then
begin
writeln('точки A:', t1[i],',',t1[i+1],'; B:',t1[i2],',',t1[i2+1],' C:',t1[i3], ',',t1[i3+1], ' – являются вершинами равнобедренного треугольника');
end;
M2:i3:=i3+2;
end;
until i3>99;i3:=1;
M1:i2:=i2+2;
end;
until i2>99;i2:=1;
i:=i+2;
end;
until i>99;
readkey
end.