VPF::Помогите пожалуйсто с задачками.

MassS

Дата 8.3.2009, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.3.2009
Где: Москва

Репутация: нет
Всего: нет

Помогите плиз, вам их решить как орешки щелкать, а у меня не получается =(((

1. С клавиатуры вводится последовательность из n целых чисел (n вводится с клавиатуры). Найти минимальный элемент данной последовательности.

2. Дан одномерный массив, состоящий из целых чисел. Найти количество элементов массива, значения которых больше заданного числа А и кратных 5.

3. Дан массив целых чисел. Найти сумму и количество всех элементов массива, кратных 3 и 5.

Заранее Спасибо!

Metalex

Дата 9.3.2009, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

, читаем правила, очень увлекательно smile

№1
Если множина (не знаю как по русски) вводится с клавы, то зачем вообще вычислять наименьшее в ней, если это можна сделать еще при вводе? Определение наименьшего из множины:

Код

Program Mnogina;
 Const k=5; {количество вводимых чисел}
 Var B:set of 0..100; i:byte; l:integer;
Begin
B:=[];
for i:=1 to k do
begin
 read (l);
 B:=B+[l];
end;
l:=101;
for i:=0 to 100 do
if (i in B) and (i<l)
then l:=i;
writeln (l);
readln;
end.

Или так:

Код

Program Mnogina;
 Const k=5;
 Var B:set of byte; i,l,r:byte;
Begin
r:=255;
B:=[];
for i:=1 to k do
begin
 read (l);
 B:=B+[l];
if l<r
then r:=l;
end;
writeln (r);
readln;
end.

№2

Код


Program Massiv;
Const n;
Var B:array [1..n] of integer; i,A,k;
Begin
k:=0;
readln  (A);
for i:=1 to n do
read (B[i]);
for i:=1 to n do
if (B[i]>A) and (B[i] mod 5=0)
then k:=k+1);
writeln (k);
readln;
end.

№3

Код


Program Massiv;
Const n;
Var B:array [1..n] of integer; i,S,k;
Begin
k:=0;
S:=0;
for i:=1 to n do
read (B[i]);
for i:=1 to n do
if (B[i] mod 3=0) and (B[i] mod 5=0)
then begin
k:=k+1);
S:=S+B[i];
end;
writeln (k, S);
readln;
end.

--------------------

Don't let the system get you down.

MassS

Дата 9.3.2009, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.3.2009
Где: Москва

Репутация: нет
Всего: нет

Metalex Огромное спасибо за помощь!
Только во 2ой и 3ей задачи есть проблемка в самом начале...

Const n; - тут он просит присвоить n какое-то число. Вот такая вот ошибка (Error 90: "=" expexted)
Var B:array [1..n] of integer; i,A,k; - а тут он хочет что бы я после i,A,k; дописал че-то. Вот такая ошибка (Error 86: ":" expected)

В чем проблема?

P.S. Все это дело пишется в Turbo Pascal 7.0

Metalex

Дата 9.3.2009, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

ой да затупил..

Код


Const n=5;
Var B:array [1..n] of integer; i,S,k:integer;

Вместо пятерки можешь любое нужное поставить.

--------------------

Don't let the system get you down.

MassS

Дата 9.3.2009, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.3.2009
Где: Москва

Репутация: нет
Всего: нет

Большое спасибО!!! smile

volvo877

Дата 9.3.2009, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Сорри, первая задача (то есть решение) - вообще не в тему... При чем тут множества? Последовательность - это не множество... Тем более, ограничение 0 .. 100 - откуда оно? Можно цитату из задания, в которой сказано про такое ограничение? Или ты перетасовываешь задачу так, чтоб она стала удобна тебе? Не надо этого делать, это очень плохо кончается обычно... Пересдачей.

Все проще гораздо:

Код

const k=5; {количество вводимых чисел}
var curr, i, min: integer;
begin
  min := maxint;
  for i:=1 to k do begin
    readln(curr);
    if min > curr then min := curr;
  end;
  writeln(min);
  readln;
end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »