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

ЭЛЕКТРОНИКИ И АВТОМАТИКИ

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

Отчет по лабораторной работе №1

Программирование на языках В/У

Студент:

Группа:

Москва 2003


СОДЕРЖАНИЕ

1 ЗАДАНИЕ  3

2 БЛОК-СХЕМА ПРОГРАММЫ  3

3 ТЕКСТ ПРОГРАММЫ 4

4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ  5

5 РУКОВОДСТВО ОПЕРАТОРА  7


1 ЗАДАНИЕ

Программа должна вставить новый элемент E после первого элемента непустого списка L.

 

2 БЛОК-СХЕМА ПРОГРАММЫ

 

 



да

 

 


нет

Ромб: n=k
 

нет

 

да

 



нет

 

да

 




3 ТЕКСТ ПРОГРАММЫ

 

Program Project1;

{$APPTYPE CONSOLE}

Uses SysUtils;

type

spisok=^s;

s=record

i:integer;

p:spisok; end;

var

n,k:word;

E:integer;

L,FstL,LL:spisok;

BEGIN

Write('Kol. Elementov L:> ');ReadLn(k);

FOR n:=1 to k do BEGIN

New(L); Write('L',n,' :> '); ReadLn(L^.i);

L^.p:=nil;

IF n=1 THEN begin FstL:=L; LL:=L; end

ELSE begin LL^.p:=L;LL:=L; end;

END;

Write('Element E:> '); ReadLn(E);

New(L); L^.i:=E; L^.p:=FstL^.p; FstL^.p:=L; L:=FstL;

While L<>nil do begin Write(L^.i,' '); L:=L^.p; end;

ReadLn;

END.



Информация о работе «Отчет по лабораторной работе №1»
Раздел: Информатика, программирование
Количество знаков с пробелами: 6751
Количество таблиц: 13
Количество изображений: 2

Похожие работы

Скачать
2727
0
6

... порядка е и истинного порядка Р. Поскольку мантисса результата формируется путем сдвига исходного числа влево, то регистры R2, R3 используем для размещения мантиссы результатов.   Лабораторная работа №1а   Преобразование целого числа в вещественное Преобразование целого числа в вещественное реализуется по формуле: . Структурная схема преобразования выглядит следующим образом: . ...

Скачать
9821
27
11

... скоростью вдоль линии индукции магнитного поля и по окружность в плоскости, перпендикулярной магнитному полю. Результирующим движением является движение по спирали с шагом h. Рис. 2 В настоящей работе для определения удельного заряда электрона e/m используется цилиндрический магнетрон. Магнетроном называется двухэлектродная электронная лампа (диод), в которой электроны, летящие от катода к ...

Скачать
13235
30
0

... ) Then BEGIN If (P^.a=Q^.a) and (P^.n=Q^.n) Then Begin P:=P^.p; Q:=Q^.p; End Else Begin Write('P <> Q'); b:=true; End; END; UNTIL b=true; ReadLn; END. 4 ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ   ТАБЛИЦА ТИПОВ, ИСПОЛЬЗУЕМЫХ ПРОГРАММОЙ Имя типа Тип Назначение spisok Динамическая переменная со структурой s s record Запись, содержащая ...

Скачать
10713
5
2

... на скорость реакции. Чем больше поверхность вещества, тем больше скорость протекания гетерогенной реакции. 2.4 Влияние концентрации реагирующих веществ на состояние равновесия. 2.4.1 Описание хода работы. В стакан налито 10 мл 2-х %-го раствора FeCl3 и добавлено 10 мл 1 %-го раствора KCNS. Полученный раствор разделен на 4 пробирки. В 1-ю добавляется 3-5 капель концентрированного раствора ...

0 комментариев


Наверх