VPF::Задача по Delphi! - Форум программистов

NitreX

Дата 28.11.2005, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.11.2005
Где: Ukraine. Nikolaev

Репутация: нет
Всего: нет

Памагите с задачкай! Не все получается smile

)

program Project2;
{$APPTYPE CONSOLE}
{8.Радиоприемники: название, частотный диапазон
( МГц ), колличество диапазонов. Критерий: приемники,
которые могут работать в диапазоне 5-10 МГц.}
uses
SysUtils;

type
One=^Radio;
Radio=record
Name:string[20];
Diapazon:real;
ChastotniyDiapazon:real;
Next:One;
end;
Group=array[1..12] of Radio;
var
P,Po,Pn,PP, First:One;
I, Count:byte;
const
G:Group=((Name:'Vesna' ;Diapazon:78,ChastotniyDiapazon),
(Name:'Sony' ;Diapazon:78,
(Name:'Panasonic' ;Diapazon:9),
(Name:'Nokia' ;Diapazon:45),
(Name:'Samsung' ;Diapazon:10),
(Name:'Siemens' ;Diapazon:65),
(Name:'Mayk' ;Diapazon:8),
(Name:'SonyPanas' ;Diapazon:42),
(Name:'radioFm' ;Diapazon:44),
(Name:'Hitachi' ;Diapazon:3),
(Name:'Mazafaka' ;Diapazon:16),
(Name:'Zory' ;Diapazon:19));
begin
New(P); First:=P;
for I:=1 to 12 do
begin // заповнення списку з масиву записів
P^.Name := G[I].Name;
P^.Diapazon := G[I].Diapazon;
if I <12 then
begin
New(P^.Next);
P:=P^.Next;
end;
end;
P:=First; Count:=1;
while Count<=12 do
begin
writeln(P^.Name,' ',P^.Diapazon:7:2);
P:=P^.Next;
Inc(Count);
end;
writeln ('___________________________________________________');
P:=First; Count:=1;
while Count<=12 do
begin
if P^.Diapazon >15 then
writeln(P^.Name,' ',P^.Diapazon:7:2);
P:=P^.Next;
Inc(Count);
end;
readln;
end.

newalex

Дата 29.11.2005, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 15.11.2005

Репутация: нет
Всего: нет

И что? Вопрос то какой? Что не получается?

sergejzr

Дата 29.11.2005, 01:59 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

NitreX, пользуйся тэгами "Код"

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »