Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2009, 16:26   #1
Fylhtq
Пользователь
 
Регистрация: 11.11.2008
Сообщений: 32
Восклицание Напишите пожалуйста паскаль-программу

Из последовательности удалить все элементы, имеющие целую часть, кратную одному из двух наперед заданных чисел
AndreiKA_PC
Fylhtq вне форума Ответить с цитированием
Старый 23.04.2009, 17:07   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

В чем проблема? Что непонятно?
Покажите ваши наработки.

Вам помогут int и mod.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 23.04.2009, 20:23   #3
Fylhtq
Пользователь
 
Регистрация: 11.11.2008
Сообщений: 32
Злость

[QUOTE=Sazary;247288]В чем проблема? Что непонятно?
Покажите ваши наработки.

Вам помогут int и mod.[/QUOT]
эх никак я не могу написать доработокнет ((((
AndreiKA_PC
Fylhtq вне форума Ответить с цитированием
Старый 23.04.2009, 20:35   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Учите паскаль и в следующий раз выкладывайте то, что сделали.
Код:
uses crt;

var
A,B : integer;
n,i,j : integer;
mas : array[1..100] of real;

Begin
clrscr;
write('Enter A: ');
readln(A);
write('Enter B: ');
readln(B);
write('Enter number of elements: ');
readln(n);
for i:=1 to n do
 begin
 write('Enter mas[',i,']: ');
 readln(mas[i]);
 end;
writeln;

i:=1;
while i<=n do
 begin
 if (round(int(mas[i])) mod A = 0) or (round(int(mas[i])) mod B = 0) then
  begin
  dec(n);
  for j:=i to n do
   mas[j] := mas[j+1];
  dec(i);
  end;
 inc(i);
 end;

for i:=1 to n do
 write(mas[i]:6:2);

readkey;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
напишите программу nyncuk Помощь студентам 3 19.06.2008 14:39
Паскаль. Напишите программу,удваивающую каждый символ в заданном тексте Yola Помощь студентам 2 19.11.2007 17:31