Lab4 (1018839)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И

АВТОМАТИКИ

(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)

Кафедра РПУ

Лабораторная работа №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.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы