COOLBOY007
Метод сортировки массива "пузырьком" один из самых худших. Советую использовать "QuickSort".
30 Мар 2011, 15:43COOLBOY007
Метод сортировки массива "пузырьком" один из самых худших. Советую использовать "QuickSort".
30 Мар 2011, 15:43IIyX
объясните пожалуйста следующую задачу - дан файл assort,содержащий сведения об игрушках: указываются названия игрушки,стоимость в рублях и возрастные границы( например от2х до 5 лет)
а)получить название игрушек цена которых не превышает 140 рублей и которые подходят детям 5 лет
б) определить стоимость самого дорогого конструктора
в)написать названия наиболее дорогих игрушек
прост я вообще не знаю как сделать... в принципе и листинг есть но он походу не верен(( во общем задача непонятная. вся проблема в том что делать нужно через файл - а я не умею((
Masterboy
Разработать программу,которая запрашивает номер группы элементов,вводит соответствующие элементы и вычисляет площадь треугольника.Вычисление прекратить,если в качестве номера группы вещей 0.
----------------
Помогите срочно,программу нужно решить на турбо паскале.Заранее спасибо огромнейшее
M0rbid
Masterboy, что такое "номер группы элементов" и о каких вообще вещах речь?
06 Апр 2011, 17:20Дмитрий
IIyX пишет:
"прост я вообще не знаю как сделать... в принципе и листинг есть но он походу не верен(( во общем задача непонятная. вся проблема в том что делать нужно через файл - а я не умею(("
Считываешь из файла, пишешь в массив записей и все. Давай листинг, посмотрим. С нуля лень писать, объемно. 
Masterboy
M0rbid, Разработать программу,которая запрашивает номер группы элементов,вводит соответствующие элементы и вычисляет площадь треугольника.Вычисление прекратить,если в качестве номера группы ВВЕДЕН 0
Сорри ошибся,а на счет группы элементов незнаю(
че,никто не поможет чтоли?
добавлено спустя 2 часа 29 минут:
Че никто не поможет шоль?
IIyX
вот листинг -
type
aaa = record
naz: string[30];
cena: real;
age_1,age_2: byte;
end;
var
maxp,max,max2:real;
v:byte;
i,n:byte;
mas: array[1 .. 255] of aaa;
s:string;
f:text;
z:integer;
begin
assign(f,'c:\data.txt');
reset(f);
maxp:=0; max:=0;
repeat
n:=n+1;
i:=i+1;
readln(f,mas[i].naz);
readln(f,s);
val(s,mas[i].cena,z);
if mas[i].cena>maxp then maxp:=mas[i].cena; //samaya dorogaya igrushka
readln(f,s);
val(s,mas[i].age_1,z);
readln(f,s);
val(s,mas[i].age_2,z);
until eof(f);
close(f);
writeln('-----------------------------------');
writeln('cena<140 i po vozrastu=5');
writeln('NaZvaNiE : ');
for i:=1 to n do begin
if (mas[i].cena<140)and(mas[i].age_1>5) then begin
writeln(mas[i].naz);
end;
end;
writeln('-----------------------------------');
for i:=1 to n do
begin
if (mas[i].naz='constructor') then
if mas[i].cena>max then max:=mas[i].cena;
end;
writeln('Samii dorogoy constructor: ',max:5:1);
writeln('-----------------------------------');
max2:=maxp-50;
writeln('Samie dorogie igrushki: ');
for i:=1 to n do
begin
if mas[i].cena>max2 then writeln(mas[i].naz);
end;
writeln('-----------------------------------');
writeln('Podhodyat detyam 4 i 10-ti let :');
for i:=1 to n do
begin
if (mas[i].age_1>=4)and(mas[i].age_2<=10) then writeln(mas[i].naz);
end;
writeln('-----------------------------------');
readln;
end.
сделал как мог - но походу вообще не верно...
M0rbid
Masterboy, не понятно что за группы и элементы, и каким образам они относятся к треугольникам. там или картинка была или условие задачи не полное
10 Апр 2011, 14:12kamex
Помогите решить задачу пожалуйста!!!
Найти максимальный элемент среди минимальных элементов столбцов двумерного массива.