Pascal

[kastrator]

Народ помогите плиз решить задачку на паскале с ним мало знаком:

 

Дан массив из N целых элементов и два целых числа A и B. Необходимо определить количество элементов, которые одновременно больше A и меньше B.

[Sannis]

www.sysman.ru

[vasyast]

Примитивная же задача. Массив то одномерный или это матрица?

 

Лови, студент!

 

Код программы:

{Vasily @ Ibresource жжот!}
Program Elementarshina;
uses crt;
var
  na,count,a,b,i : integer;
  n:array [1..20] of real;

begin
  clrscr;

  {задаем числа А и В}
  write('Введите число А: ');
  readln(a);
  write('Введите число В: ');
  readln(b);
  writeln;

  {заполняем массивчик}
  repeat
 write('Введите количество элементов массива N (не больше 20): ');
 read(na);
  until na<=20;

  count:=1;
  writeln;

  while count <= na do begin
 write('Введите элемент массива N (осталось ',(na-count),'): ');
 readln(n[count]);
 count:=count+1;
  end;

  {покажем его}
  writeln;
  writeln('Исходный массив:');
  for i:=1 to na do begin
 write(n[i]:0:0,' ');
  end;

  {поработаем над ним}
  count:=0;
  for i:=1 to na do begin
 if n[i] > a then
	if n[i]< b then
	   count:=count+1;
  end;

  writeln; writeln;
  writeln('Количество таких чисел в массиве: ',count);
  writeln;
  write('Программа завершена, нажмите Enter!');

  readln;

end.

 

Тестовое задание и работа программы:

Введите число А: 1

Введите число В: 10

 

Введите количество элементов массива N (не больше 20): 10

 

Введите элемент массива N (осталось 9): 1

Введите элемент массива N (осталось 8): 2

Введите элемент массива N (осталось 7): 3

Введите элемент массива N (осталось 6): 4

Введите элемент массива N (осталось 5): 5

Введите элемент массива N (осталось 4): 6

Введите элемент массива N (осталось 3): 7

Введите элемент массива N (осталось 2): 8

Введите элемент массива N (осталось 1): 9

Введите элемент массива N (осталось 0): 10

 

Исходный массив:

1 2 3 4 5 6 7 8 9 10

 

Количество таких чисел в массиве: 8

 

Программа завершена, нажмите Enter!

 

Проверь, чтобы правильно работало.

Изменено 23 Апреля 2007 пользователем vasyast

[kastrator]

thkz but:

 

until na<=20;

IS ERROR 36

kakoi tam pravilniy sintaksis?

[vasyast]

Должно работать. Всё правильно.

 

Попробуй просто na<20.

[kastrator]

Probyval i tak i tak i podrugomu

error 36

[vasyast]

А среда программирования какая? Я на Turbo Pascal написал...

[kastrator]

Turbo Pascal 7.0

еще тема идиотская:

Дана последовательность из 70 целых чисел. Определить сколько отрицательных чисел стоит в начале этой последовательности.

please

[vasyast]

Я на 7.0 и писал. Ты наверно коряво набрал код программы.

 

Вот, погляди:

elementarshina.zip

[kastrator]

Ну с этой я разобрался, а со второй тоже попробывал:

Uses Crt;
Var
Count, I: byte;
N:array [1..70] of real;

Begin
Clrscr;

Count:=1;
While (Count <= 70) do begin
 Write('Vvedite element massiva N (ostalos ',(70-Count),'): ');
 Readln(N[count]);
 Inc(Count);
End;

{pokazhem ego}
WriteLn;
WriteLn('Ishodniy massiv:');
For I:=1 To 70 Do Begin
 Write(N[I]:0:0,' ');
end;

{porabotaem nad nim}
Count:=0;
For I:=1 To 70 Do Begin
 If N[I] > 0 then break
 Else Inc(Count);
end;

WriteLn;
WriteLn('Kolichestvo otricatelnyh chisel v nachale massiva: ',Сount);
WriteLn;
Write('Programma zavershena, zhmem Enter!');

ReadLn;

End.

 

Write(N:0:0,' ');

end; здесь ошибка синтаксиса но в чем я так и не понял?

[h8)u]

Write(N:0:0,' ');end; здесь ошибка синтаксиса но в чем я так и не понял?

Замени просто на

write(N[I],' ');
end;

Или на:

write(N[I]:0:0);
write(' ');
end;

[-Зверик-]

kastrator, ты бы хоть Василия за потраченное время поблагодарил...

[Song]

Раздражают люди за такие реплики:

Ну с этой я разобрался, а со второй тоже попробывал:

 

Типа я и сам справился с этой задачей и ТИПА без твоей помощи (пренебрежительно так), но вот с этой пока не получается. Помоги типа.

[-Зверик-]

угу. и не спасибо и ничего, как будто тут все аж должны тебе те минимум по гроб. еще особенно разражает когда чел тратит 20 минут своего времени, а ему за это вообще ничего, ни спасибо ни привета, мол так и должно быть, он тут нанялся те помогать.

 

вообще, поддержка (по собственному опыту в mkportal форуме), вещь очень неблагодарная. юзеры ленятся даже поиском воспользоватся, доки почитать, в гугле попробывать поискать. идут и задают тупейшие вопросы.. главное все проблемы (95-99%) они могут решить сами. но не хотят. попадаются конечно интересные вопросы, но очень редко. и ты тратишь свое время, добрый альтруист.. из доброты сначала пытаешься помочь, разобратся.. а потом те даже спасибо не скажут, гады неблагодарные.

 

потому и плюнул я на это дело.

 

кто не может сам себе помочь - не достоен спасения.

 

)

[Arhar]

опять всплывает мега злободневная тема))

[kastrator]

Ну естественно огромное спасибо! я же написал выше скромновато thkz если кто не видит...

кстате менял

write(N[I],' ');
end;

Или на:

write(N[I]:0:0);
write(' ');
end;

Не помогло пробывал на разных компиляторах таже ошибка синтаксиса.

[h8)u]

kastrator, ну, значит, синтаксиечская ошибка не в этом месте.

Этот кусок написан синтаксически правильно.

[vasyast]

Кривой турбо паскаль у Кастратора (или руки). Собственно ник "говорящий".

[kastrator]

черт его знает у меня тоже самое подозрение на мой турбо паскаль, вроде кривизной рук не страдаю

[Kvendi]

Причем здесь Pascal ?

Синтаксис языка не меняется.

Write+f1.