Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2014, 15:45   #1 (permalink)
Onotole
Новичок
 
Регистрация: 17.12.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите доделать программу в Pascal

Доброго дня.
Помогите пожалуйста с программой, нужно в массиве найти ненулевые элементы с четными номерами и их количество.
Количество нашел, но как вывести на печать элементы удовлетворяющие условию?

Код:
uses
  crt;

var
  a: array[1..15] of integer;
  i, n, k: integer;

begin
  
  n := 15;
  for i := 1 to n do
  begin
    writeln('a[', i, ']=');
    readln(a[i]);
    if (i mod 2 = 0) and (a[i] <> 0)  then 
      inc(k);
  end;
  writeln('kol-vo elementov =', k);
end.
Onotole вне форума   Ответить с цитированием

Старый 19.12.2014, 15:45
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно такое, что проблема уже решена в одной из аналогичных тем

Помогите доделать программу на C++, пожалуйста!
Помогите написать программу на Pascal
Помогите написать программу в Pascal
Помогите доделать программу
Pascal, помогите дописать программу

Старый 19.12.2014, 16:50   #2 (permalink)
poiu
Member
 
Регистрация: 05.03.2014
Сообщений: 201
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
По умолчанию

var
s:= string;
.....
if (i mod 2 = 0) and (a[i] <> 0) then
begin
inc(k);
s:= s + ' ' + str(a[i]);
end;
writeln('kol-vo elementov =', k);
writeln('elementi - ', s);
poiu вне форума   Ответить с цитированием
Старый 19.12.2014, 19:48   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,343
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от poiu Посмотреть сообщение
var
s:= string;
.....
if (i mod 2 = 0) and (a[i] <> 0) then
begin
inc(k);
s:= s + ' ' + str(a[i]);
end;
writeln('kol-vo elementov =', k);
writeln('elementi - ', s);
Не, ну можно, конечно, и так - через строковую переменную, вот только стОит ли? Не слишком ли витиевато? И потом - не знаю, как в этом кретинском АВС, но в нормальном Паскале (Turbo, Free) Str - это вовсе не функция, а процедура. И потому Ваша конструкция не пройдёт.
Я бы предложил так:
Код:
const
 n=15;

var
 a,b: array[1..n] of integer;
 i, k: integer;

begin
 k:=0;
 for i := 1 to n do
  begin
   write('a[', i:2, ']= ');
   readln(a[i]);
   if (i mod 2 = 0) and (a[i] <> 0)  then
    begin 
     inc(k);
     b[k]:=a[i];
    end;
  end;
 writeln('kol-vo elementov = ', k);
 writeln('elementi:');
 for i:=1 to k do write(b[i],' ');
 Readln
end.
И еще совет Onotole: не надо пихать это "uses CRT;" абы для просто так. Если команды этого модуля не используются (а в данном случае это так), то и незачем его подключать.
Впрочем, знаю, что некоторые препы требуют, чтобы студенты ВСЕГДА ставили "uses CRT;". По мне - таких гнать в три шеи.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.