Turbo Pascal

Demon

Member
:( Пацаны можете помочь?
Очень нада мне задали по информатике составить програму а я непойму ее.
Помогите вот условие:
Дано двовимірний масив,який містить 5 рядків та 3 стовпчиків,елементи масиву дійсні числа.Впорядкувати масив по неспаданню елементів першого рядка.
 

Demon

Member
У нас она.
И она такая дур*.
Нескажет ничего пожалуйста помоги.:(
 

lovesan

хз...
Дано двовимірний масив,який містить 5 рядків та 3 стовпчиків,елементи масиву дійсні числа.Впорядкувати масив по неспаданню елементів першого рядка.

Писал на Delphi, но для паскаля тож пайдет.
Сори за такой извращенный код :)

const
n=5;
var
mas:array[1..n,1..3] of integer;
i1,i2,i3,j1,j2,j3:integer;
x1,x2,x3:integer;
begin
{заполняем массив числам}
//сортируем первый столбик
for i1:=1 to n do
for j1:=1 to n-1 do
if mas[j1,1]<mas[j1+1,1] then
begin
x1:=mas[j1,1];
mas[j1,1]:=mas[j1+1,1];
mas[j1+1,1]:=x1;
end;
//сортируем второй столбик
for i2:=1 to n do
for j2:=1 to n-1 do
if mas[j2,2]<mas[j2+1,2] then
begin
x2:=mas[j2,2];
mas[j2,2]:=mas[j2+1,2];
mas[j2+1,2]:=x2;
end;
//сортируем третий столбик
for i3:=1 to n do
for j3:=1 to n-1 do
if mas[j3,3]<mas[j3+1,3] then
begin
x3:=mas[j3,3];
mas[j3,3]:=mas[j3+1,3];
mas[j3+1,3]:=x3;
end;
{Считуем массив}
end;

P.S. сортируем алгоритмом пузырьковой сортировки
 
Останнє редагування:
подскажите, как делать задачку... ОДЗ надо здать через неделю, а я в ней е*усь уже месяц, даже училка не знает, как ее делать:

Підрахувати суму натуральніх чисел, що належать інтервалу [a,b), в яких парні та не парні цифри чергуються...

короче, программа должна подсчитівать числа, такие как 12345, где 1,3,5-непарное 2,4 -парное....

зарание благодарен...
 

vini

receive undersign
подскажите, как делать задачку... ОДЗ надо здать через неделю, а я в ней е*усь уже месяц, даже училка не знает, как ее делать:

Підрахувати суму натуральніх чисел, що належать інтервалу [a,b), в яких парні та не парні цифри чергуються...

короче, программа должна подсчитівать числа, такие как 12345, где 1,3,5-непарное 2,4 -парное....

зарание благодарен...
У тебя есть тесты?
Какие ограничение на A и B?
 

Hamster

Well-Known Member
От толькочто нацарапал чтото.
Код:
uses wincrt;
var i,g,aa,bb,sum:longint; l1,l2,result:boolean;s:string;
h:integer;
begin
write('a');  readln(aa);  write('b');  readln(bb);

for g:=aa to bb-1 do begin
str(g,s);
result:=false;
val(s[1],k,h);
if k mod 2 =0 then l1:=true else l1:=false;
for i:=2 to (length(s)) do
begin
val(s[i],k,h);
if k mod 2 =0 then l2:=true else l2:=false;
if l2=l1 then result:=true; l1:=l2;
end;
if not result then sum:=sum+g;
end;
writeln(sum);
end.
Правельнее бы было, конечно, работать с самим числом конкретно, а не со стринговым эквивалентом так скажем, но все-же прога вроде бы пашет.
 
Останнє редагування:
Зверху