ProRok
33553
|
754
|
0
Нужно решить 2 задачи в бейсике, а то знакомому надо , а я не шарю, карди послал сюда :D :
1. Ассортимент продуктовой лавки состоит из не менее, чем 5 наименований товаров. Составить программу, которая будет выводить на экран товар, подсчитанный из блока DATA , его цену и запрашивать с клавиатуры его количество. Результатом должна стать стоимость покупки.
2. С клавиатуры вводиться произвольная последовательность целых чисел в диапазоне от -100 до 100. Выяснить, есть ли среди них нечётные числа. Если есть, вывести флаг F=1, иначе F=0.
заранее THX :s47:
Добавить комментарий
Авторизуйтесь чтобы отправить комментарий
Комментарии
6040
|
127
|
0
:s47: :s47: :s47: :s47: :s47: :s47:
5000
|
66
|
0
БЛять сначала прочитал как "Ширяющие ...
сука тема накроты залезла ф мосг
6040
|
127
|
0
ProRock пишет:
ага, ага :s4:
14648
|
429
|
0
Сессия на кузыюкг :s3:
16700
|
36
|
0
Defi пишет:
Да какая сессия? Это школьные задания бейсик.
Могу на Паскале такое сделать, бейсик уже забыл.
17504
|
453
|
0
ненавижу программирование пойду коаксиалом бахнусь...
2701
|
69
|
0
Вот почему все задания, которые я пытаюсь кому-то сделать, всегда формулируются через жопу? :s23:
ProRok пишет:
Чо за блок DATA? Откуда вообще информацию о товарах брать?
ProRok пишет:
Как можно вывсети ФЛАГ? о_О Или тебе тупо циферку на экран?
iFU.InqubE пишет:
Я его не знал никогда, что не мешает на нём писать совершенно -- синтаксис простой как пробка, любые типовые алгоритмы легко гуглятся хООО
3160
|
52
|
0
вторую можно сделать на си, первую ваще не понимаю сути, чё программить то?
4613
|
14
|
0
Кот Джунга шарит --
4613
|
14
|
0
ReAcTiVeZ пишет:
ага,
из блока Дота, да? --
33553
|
754
|
0
:s11:
Daft пишет:
неужели если б нужно было лично мне, я начал пиздеть?)))))
7x-Skirmish
ну в общем, всё что я знаю я написал))) sry :s49:
чуствую придёться послать человека, мол товарисч учить надо было в своё время :s11:
или быстро научиться в инэте решать эти задачи самому, токо фпадлу у самого сессия, а ещё ведь погамать надо...
12757
|
178
|
0
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 :)
2450
|
26
|
0
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."
2450
|
26
|
0
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
3091
|
34
|
0
Программирование на кузах :s4: