Форум «Всё о Паскале» [Русская версия Invision Power Board]

Автор: Kreaman 30.01.2008 19:23

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

1. Массив Х задан как типизированая контстанта. Х(1.4;10;2;5;6.7;23.7;22;7.5). Вычислить и вывести на экран количество элементов, которые не больше за число 10.

Автор: Michael_Rybak 30.01.2008 20:53

!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
6. Одна тема - один вопрос (задача)

В этой теме оставляй одну, для второй открывай новую.

Автор: мисс_граффити 30.01.2008 23:26

а от того, что мы напишем, у тебя станет "получаться с массивами и строками"?

Автор: Kreaman 31.01.2008 0:06

Цитата(мисс_граффити @ 30.01.2008 20:26)

а от того, что мы напишем, у тебя станет "получаться с массивами и строками"?

Я хоть пойму как оно всё делаеться, просто модульная работа состоит из одинаковіх заданий, и если ві мне поможете сделать их, то я смогу разобраться в них!

Автор: Client 31.01.2008 0:11

Простенькая задача на массив, смотри FAQ и спрашивай что именно не понятно

Автор: Kreaman 31.01.2008 2:44

Вам простенькая, а мне ничего не понятно, так как материала эатакого я не где не видел, а с похожими задачами у мня голова не сможет слепить одну...не можете помочь, так и скажите, не надо мня куда то там на страницы посылать, почитай мол то, почитай это, я попросил сделайте кто может...

Автор: compiler 31.01.2008 3:56

посмотри следующую задачу, которая суммирует элементы не равные трём...

const
  my_ar: array [1..4] of integer=(      
      1,2,3,4
    ) ;
var
        i, s: integer;
begin
        s:=0;
        //low() - возвращает порядковый номер первого элемента(1)
        //high() - последнего элемента(4)
        for i := low(my_ar) to high(my_ar) do
                if my_ar[i] <> 3 then s := s+my_ar[i];
        writeln(s);
end.

теперь учти
1) элементы массива у тебя real, а не integer
2) другое условие сравнения( у тебя больше десяти, вместо <>3)

теперь пробуй сам, не получится спрашивай...

Автор: Yevgeny 31.01.2008 4:28

Цитата

не можете помочь, так и скажите, не надо мня куда то там на страницы посылать, почитай мол то, почитай это

Ты что правда сомневаешься, что тебе тут никто помочь не может?

зря...

Цитата

если ві мне поможете сделать их, то я смогу разобраться в них!

а вот это действительно сомнительно...
Ты бы сам что-нить сделал и в правду, и тогда тебе бы сразу помогли

Автор: Станник 1.02.2008 1:07

Цитата(Kreaman @ 30.01.2008 15:23)

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

1. Массив Х задан как типизированая контстанта. Х(1.4;10;2;5;6.7;23.7;22;7.5). Вычислить и вывести на экран количество элементов, которые не больше за число 10.

Вот набросал...Написано немного некрасиво, но вроде работало...



uses
crt;
const
x: array [1..12] of integer=(1,4,10,2,5,6,7,23,7,22,7,5);
var
i,j:integer;
begin
clrscr;
for i:=1 to 12 do    {Число элементов массива, параметр цикла}

  if x[i]<10 then
   begin
   j:=j+1;          {Счетчик  количества чисел <10}
   writeln(x[i]);
   end;
    writeln('Число элементов ',j);
    readln;
end.

Автор: мисс_граффити 1.02.2008 1:11

Станник, j хорошо бы обнулить.
И "не больше" - это меньше или _равно_.

Автор: compiler 1.02.2008 1:58

Станник, (1,4,10,2,5,6,7,23,7,22,7,5) и (1.4;10;2;5;6.7;23.7;22;7.5) отличаются, не так ли?

Автор: Странник 2.02.2008 1:37

Цитата(compiler @ 31.01.2008 21:58)