задачки в basic - Форум
Пятница, 09.12.2016, 10:42
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачки в basic (циклы)
задачки в basic
ЯрославаДата: Вторник, 30.03.2010, 19:28 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
1.дано натуральное число n.прибавить по единице в старший и младший разряды этого числа.
2.вводится последовательность ненулевых чисел,завершаемая нулем.Определить максимальное отрицательное число в данной последовательности.

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

 
ignorerДата: Вторник, 30.03.2010, 20:17 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
щас решу обе.
 
ignorerДата: Вторник, 30.03.2010, 21:43 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
это первая:
dim a, n as integer
cls
input n
n=n+1
while n>0
a=10*a+n mod 10
n=n\10
wend
a=a+1
while n>0
n=10*n+a mod 10
a=a\10
wend
print n
 
ignorerДата: Вторник, 30.03.2010, 21:58 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
это вторая:
dim a(100) as integer
dim i, max as integer
cls
i=1
input a(i)
while a(i)<>0
i=i+1
input a(i)
if (a(i)<0)and((max=0)or(a(i)>max))then max=a(i)
wend
print max
 
ЯрославаДата: Воскресенье, 23.05.2010, 18:54 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Спасибо огромное,вторую защитила,а первую не принял препод,он сказал,что ее можно как то через моды полностью,только как,я не понимаю,сможешь помочь?
 
ignorerДата: Воскресенье, 23.05.2010, 19:26 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
если я не ошибаюсь, то в данном случае мод - mod, т.е. оператор, находящий остаток от деления. так? подумаю, но не могу понять во-первых как решить, а во-вторых, зачем изобретать велосипед. во всяком случае я подумаю.
 
ЯрославаДата: Воскресенье, 23.05.2010, 20:44 | Сообщение # 7
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
именно так...
и я не понимаю,но не хочет мне препод ставить зачет..говорит,что переделать нужно..
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачки в basic (циклы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016