Автор Тема: Описать и вывести массив с переменой, Pascal  (Прочитано 2006 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн marinashizya

  • Новичок
  • *
  • Сообщений: 4
    • Просмотр профиля
в МАССИВЕ ИЗ 15 ЭЛЕМЕНТОВ НАЙТИ МИНИМАЛЬНЫЙ ИЗ ЭЛЕМЕНТОВ КРАТНЫХ 3 И ИЗ ВСЕХ ЭЛЕМЕНТОВ НАХОДЯЩИХСЯ ДО НЕГО ОБРАЗОВАТЬ ОДНОМЕРНЫЙ МАССИВ. КАК ЭТО МОЖНО СДЕЛАТЬ У МЕНЯ ПОСТОЯННО ВЫСВЕЧИВАЮТСЯ ОШИБКИ
« Последнее редактирование: 22 Января 2012, 09:39:52 от Asix »

Оффлайн tig81

  • Глобальный модератор
  • *****
  • Сообщений: 15181
    • Просмотр профиля
1. ОТКЛЮЧИТЕ CAPS LOCK, слепых нет
2. Показывайте код и какие ошибки выдает

Оффлайн marinashizya

  • Новичок
  • *
  • Сообщений: 4
    • Просмотр профиля


Оффлайн marinashizya

  • Новичок
  • *
  • Сообщений: 4
    • Просмотр профиля
а как он выглядит


Оффлайн marinashizya

  • Новичок
  • *
  • Сообщений: 4
    • Просмотр профиля
Program P1;
var a:array[1..15] of integer ;
b:array[1..f-1] of integer ;
 i,d,f : integer;
begin for i:=1 to 15 do readln (a);
if a mod 3=0 then begin d:=a; f:=i end;
for i:=i to 15 do if (a mod 3=0) and (a<d) then
begin d:=a; f:=i end;
for i:=1 to f-1 do writeln (b);
writeln ('d=',d)
end.

Оффлайн wital1984

  • Постоялец
  • ***
  • Сообщений: 189
    • Просмотр профиля
1) b:array[1..f-1] of integer ; - так писать нельзя, f -  необъявленная переменная. лучше уж описать новый массив, как и старый от 1 до 15 и не важно, что у нас будет меньше элементов
2) if a mod 3=0 then begin d:=a; f:=i end; тут вы проверяете на кратность 3-м только первый элемент массива. А если первый не подходит? тут лучше использовать цикл while.
3) begin d:=a; f:=i end; тут нужно задать значение нового массива b , а то он у вас получается пустой


 

Помогите в составлении программы на Turbo Pascal,плиз!срочно!

Автор Ymni4ka

Ответов: 1
Просмотров: 3493
Последний ответ 03 Ноября 2010, 09:27:22
от testtest
Помогите составить блок-схему и программы на языке Pascal

Автор tasha1991

Ответов: 0
Просмотров: 4084
Последний ответ 09 Января 2011, 16:33:00
от tasha1991
Pascal. Вычислить значения  du/dx, пользуясь конечно-разностным соотношением

Автор Shurara

Ответов: 0
Просмотров: 3892
Последний ответ 09 Февраля 2011, 17:54:21
от Shurara
Pascal. Решить задачу Коши для ОДУ модифицированным методом Эйлера

Автор Shurara

Ответов: 1
Просмотров: 5307
Последний ответ 10 Марта 2011, 16:39:51
от lyamec
Pascal FAQ. Напишите примеры использования процедур и функций

Автор privatnebank

Ответов: 3
Просмотров: 3502
Последний ответ 19 Февраля 2010, 16:29:25
от InfStudent