я в програмирование полный 0, а нужно написать 4 программы на Qbasic

1.
данные: Произвольное слово
Результат: вывести сообщение, я вляется ли вторая буква в слове буквое "е"

2.
данные: Массив из 14 элементов
результат: индекс последнего отрицательного элемента

3.
данные: х=5, 10, 15, 20, 25, 30 градусов
результат: sin(x) для x (х в радианах)

4.
данные:
а) Объем продукции в руб до автоматизации Q1
W1=Q1/N1
б) Объем продукции в руб. после автоматизации Q2
W2=Q2/N2 ;
в) Численность работников до автоматизации N1, чел
W=((W2-W1)/W1)*100
г) Численность работников после автоматизации N2, чел

результат:
а) Производительность труда до автоматизации W1, руб/чел
б) Производительность труда после автоматизации W2, руб/чел
в) Рост производительности труда W в %

_______________

в общем если кому удастся решить, буду очень благодарна, обещаю пиво - мороженное - шоколадки - горячий ужин (нужно подчеркнуть )
Дело срочное, к сожалению. Зарание спб.

__________________
Жаль,что кончается все,
Все,что хотелось хранить.
Жаль,что кончается зря,
И зря не кончается боль...
А где-то возможно все-
Бессмертие,дружба,любовь,
Невинность ума и души...
Целую, пока, пиши.
(с) ГС

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Ровным счетом все программы можно сделать за 3 минуты, но кубасик я, к сожалению, не знаю. Что за дур дом, неужели еще кто-то преподает этот язык? Давно пора понять, что пользы от него НОЛЬ, один вред.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

уже говорят, что на Паскале пойдёт. )

да, преподают, в Институте связи

__________________
Жаль,что кончается все,
Все,что хотелось хранить.
Жаль,что кончается зря,
И зря не кончается боль...
А где-то возможно все-
Бессмертие,дружба,любовь,
Невинность ума и души...
Целую, пока, пиши.
(с) ГС

Адрес поста | Один пост | Сообщить модератору | IP: Logged

1.
данные: Произвольное слово
Результат: вывести сообщение, я вляется ли вторая буква в слове буквое "е"

code:
uses crt;
var s: string;
begin
 s := 'text';
 if s[2] = 'e' then writeln('the second letter is E'); {или s[1], не помню точно}
end.

code:
uses crt;
var a: array[0..13];
      i, ind: integer;
begin
 for i := 0 to 13 do
  begin
    a[i] := random(10-5); {заполняем массив любыми числами}
    write(A[i]),','); {выводим массив на экран}
    if a[i] < 0 then ind := i; {находим индекс последнего отриц. элемента}
  end;
 writeln(ind); {выводим его}

end.

code:
uses crt;
var x: real;
begin
 writeln('Enter the X value?'); {вводим число ГРАДУСОВ}
 readln(x);
 X := (Pi/360)*X; {переводим в радианы}
 writeln('Sinus value is ', x); 
end.

__________________
shadow admin.
The unclean spirits, whenever they saw him, fell down before him, and cried, «You are the Son of God!». Mark III № 11.
Encrypted, Empowered, Invisible.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

2 Chrome
СПАСИБО!!!!

по поводу 4-й к сожалению это формултровка из методички, других данных нет (

__________________
Жаль,что кончается все,
Все,что хотелось хранить.
Жаль,что кончается зря,
И зря не кончается боль...
А где-то возможно все-
Бессмертие,дружба,любовь,
Невинность ума и души...
Целую, пока, пиши.
(с) ГС

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Хром, опередил...
4) не въезжаю че надо, очень корявое условие.


3)
uses crt;
var
x: real;
begin
writeln('Enter X ');
readln(x);
X := (Pi/360)*X;
x:=sin(x);
writeln('Sin = ', x);
readln;
end.
Таки так... забыл ты про син ))

Адрес поста | Один пост | Сообщить модератору | IP: Logged

четвертая похоже так решается, хотя, повторюсь, условие корявое, может и не так...


