Turbo Pascal

[yranija]

Вообще то сейчас расценки такие от 10 до 50 гривен за задачу, твои по минимуму
P.S. Не хочешь учить значит платишь

 

[KaeT]

Дано двовимірний масив у [2х4]. Використовуючи даний масив виконати наступні дії:
1)визначити кількість елементів масиву, які належать відрізку [-2;12].
2)знайти максимальний елемент масиву.


Кому не сложно решите плиз

 

[KoroleK]

program AK;
uses Wincrt;
var X:array [1..4,1..4] of real;
    k,m,n,i,j:byte;max,r:real;
begin
     writeln('________Ручное заполнение масива________ ');
     writeln('Введите размер масива M,N=');readln(m,n);
     for i:=1 to n do
         for j:=1 to m do
             read(x[i,j]);
     writeln('_______Автоматическое заполнение масива______');
     randomize;
     writeln('Введите размер масива M,N=');readln(m,n);
     for i:=1 to n do
         for j:=1 to m do
             begin
                 r:=random;
                 r:=60*r-30;
                 x[i,j]:=r;
             end;
     writeln(' Масив Х ');
     for i:=1 to n do
         begin
              for j:=1 to m do
              write(' ',x[i,j]:6:2);
              writeln;
         end;
max:=x[1,1];
for i:=1 to n do
    for j:=1 to m do
          if max<x[i,j] then
                  max:=x[i,j];

k:=0;
for i:=1 to n do
    for j:=1 to m do
        if (x[i,j]>-2) and (x[i,j]<12) then
           k:=k+1;
writeln('Количество элементов принадлежащих промежутку [-2;12] K=',k);
writeln('Минимальное значение масива =',max:4:2);
end.

делал на Борланд паскале тоисть 2 строчку можеш удалить, ну и 1 способ заполнения ужали иди зделай как коментарий спомощью скобок {}

 

[Пух]

Дано двовимірний масив у [2х4].

writeln('Введите размер масива M,N=');readln(m,n);

имхо, сразу сделать
const m=2; n=4;
var X:array [1..m,1..n] of real;

 

[KoroleK]

можно и так,просто кому как привычней,мне так удобней поетому я так делаю))

 

[Пух]

можно и так,просто кому как привычней,мне так удобней поетому я так делаю))

просто в данной задаче четко указана размерность массива и нету смысла чтобы пользователь её вводил сам(а пользователь может "пошутить", ввести например m=10, n=2 и мы получим сразу ошибку...).

 

[KoroleK]

ну да тут я тупонул я всегда размер масива задавал 100 на 100 =)

 

[Пух]

max:=x[1,1];
for i:=1 to n do
for j:=1 to m do
if max<x[i,j] then
max:=x[i,j];

k:=0;
for i:=1 to n do
for j:=1 to m do
if (x[i,j]>-2) and (x[i,j]<12) then
k:=k+1;

мне кажется или можно это обьединить в 1 цикл? =)

 

[Z3RG]

Да, можно, только надо BEGIN END в вложенном цикле делать, да и можно через REPEAT UNTIL... Так вроде правильнее.

 

[Mak$]

Помогите перевести программу с C++ в Pascal

unsigned short CRC16(char *Msg, unsigned short Datalen)

{

char CRCHi = 0xFF, CRCLo=0xFF;
char Index;

while (DataLen--)

{

Index = CHCRi ^ *Msg++;
CRCHi = CRCLo ^ array_CRCHi[Index];
CRCLo = array_CRCLo[Index];

}

return ((CRCHi << 8) | CRCLo);

}

PS есть два масива с заданными значениями array_CRCHi и array_CRCLo, но указывать сдесь я думаю некчему.