[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

04.05.2010, 16:22

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

С нами: 8850305

Репутация: 259

Цитата:

Сообщение от Flair

Язык pascal. На счет массива хз.
Но нужно по премеру этой программы

ну держи, коли так:

PHP код:


		
			
program mashini1;

type

mashini=record

marka:string;

god:integer;

color:string;

nomer:string;

end;

var zap: array [1..25] of mashini;

a,s,i,j,x1:integer;

x2,x3,x4:string;

begin

write('kolichestvo=');

readln(a);

for i:=1 to a do

begin

writeln('vvedite marku');

readln(zap[i].marka);

writeln('vvedite god');

readln(zap[i].god);

writeln('vvedite cvet');

readln(zap[i].color);

writeln('vvedite nomer');

readln(zap[i].nomer);

end;



writeln('mashini chernogo cveta');

writeln('marka ',' god ',' nomer ');

for i:=1 to a do begin

if zap[i].color='black' then

begin

write(zap[i].marka:5,' ');

write(zap[i].god:4, ' ');

write(zap[i].nomer:6,' ');

writeln;

end;

end;

writeln('nomer na N');

writeln('marka ',' god ',' cvet ',' nomer ');

for i:=1 to a do

begin

if copy(zap[i].nomer,1,1)='m' then

begin

write(zap[i].marka:5,' ');

write(zap[i].god:4, ' ');

write(zap[i].color:5,' ');

write(zap[i].nomer:6,' ');

writeln;

end;

end;



for i:=1 to a-1 do

for j:=i+1 to a do

if zap[i].god>zap[j].god then

begin

x1:=zap[i].god;

x2:=zap[i].marka;

x3:=zap[i].color;

x4:=zap[i].nomer;

zap[i].god:=zap[j].god;

zap[i].marka:=zap[j].marka;

zap[i].color:=zap[j].color;

zap[i].nomer:=zap[j].nomer;

zap[j].god:=x1;

zap[j].marka:=x2;

zap[j].color:=x3;

zap[j].nomer:=x4;

end;

writeln;

writeln('po vozrastaniju goda vipuska');

writeln('marka ',' god ',' cvet ',' nomer ');

for i:=1 to a do

begin

write(zap[i].marka:5,' ');

write(zap[i].god:4, ' ');

write(zap[i].color:5,' ');

write(zap[i].nomer:6,' ');

writeln;

end;

readln;

end.

я молодец, правда?

кстати, писал в блокнотике, так что на работоспособность не проверял... будут ошибки сообщишь))

Последний раз редактировалось EndLeSSDre@M; 04.05.2010 в 16:26..