uses crt;
var q1, q2, n1, n2, w, w1, w2: real;
begin clrscr;
writeln('q1');
readln(q1);
writeln('q2');
readln(q2);
writeln('n1');
readln(n1);
writeln('n2');
readln(n2);
W1:=q1/n2;
W2:=Q2/N2;
W:=((W2-W1)/W1)*100;
writeln(w1);
writeln(w2);
writeln(w:6:4);
readln;
end.
Последний раз сообщение редактировалось пользователем Alligator 01.12.2005 в 18:40

Адрес поста | Один пост | Сообщить модератору | IP: Logged

ребята, спасибо Вам огромное!!!!!!!!!!

__________________
Жаль,что кончается все,
Все,что хотелось хранить.
Жаль,что кончается зря,
И зря не кончается боль...
А где-то возможно все-
Бессмертие,дружба,любовь,
Невинность ума и души...
Целую, пока, пиши.
(с) ГС

Адрес поста | Один пост | Сообщить модератору | IP: Logged

да не за что!

ЗЫ в 4й нужно еще вывести w1,w2, наверное... Автору методички учить албанский.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Господи, лучше бы людям C++ преподавали, полезней было бы.

__________________
"I can't believe it". Это и о смерти Морфеуса сказано.
Shambler Team - кодер, маппер.
Энциклопедия Half-Life

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

Формат:
Господи, лучше бы людям C++ преподавали, полезней было бы.

---

__________________

Кошак, борец за официальный запрет всех официальных запретов.

Ах, лето красное, убил бы я тебя, когда б не связь времён да Уголовный Кодекс. (с)О. Ладыженский

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

Alligator:
Ровным счетом все программы можно сделать за 3 минуты, но кубасик я, к сожалению, не знаю. Что за дур дом, неужели еще кто-то преподает этот язык? Давно пора понять, что пользы от него НОЛЬ, один вред.

---

А у нас его в школе преподают. О, как

__________________
-"Назад! Назад!"
-"Ошиблась ты солдатка... не Назад я".
КВН... команда Пятигорска

Внимание! Кто тупо будет флудить в "Дневниках Ложки" - буду больно бить (ногами).

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

Chrome:
3.
данные: х=5, 10, 15, 20, 25, 30 градусов
результат: sin(x) для x (х в радианах)

code:
...
 X := (Pi/360)*X; {переводим в радианы}
...

---

Мсьё примет тысячу моих извинений, но в полном круге, то есть в 360 градусах не Пи радиан, а два Пи

Уточняю, оба мсьё примут по тысяче моих извинений.

__________________

Кошак, борец за официальный запрет всех официальных запретов.

Ах, лето красное, убил бы я тебя, когда б не связь времён да Уголовный Кодекс. (с)О. Ладыженский

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Не говоря уже о том, что задача номер три выглядит несколько не так, как вы её решили

code:
uses crt;
var 
i, x: integer;
xRad, sinX : real;
begin
  for i:=1 to 6 do begin
    x := i * 5;
    xRad := (Pi/180)*x;
    sinX := sin(xRad);
    writeln('Sin(',xRad,') = ', sinX:6:4);
  end;
  readln;
end.

По поводу sinX:6:4 уверен не вполне, проверить на коленке не получается, подбирайте Это формат вывода, кажется, сколько знаков после запятой и сколько всего, могу ошибаться.

__________________

Кошак, борец за официальный запрет всех официальных запретов.

Ах, лето красное, убил бы я тебя, когда б не связь времён да Уголовный Кодекс. (с)О. Ладыженский

Адрес поста | Один пост | Сообщить модератору | IP: Logged

И еще... Хром, в первой задаче нет вывода "Вторая буква не Е", обращение там именно [2], в [0] лежит длина строки.

Вторая задача сделана через задницу, что такое Random(10-5) я не понимаю, скобочки надо ставить правильно. И функция, кажется, называется Rnd, а в начале программы стоит вызывать Randomize; а то будут всегда одни и те же значения. Тем более, что заполнять массив и проверять его в одном цикле - не вполне приличное случаю дело Делайте два цикла.

