• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от Раджаб bro

  1. Р

    Помогите, пожалуйста, написать программу на языке Паскаль

    if a[i]<0 then nul:=nul+1 нет ну это хоть как я допустил там же видно что если =0,а не меньше...ужас
  2. Р

    Помогите, пожалуйста, написать программу на языке Паскаль

    Что поделаешь надо учиться.Плохо прогу видать обдумал.
  3. Р

    Помогите, пожалуйста, написать программу на языке Паскаль

    Program A1; const n=50; Var i,min,sum,nul:integer; a:array[1..n] of integer; Begin randomize; for i:=1 to n do begin a[i]:=random(30)-10; write(a[i]:4); end; nul:=0; if a[i]<0 then nul:=nul+1; Writeln('Koli4ectBo HyJlEi=',nul:2); for i:=1 to n do begin min:=-10...
  4. Р

    C++

    Спасибо. )
  5. Р

    C++

    1 задание.
  6. Р

    C++

    Доброго времени суток не подскажете в чем здесь ошибка? #include <iostream> #include <math.h> using namespace std; int main() { float z; float x,a; cout << "Vvedite x,a" << endl; cin>>x>>a; if (a<0) z=a+(pow(tan,2)*pow(x,3)); else if (a>=0)...
  7. Р

    Pascal ABC

    Вот правильный ответ надо было массив вписать Uses crt; const n=23; Var i:integer; M,D:real; a:array[1..n] of real; Begin M:=0; D:=0; For i:=1 to n do begin if i>17 then a[i]:=sin(i) else a[i]:=cos(sqr(i))/sin(sqr(i)); M:=M+a[i]; D:=D+sqr(a[i]); end; M:=M/n...
  8. Р

    Задачка по Паскалю

    c:=x[1]*a[1]; d:=y[1]*a[1]; Думаю что основная моя тупость заключается здесь.
  9. Р

    Задачка по Паскалю

    Задачка по Паскалю Короче дали мне задачку написать Она выдает ошибку думаю детскую но не могу исправить((( Program A1; Type Mas=array[1..3] of real; Const x: Mas=(-2.2,5,1); y: Mas=(-1,0,2); a:array[1..9] of real=(1.3,5,1,2,3.2,1,6,7,8); Var c,d,sum1:real; Procedure...
  10. Р

    Pascal ABC

    Незнаю вроде как я вижу и прога написана правильно и декан Pro...может он меня проверял?Хотя врядли на него не похоже.
  11. Р

    Pascal ABC

    Это регалии моего декана Про индексы...он говорил "почему нет индекса?"
  12. Р

    Pascal ABC

    Декан факультета Ахмедов Сулейман Абдурагимович - доктор технических наук, профессор, заслуженный работник образования Республики Дагестан, заслуженный работник высшей школы Российской Федерации
  13. Р

    Pascal ABC

    Это декан всё написал.Про индекс тоже что-то говорил.
  14. Р

    Pascal ABC

    Всю пару голову ломал ничего не вышло.Вроде правильно написано.
  15. Р

    Pascal ABC

    Вот
Назад
Сверху