Объявление

Свернуть
Пока нет объявлений.

Задачка на паскаль

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • #31
    Сообщение от KILLERX Посмотреть сообщение
    Блин,это всё понятно!Вы можете напомнить,как вводить массив?
    Хоспаде, может хоть иногда стоит посещать лекции там или учебники почитывать?
    Начало проги можно либо как Ро написала:
    Код:
    const N=100;
    var a : array [0..N-1] of integer;
    либо (если вы уже изучили динамические массивы) так:
    Код:
    var a : array of integer;
        N : integer;
    Потом пишешь так:
    Код:
    i, c, p : integer;
    begin
     // если используешь первый вариант начала, то следующую строчку не надо
     write('Enter N: '); readln(N); SetLength(a, N);
     c:=0;
     p:=1;
    
     for i := 0 to N-1 do begin
      write('Enter a(',i+1,'): '); readln(a[i]);
     end;
     
     for i:= 0 to N-1 do
      if (a[i]>0) and (sin(a[i])<=0) then begin
       c:=c+1;
       p:=p*a[i];
      end;
     
     writeln('c=', c,' | p=', p);
    end;
    но это вариант "для препода". В действительности, лучше заюзать так:
    Код:
    i, c, p : integer;
    begin
     // если используешь первый вариант начала, то следующую строчку не надо
     write('Enter N: '); readln(N); SetLength(a, N);
     c:=0;
     p:=1;
    
     for i := 0 to N-1 do begin
      write('Enter a(',i+1,'): '); readln(a[i]);
      if (a[i]>0) and (sin(a[i])<=0) then begin
       c:=c+1;
       p:=p*a[i];
      end;
     end;
    
     writeln('c=', c,' | p=', p);
    end;
    ещё лучше вообще вот так (но так нельзя по условию, ибо задание на применение массивов):
    Код:
    var i, c, p, N, a : integer;
    begin
     write('Enter N: '); readln(N);
     c:=0;
     p:=1;
    
     for i := 0 to N-1 do begin
      write('Enter a(',i+1,'): '); readln(a);
      if (a>0) and (sin(a)<=0) then begin
       c:=c+1;
       p:=p*a;
      end;
     end;
    
     writeln('c=', c,' | p=', p);
    end;
    как-то так.

    Комментарий


    • #32
      Сообщение от iP Посмотреть сообщение
      ещё лучше вообще вот так (но так нельзя по условию, ибо задание на применение массивов):
      да, это самое правильное :) Жалко, что по заданию не покатит. И вряд ли при таком задании ему имеет смысл делать динамичесикие массивы...

      Добавлено через 35 секунд

      Сообщение от Marker
      Я бы на твоём месте эти гордился.
      Я гордусь тем, что видела Кларион. Но ни в жизни не буду писать об этом в резюме.

      Комментарий


      • #33
        Начерталка и инженерная графика

        Вопрос на засыпку, зачем химику начерталка и инженерная графика ? : )
        Затем, что без них, поташ с мочевиной будешь лопатой мешать!

        Комментарий

        Кто на сайте

        Свернуть

        Присутствует 1. Участников: 0, гостей: 1.

        Рекорд одновременного пребывания 2,302, это было 26-02-2015 в 04:02.

        Обработка...
        X