Четвертую не вычитывал, надеюсь на Вашу порядочность

Итого оценка 3. Пардон, что не наткнулся на эту тему чуть раньше.

Поправьте, а, не подставляйте девушку...

__________________

Кошак, борец за официальный запрет всех официальных запретов.

Ах, лето красное, убил бы я тебя, когда б не связь времён да Уголовный Кодекс. (с)О. Ладыженский

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

Кошак:
И еще... Хром, в первой задаче нет вывода "Вторая буква не Е", обращение там именно [2], в [0] лежит длина строки.
Поправьте, а, не подставляйте девушку...

---

Я нормальную Jailin Slide в асю скинул, еще до Хрома, чего она взяла, вопрос к ней...

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Сорри за синус, условие не так понял. Насчет радиан, думаю это не страшно.
Да, 2-я действительно не так решена. Кошак, молодец, я не заметил... С функцией все правильно, а скобочка действительно не там стоит, думаю Хром просто торопился... Так, что не стоит уж так... Сорри, что ошибки вчера не заметил, код просматривал по диагонали, Кошаку респект.
Вот правильное решение (массив заполняется руками, думаю это правильнее):

code:

uses crt;
var
i,index : word;
m : array [1..14] of Integer;
begin clrscr;
 for i :=1 to 14 do
  begin
   write('m[', i ,'] ');
   readln(m[i]);
  end;
for i:=14 downto 1 do
 If m[i]<0 then
  begin
   index:=i;
   break;
  end;
if index<>0 then
 writeln('Index = ',index)
else
 writeln(' нету не фига  ');
readkey;
end.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Забавно, но на QBasic'е так никто и не ответил.
Вам не стыдно?

__________________
Личный блог: http://alex.chkv.net/. ЖЖ: http://achuikov.livejournal.com/
Все делается для того, что бы ничего не делать!
Прастите миня за арфаграфию и пунхтуацыю!
"Крути руля!.." (c) ГАИ г. Аксай.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

PinGUIWin:
Забавно, но на QBasic'е так никто и не ответил.
Вам не стыдно?

---

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Согласен с Аллигатором.

Вы бы еще за Ассемблер или за Фортран застыдили бы...

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Просили ответ на QBasic'е, и никто не дал.
Всяки программист начинает с BASIC, с него даже БГ начинал.
Оффтоп: Я может погорячился. Я Pascal уважаю, но откровенно недолюбливаю.
QBasic у себя не нашел, а вот small есть:

code:

print "input a word: "
input s
s1 = MID(s, 2, 1)
if lower(s1) = "e"
   print "Second letter is E"
else 
   print "Second letter is NOT E"
endif

Я думаю, уже нет смысла продолжать далее

__________________
Личный блог: http://alex.chkv.net/. ЖЖ: http://achuikov.livejournal.com/
Все делается для того, что бы ничего не делать!
Прастите миня за арфаграфию и пунхтуацыю!
"Крути руля!.." (c) ГАИ г. Аксай.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Цитата:

---

Всяки программист начинает с BASIC, с него даже БГ начинал.

---

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Не совсем. Сейчас пишут и в Visual Basic, согласен. Но все-таки, какой-то он не_того... не_этого...) Короче говоря Basic.

ПС. QBasic - не язык, а лишь среда. Поэтому пишут _в_ нем, но _на_ Бейсике. К слову.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Согласен и не согласен с Джонсоном. Все Бейсики очень похожи, но различия тоже есть. Иногда существенные.

__________________
Личный блог: http://alex.chkv.net/. ЖЖ: http://achuikov.livejournal.com/
Все делается для того, что бы ничего не делать!
Прастите миня за арфаграфию и пунхтуацыю!
"Крути руля!.." (c) ГАИ г. Аксай.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

2PinGUIWin: Согласен и не согласен.

Это ограничения сред.

Адрес поста | Один пост | Сообщить модератору | IP: Logged