Шарящие! нид хелп
avatar

ProRok

flag race

33553

min

|

754

sup

|

0

gas
1423
15




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

1. Ассортимент продуктовой лавки состоит из не менее, чем 5 наименований товаров. Составить программу, которая будет выводить на экран товар, подсчитанный из блока DATA , его цену и запрашивать с клавиатуры его количество. Результатом должна стать стоимость покупки.

2. С клавиатуры вводиться произвольная последовательность целых чисел в диапазоне от -100 до 100. Выяснить, есть ли среди них нечётные числа. Если есть, вывести флаг F=1, иначе F=0.

заранее THX :s47:

Комментарии

avatar Daft flag race

6040

min

|

127

sup

|

0

gas
12:08 18.06.2009

:s47: :s47: :s47: :s47: :s47: :s47:
avatar reactivez flag race

5000

min

|

66

sup

|

0

gas
12:12 18.06.2009

БЛять сначала прочитал как "Ширяющие ...
сука тема накроты залезла ф мосг
avatar Daft flag race

6040

min

|

127

sup

|

0

gas
12:13 18.06.2009

ProRock пишет:
а то знакомому надо


ага, ага :s4:
avatar reps)Defi flag race

14648

min

|

429

sup

|

0

gas
12:17 18.06.2009

Сессия на кузыюкг :s3:
avatar 3D.InqubE flag race

16700

min

|

36

sup

|

0

gas
12:20 18.06.2009

Defi пишет:
Сессия на кузыюкг


Да какая сессия? Это школьные задания бейсик.
Могу на Паскале такое сделать, бейсик уже забыл.
avatar _Ronin_ flag race

17504

min

|

453

sup

|

0

gas
12:59 18.06.2009

ненавижу программирование пойду коаксиалом бахнусь...
avatar 7x-Skirmish flag race

2701

min

|

69

sup

|

0

gas
13:59 18.06.2009

Вот почему все задания, которые я пытаюсь кому-то сделать, всегда формулируются через жопу? :s23:

ProRok пишет:
1. Ассортимент продуктовой лавки состоит из не менее, чем 5 наименований товаров. Составить программу, которая будет выводить на экран товар, подсчитанный из блока DATA , его цену и запрашивать с клавиатуры его количество. Результатом должна стать стоимость покупки.

Чо за блок DATA? Откуда вообще информацию о товарах брать?
ProRok пишет:
2. С клавиатуры вводиться произвольная последовательность целых чисел в диапазоне от -100 до 100. Выяснить, есть ли среди них нечётные числа. Если есть, вывести флаг F=1, иначе F=0.

Как можно вывсети ФЛАГ? о_О Или тебе тупо циферку на экран?

iFU.InqubE пишет:
Могу на Паскале такое сделать, бейсик уже забыл.

Я его не знал никогда, что не мешает на нём писать совершенно -- синтаксис простой как пробка, любые типовые алгоритмы легко гуглятся хООО
avatar pipON flag race

3160

min

|

52

sup

|

0

gas
14:15 18.06.2009

вторую можно сделать на си, первую ваще не понимаю сути, чё программить то?
avatar fiRe)pr0mpt flag race

4613

min

|

14

sup

|

0

gas
14:44 18.06.2009

Кот Джунга шарит --
avatar fiRe)pr0mpt flag race

4613

min

|

14

sup

|

0

gas
14:46 18.06.2009

ReAcTiVeZ пишет:
БЛять сначала прочитал как "Ширяющие ...
сука тема накроты залезла ф мосг

ага,
из блока DATA

из блока Дота, да? --

avatar ProRok flag race

33553

min

|

754

sup

|

0

gas
14:47 18.06.2009

БЛять сначала прочитал как "Ширяющие ...

:s11:
Daft пишет:
ага, ага

неужели если б нужно было лично мне, я начал пиздеть?)))))
7x-Skirmish
ну в общем, всё что я знаю я написал))) sry :s49:

чуствую придёться послать человека, мол товарисч учить надо было в своё время :s11:
или быстро научиться в инэте решать эти задачи самому, токо фпадлу у самого сессия, а ещё ведь погамать надо...
avatar iloveYou flag race

12757

min

|

178

sup

|

0

gas
14:58 19.06.2009

2. С клавиатуры вводиться произвольная последовательность целых чисел в диапазоне от -100 до 100. Выяснить, есть ли среди них нечётные числа. Если есть, вывести флаг F=1, иначе F=0.


Логичнее так:

10 START
15 LET counter = 0
20 DO
30 PRINT "Vvedite N: "
40 INPUT N
45 IF (N MOD 2) <> 0 THEN counter = counter 1
50 LOOP WHILE (N >= -100 OR N <=100)
60 PRINT "Ne4etnix 4isel: " counter


Но по условию так:

10 START
15 LET F = 0
20 DO
30 PRINT "Vvedite N: "
40 INPUT N
45 IF (N MOD 2) <> 0 THEN F = 1
50 LOOP WHILE (N >= -100 OR N <=100)
60 PRINT "F = " counter

хз, писал по ну очень расплывчатым воспоминаниям? так что может и вообще все неправильно... а что у них за бейсик? данные применимы к gw-basic :)

avatar 7x-Lisyonok flag race

2450

min

|

26

sup

|

0

gas
11:06 20.06.2009

7x-Skirmish пишет:
любые типовые алгоритмы легко гуглятся хООО

гуглить типовые алгоритмы, не тоже самое что писать ^.^


1)
DATA 5
DATA "Bublik", 15
DATA "Vatrushka", 12.5
DATA "Limonchik", 25
DATA "Konfeta", 7.5
DATA "Snikers", 31.5

CLS
S = 0
READ K

FOR I = 1 TO K
READ T$
READ C
PRINT "skolko tovarov '" T$ "' po cene " STR$(C) " r. jelaete priobresti?"
INPUT count
S = S C * count
NEXT I

PRINT "stoimost pokupki: " STR$(S) " r."
avatar 7x-Lisyonok flag race

2450

min

|

26

sup

|

0

gas
11:14 20.06.2009

2)
CLS
F = 0
PRINT "vvedite kol-vo chisel"
INPUT N
FOR I = 1 TO N
PRINT "vvedite " STR$(I); "-e chislo"
INPUT x
IF (x MOD 2) = 0 THEN F = 1
NEXT I
PRINT F
avatar Marmelad flag race

3091

min

|

34

sup

|

0

gas
11:58 20.06.2009

Программирование на кузах :s4:

Добавить комментарий

Авторизуйтесь чтобы отправить комментарий