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

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

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

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

Недавнее содержимое от Mr.П 2.0

  1. M

    Строки

    Слова в один массив я собрал, но что то не выходит сравнение букв. (Компилял в DevCpp). #include <iostream> #include <cstdio> #include <cstring> using namespace std; int main() { char stroka[81]; char result[21][21]; char *p; int j=0,z=0,i=0,y; cout <<"Input stroky\n"; gets(stroka); p=stroka...
  2. M

    Помогите сделать одну процедуру

    Рот закрой Мда, если написание программы это значит кричать, что ты крутой программист, то мне жаль этот форум. Может он и умнее меня, но я слушаю только одного программиста и Vladimir_S точно не он.
  3. M

    Помогите сделать одну процедуру

    1) Да смысла нет. 2) Умею, но я захотел использовать обычный текстовой. 3) Зачем делать меню если все надо делать последовательно, пока не введешь данные программа ничего выводить не будет. (Вылетит с ошибкой о не нахождении файла). assign(f,'D:\Stud'); Думайте у всех есть диск D? И Windows с...
  4. M

    Помогите сделать одну процедуру

    type student=record fam:string[30]; groop:string[40]; math,histor,biol:1..5; end; procedure vvod (var k:student; var f:text); begin Writeln('Vvedite familiy'); readln(k.fam); writeln('Vvedite groopy'); readln(k.groop); repeat writeln('Vvedite ocenky po math, histor and biology')...
  5. M

    Оформление процедуры с массивами

    _Игорек_ моя аська:624917451 обращайся. И тебе точно нужна сумма 3 элементов массива или до N
  6. M

    Помогите с программой на Паскале

    Да да да Здесь :tehnari_ru_108: не получилось Но на другом все ништяк и дело не во мне, а в количестве поступающих задач на этом форуме и полное доминирование модераторов. По случаю нарушения п.3.1 и 3.4 Правил форума - бан на месяц. Модератор. За повторную регистрацию на форуме под другим ником...
  7. M

    Помогите с программой на Паскале

    Ну конечно S:string; это ещё то натуральное число. Var a:longint; s:string; i,k:byte; begin k:=0; Write('N='); read(a); Writeln; str(a,s); for i:=1 to length(s) do begin if s[i]='7' then inc(k); end; Writeln('Kol-vo 7 ravno = ',k); readln; readln; end.
  8. M

    Pascal

    3 Var a:longint; begin Writeln('vvedite nomer is 5 cifr'); readln(a); a:=a div 10000; if ((a=3) or (a=9)) then Writeln('da') else Writeln('net'); readln; end. 4 var c,e:integer; i:byte; begin Writeln('vvedite C i E'); readln(c,e); for i:=1 to c do e:=e+c; c:=e; Writeln(c); readln; end.
  9. M

    Задача на заполнение, транспонирование и вывод матрицы

    Barbarus hic ego sum quia non intelligorulli
  10. M

    Задача на заполнение, транспонирование и вывод матрицы

    Задача на заполнение, транспонирование и вывод матрицы прощу решить 1) разбив отрезки [a; b] и [c; d] соответственно на n и m частей, в точках xi=a+(i-1)*h1, yj=c+(j-1)*h2, где h1=(b-a)/n, h2=(d-c)/m, i=1, 2…, n+1, j=1, 2…, m+1 вычислить значения элементов aij матрицы A=||aij||nm по формуле...
  11. M

    Задача в Pascal'е (ЕГЭ)

    .... Удалено. Прямое нарушение Правил форума, п.3.1, в части перехода на личности. Не Вам решать, кто тут достойный, а кто нет, и, мягко говоря, невелики Ваши "благодеяния". Бан на неделю. Модератор.
  12. M

    Список

    Lesyavrn, отправляйся на Хороший сайт там точно помогут. Ссылка на чужой удалена, вам первое устное предупреждение. Модератор.
  13. M

    Задача в Pascal'е (ЕГЭ)

    Var a:array[1..7] of integer; i,k:byte; max:integer; begin max:=a[1]; for i:=1 to 7 do begin Writeln('Vvedite scolco zakazov postupilo v ',i,' day'); readln(a[i]); if a[i]>max then begin max:=a[i]; k:=i; end; end; Writeln('bolshe zakazov v ',k); readln; end.
  14. M

    Умножение длинного числа на короткое (Турбо Паскаль).

    Сразу видно что человек с Cyberforum.ru жаль но тега [PASCAL] здесь нет
  15. M

    Есть ли у вас игровая приставка?

    Всегда с тоской вспоминаю времена когда играл на SEGA.
Назад
Сверху