[ /tv/ /rf/ /vg/ /a/ /b/ /u/ /bo/ /fur/ /to/ /dt/ /cp/ /oe/ /bg/ /ve/ /r/ /mad/ /d/ /mu/ /cr/ /di/ /sw/ /hr/ /wh/ /lor/ /s/ /hau/ /slow/ /gf/ /vn/ /w/ /ma/ /azu/ /wn/ ] [ Main | Settings | Bookmarks | Music Player ]

No.83593 Reply
Не получается вывести в алфавитном порядке моделей, помогите плез, вот код

Program zapis;
const
n=8;
type
aut=record
model,color,temp: string;
year: integer;

end;
type

mas = array[1..n] of aut;
var
i,k,year,c:integer;

x:mas;

model,color,vcolor,temp:string;
begin
i:=0;
for i:=1 to 8 do
begin
if i<8 then
inc(k);

with x [i] do
begin
write ('Введите модель автомобиля: ');
readln(model);
write ('Введите год выпуска автомобиля: ');
readln(year);
write ('Введите цвет автомобиля: ');
readln (color);
end;
end;

begin
writeln ('Введите цвет: ');

readln(vcolor);
c:=0;
end;

for i:=1 to k do if x[i].color=vcolor then
begin
inc(c);
with x[i] do
writeln (model:10, color:10, year:10);
end;
if c=0 then writeln('Нет машин такого цвета ',vcolor);

for i:=1 to k do if x[i].model > x[i+1].model then
begin
temp := x[i];
x[i].model := x[i+1].model;
x[i+1] := temp;
writeln (model:10, color:10, year:10);
end;
end.
>> No.83627 Reply
File: 13383005769794.png
Png, 256.53 KB, 720×480 - Click the image to expand
edit Find source with google Find source with iqdb
13383005769794.png
>>83593
Решил я твою задачу, анон. Но это второстепенное, а главное вот что – ты вернул мне вкус к жизни, анон! Ты понимаешь?! Я за изучением питона не мог усидеть столько, сколько за твоей задачей сидел, а за ней я сидел всего пару часов. Пойду в ли/s/пач требовать задач по паскалю.
>> No.83632 Reply
>>83627
Задачу бы отдал хоть.
>> No.83634 Reply
>>83632
Задачу или решение? Если решение, то я поторопился (как всегда). Надо допилить для одинаковых переменных.
Только не пинайте.
>> No.83635 Reply
File: acelentano.jpg
Jpg, 84.81 KB, 695×391 - Click the image to expand
edit Find source with google Find source with iqdb
acelentano.jpg
>>83632
Извини, файлы не высылаются, придётся тебе самому поработать. Можно, конечно, код в посте написать...
>> No.83637 Reply
File: 1301923598591.jpg
Jpg, 32.37 KB, 498×448 - Click the image to expand
edit Find source with google Find source with iqdb
1301923598591.jpg
>>83632
uses crt;
const q=7;
type car=record
model, color: string;
year: integer;
end;
var i, j, x, y, z: integer;
mas: array[1..q+1] of car;
mas2: array[1..q+1] of car;

begin
clrscr;
for i:=1 to q do with mas[i] do begin
write('Enter the car model '); readln(model);
write('Enter the car year '); readln(year);
write('Enter the car color '); readln(color);
end;
for i:=1 to q do
begin
x:=0; y:=0;
for j:=1 to q do
begin
if mas[i].model=mas2[j].model then x:=x-1;
if mas[i].model<mas[j].model then inc(x);
if (mas[i].model=mas[j].model) and (i<>j) then inc(y);
end;
mas2[q-x-y]:=mas[i];
end;
for i:=1 to q do with mas2[i] do
writeln(model, ' ', year, ' ', color, ' ');
end.

В общем, не хочу с пробелами заморачиваться, сами разбирайтесь в этой херне, я своё дело сделал.
Есть у кого ещё задачки?


Password:

[ /tv/ /rf/ /vg/ /a/ /b/ /u/ /bo/ /fur/ /to/ /dt/ /cp/ /oe/ /bg/ /ve/ /r/ /mad/ /d/ /mu/ /cr/ /di/ /sw/ /hr/ /wh/ /lor/ /s/ /hau/ /slow/ /gf/ /vn/ /w/ /ma/ /azu/ /wn/ ] [ Main | Settings | Bookmarks | Music Player ]