VPF::Паскаль. 3 задачи. - Форум программистов

Герман

Дата 29.12.2005, 13:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Очень прошу Вашей помощи!

"Вывести все четырехзначные натуральные числа, в десясичной записи которых нет двух одинаковых цифр".
"Ввести N действительных чисел . Подсчитать сумму положительных и кол-во отрицательных".
"Вывести все натуральные числа до заданного N, которые являются палиндромами".

Прошу помочь. ПОЖАЛУЙСТА, очень надо.

Ch0bits

Дата 29.12.2005, 16:02 (ссылка)

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

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

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

Цитата

натуральные числа

Шо це?

Цитата

действительных чисел

Хто енто?

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

Quizful - новый портал с классными IT тестами!

BSOD

Дата 30.12.2005, 00:50 (ссылка)

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

Загрузка ...

Опытный

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

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

ну блин...

Код


for i:=1 to 9999 do
  begin
    str(i,s);
    j:=1;
    while pos(s[j],s)=j do inc(j);
    if j>length(s) then writeln(i); 
  end;

ну или что-то типа того (это про первую задачку)... остальные аналогично... (ну если в последней N не сильно большое...)

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

как корабль назовешь - то на нем и напишешь

Герман

Дата 2.1.2006, 12:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Прошу же Вас написать решение и двух других задач, а то мой мозг не может справиться. Огромное спасибо.

BSOD

Дата 2.1.2006, 21:08 (ссылка)

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

Загрузка ...

Опытный

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

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

ну вот про вторую...

Код


...
readln(n);
for i:=1 to n do
  readln(a[i]);
sp:=0;
co:=0;
for i:=1 to n do
  if a[i]>=0 then sp:=sp+a[i] else inc(co);
writeln(sp);
writeln(co);
...

третью... ну там просто придумать проверку на "палиндромность"...
ну просто идеш циклом до середины и сравниваешь буквы... я думаю - напишешь....

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

как корабль назовешь - то на нем и напишешь

SoWa

Дата 4.1.2006, 21:20 (ссылка)

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

Загрузка ...

Харекришна

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

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

Код


var
a,b,c: integer;
begin
readln(a);
if a>=0 then b:=b+a
else
c:=c+1;
writeln('+++', b);
writeln('---', c);
end.

А что не справляется у тебя? smile

Это сообщение отредактировал(а) SoWa - 4.1.2006, 21:24

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

Всем добра smile

Герман

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

(голосов: 0)

Загрузка ...

Unregistered

Вот у меня с палиндромами не выходит, и хоть тресни. Пиомогите, пожалуйста... Напишите вариант!

BSOD

Дата 5.1.2006, 20:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


function palindrom(s : string): boolean;
  var
    l : longint;
    i : longint;
  begin
    l:=length(s);
    for i:=1 to l div 2 do
      if s[i]<>s[l-i] then break;
    if i<l div 2 then palindrom:=false else palindrom:=true;
  end;

...
  for i:=1 to n do
    begin 
      val(i,str,code);
      if palindrom(str) then writeln(str);
    end;
...

ну или что-типа этого... по идее должно работать (не проверял)

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

как корабль назовешь - то на нем и напишешь

Гость_Andrew

Дата 8.1.2006, 20:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

При выводе текстов на экран или печатающее устройство часто используется табуляционные остановки – выделенные позиции строки. Например при печати таблиц полезно зашифровать положение столбцов таблицы. Если в исходном тексте встречается символ табуляции tab (код 9), это значит, что текст следующий за символом tab должен печататься со следующей табуляционной остановки, а до нее следует выдавать пробелы. Составить процедуру печати текста с указанной интерпретацией символа tab (предположить фиксированный набор табуляционных остановок).

Гость_Митя

Дата 16.1.2006, 15:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

вот,ч то от нас требовали (2я задача). НО все равно ВСЕМ огромное СПАСИБО!!! Приезжайте в Петербург - покажу город, покатаю на трамваях! [email protected]

Begin
var ...
write ('Введите N действительных чисел');
readln(n);
sp:=0;
co:=0;
for i:=1 to n do begin
readln (a);
if a>=0 then sp:=sp+a;
if a<=0 then co:=co+1;
end;
writeln (sp);
writeln (co);
readln;
End.

EXIS

Дата 8.12.2007, 21:30 (ссылка)

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

Загрузка ...

Новичок

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

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

ребят,оч надо решение 2х задач в турбо паскале,плиз))) smile

№1
заданное слово разбейте на части по две буквы.вставьте между плученными частями слова знак <->(дефис).
№2
lданы m1,m2,m3.определите есть ли среди них равные по абсолютной величине.

p.s.и еще нужен какой то устный счет(у меня никогда не было информ-ки,я в душе не знаю что это такое smile

)

заранее спасибо)

THandle

Дата 8.12.2007, 21:33 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

EXIS, зачем поднимаешь бородатых?
Создай отдельную тему.

EXIS

Дата 8.12.2007, 21:42 (ссылка)

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

Загрузка ...

Новичок

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

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

а как?))

THandle

Дата 8.12.2007, 22:18 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

EXIS, http://forum.vingrad.ru/act-Post/CODE-00/f...ax-nocolor.html

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