Страница 1 из 3 123 ПоследняяПоследняя
Показано с 1 по 15 из 33

Тема: Информатика (архив)

  1. #1
    Группа удаления
      Почетный сериал-мейкер "The Sims 1"
    Аватар для Arnett
    Регистрация
    19.03.2003
    Сообщений
    507
    Спасибо
    я - 0; мне - 0

    Информатика (архив)

    Мне нужны тексты следующих программ, написанных на Паскале. Сама сейчас это сделать не могу, т.к. не была на объяснении темы, а сдать надо. Поможете?
    1) Написать программу, которая выясняет, может ли последовательность символов обозначать 11ричное число.
    2) Написать программу, которая после ввода 10ричного числа получает цифры его перевода в 11ричную систему счисления.
    атата!

  2. #2
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Arnett До которого тебе надо?
    Первое не понятно. Немного подробнее можно?
    которая после ввода 10ричного числа получает цифры его перевода в 11ричную систему счисления.
    То есть переводит 10-число в 11-число?
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

  3. #3
    Группа удаления
      Почетный сериал-мейкер "The Sims 1"
    Аватар для Arnett
    Регистрация
    19.03.2003
    Сообщений
    507
    Спасибо
    я - 0; мне - 0
    Argo, до 12го апреля.
    Первое - например, ты вводишь "12345", а программа выдает, 11ричное это число или нет.
    Второе -
    То есть переводит 10-число в 11-число?
    да.

  4. #4
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Arnett До 12 апреля мне слабо.
    Zigzy Тебя не затруднит здесь выложить? Чувствую, в скором времени мне предстоит то же.
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

  5. #5
    Писатель
    "Серебряный миниатюрист. Осень 2006"
      "Сумеречный эльф"
    Аватар для Zigzy
    Регистрация
    16.09.2001
    Адрес
    Саратов
    Сообщений
    2,332
    Записей в блоге
    1
    Спасибо
    я - 0; мне - 6
    Argo извини, отправила сообщение для Arnett раньше, яем увидела твоё сообщение... Программу №1 получай. Вторую если успею между тестами, то сделаю. Но не обещаю.

    Program ...;
    Var a: string;
    b: word;
    i: integer;
    BEGIN
    readln(a); <----- считывает число в текстовом формате
    b:=0;
    for i:=1 to length(a) do
    begin
    if (a[i]<'0') or (a[i]>'A') then b:=1; <----- регистр "А" имеет
    end; - - - - - - - - - - - - - - - - - - - - - - значение! Как и язык (англ.)
    if b=0 the n writeln('Данное сочетание сомволов может являться числом в одиннадцатиричной системе счисления')
    else writeln('Данное сочетание сомволов не может являться числом в одиннадцатиричной системе счисления');
    Readln;
    END.

  6. #6
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Zigzy, если я правильно поняла, у тебя есть возможность проверить работоспособность программы на Паскале. Дело в том, что дома он у меня загнулся, и негде отладить программы. В связи с чем огромная просьба проверить мои проги и сказать где ошибки.
    До субботы.
    Первая:
    Задание: Найти сумму последовательности x1,x2,x3,..xn (n=<30), начиная от первого отрицательного элемента и до конца последовательности.

    Program sum(input,output);
    Const
    nmax:=30;
    type
    index:=1..nmax;
    vec=array[index] of real;

    Var
    x:=vec;
    I,n:index;
    s:real;

    begin
    write('n=');
    readln(n);
    for I:=1 to n do
    begin
    write ('x[',I:2,'] =')
    readln (x[I]);
    end;

    I:=1;
    while x[I]>=0 do
    I:=I+1;

    s:=0;
    for I to n do
    s:=s+x[I];

    write('s=',s);
    end.
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

  7. #7
    Писатель
    "Серебряный миниатюрист. Осень 2006"
      "Сумеречный эльф"
    Аватар для Zigzy
    Регистрация
    16.09.2001
    Адрес
    Саратов
    Сообщений
    2,332
    Записей в блоге
    1
    Спасибо
    я - 0; мне - 6
    Argo проблема в том, что паскаля у меня дома нет А ту прогу я прям так написала...

  8. #8
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Zigzy Аааа...нееет. Может попробуешь ошибки так найти?
    Arnett А может у тебя есть?

  9. #9
    Писатель
    "Серебряный миниатюрист. Осень 2006"
      "Сумеречный эльф"
    Аватар для Zigzy
    Регистрация
    16.09.2001
    Адрес
    Саратов
    Сообщений
    2,332
    Записей в блоге
    1
    Спасибо
    я - 0; мне - 6
    Argo на каком паскале пишется программа? если на 7-ом, то нет нужды ничего обнулять... Всё равно 0 изначально. и смысл вот этого цикла -
    I:=1;
    while x[I]>=0 do
    I:=I+1;
    я не поняла. Там же всё равно, отрицательные или положительные числа складываешь...

  10. #10
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Найти сумму начиная с первого отрицательного. Какой Паскаль? Честно говоря без понятия, но вроде бы шестой. Но не факт.

    [size=1]Argo добавил [date]1082033478[/date]:[/size]
    Zigzy Тебя не затруднит посетить эту тему утром в субботу . Просто еще несколько вопросов есть, но я сейчас не дома и вспомнить их не в состоянии.
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

  11. #11
    Писатель
    "Серебряный миниатюрист. Осень 2006"
      "Сумеречный эльф"
    Аватар для Zigzy
    Регистрация
    16.09.2001
    Адрес
    Саратов
    Сообщений
    2,332
    Записей в блоге
    1
    Спасибо
    я - 0; мне - 6
    Argo хорошо, мне не жалко, обязательно забегу...
    а что значит "начиная с первого отрицательного"? При суммировании имеет значение, с чего начинаешь складывать?

  12. #12
    Старожил Аватар для Паладин+
    Регистрация
    11.02.2004
    Адрес
    Москва, Таганрог
    Сообщений
    61
    Спасибо
    я - 0; мне - 0
    если на 7-ом, то нет нужды ничего обнулять... Всё равно 0 изначально.
    хм... когда я учил TP7 препод, утверждал, что обнулять всё равно необходимо.

  13. #13
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0
    Program vosem(input,output);
    Type row=array[1..100] of real;
    Var Num,I,NumbMax, NumbRMax, NumbVMax: integer;
    MaxTemp,rmax,vmax; real;
    Temp,r,v:row;

    procedur FindMax (t: row; Num: integer;-
    var Max:real;var Imax: integer);
    var I:integer;
    begin
    Max:=T[1];
    Imax:=1;

    for I:=2 to Num do
    if T[I]>Max then
    begin
    Max:=T[I]; Imax:=I
    end
    end;

    begin

    writeln('vvedite 4islo elementov');
    readln(Num);
    writeln('vvedite massiv zna4enij');

    for I:=1 to Num do read (Temp[I]);

    r:=Temp[I]*Temp[I];
    Temp:=r;
    FindMax (Temp,Num, MaxTemp, NumbMax);
    Rmax:= MaxTemp;
    NumbRMax:= NumbMax;

    V:=(Temp[I]-rmax)/Num;
    Temp:=V;
    FindMax (Temp,Num, MaxTemp, NumbMax);
    Vmax:= MaxTemp;
    NumbVMax:= NumbMax;
    Writeln('Maximum', Rmax:4:1, 'Nomer=', NumbRMax:2);
    Writeln('Maximum', Vmax:4:1, 'Nomer=', NumbVMax:2);

    end.


    Procedur
    Type
    Row= array[1..dim];
    Qmatrix= array[1..dim,1..dim];

    procedur NewMax(T:Qmatrix;dim:integer:-var Max:real; I,J:integer);
    begin
    Max:=T[1,1];
    For I:=2 to dim do
    for For J:=1 to dim do
    If T[I,J]>Max then
    Begin
    Max:=T[I,J];
    End;

    T[I,I]:=Max;

    End.

    Program second (input,output);

    var x,y,c:real;
    label 1, 2, 3;
    begin
    writeln('vvedite x,y');
    readln(x,y);

    if (x=o) then
    goto 1;
    else
    if (y=0) then
    goto 1;
    else
    if (x>0) then
    begin

    if (y>0) then
    goto 1;
    else z:=y-x;
    if (z<0) then
    begin
    c:=y/x
    if (c=>-1) then
    goto 1;
    else goto 2;
    end;

    if (y<0) then
    goto 1;
    end;
    else z:=y-x

    if (z>0) then
    begin c:=y/x;

    if (c=>-1) then
    goto 2;

    else goto1;
    end;

    1:
    writeln ('da')
    goto 3;
    2:
    writeln ('net')
    goto 3;
    3:
    end.




    Program first (input,output);

    var x,y,b,a,e,c,F,z:real;
    label 1, 2;
    begin
    writeln('vvedite x,y,a,b. Prichem a I b ne ravnye 0');
    readln(x,y,a,b);
    if (a=0) then
    goto 2;
    else
    z=y+(x-a)*(x-a);


    if (z=o) then
    goto 1;

    else
    c:=(x-a)*(x-a)*(x-a);
    e:=exp(-(x/a)*(x/a)-(x/b)*(x/b));
    F:=c/z*e;
    Writeln('F=', F);
    Goto 3;

    1:
    writeln('Proizoshlo delenie na 0. Izmenite znachenija x,y,a');
    goto 3;
    2:
    writeln('Proizoshlo delenie na 0. Izmenite znachenija a,b');
    goto 3;
    3:
    end.



    Program third (input,output);

    var x,a,b,h:real;
    begin
    writeln('vvedite x,a,b,h');
    readln(x,a,b,h);
    writeln(' x y');
    writeln;

    while x<(b +h/2) do
    begin
    If (x<0,5) then
    Begin
    Y:=1+sin(x+0,5)*sin(x+0,5)*sin(x+0,5);
    End

    Else
    If (-0,5=<x) and (x=<0,5) then
    Begin
    Y:=1;
    End

    Else
    If (0,5<x) then
    Begin
    Y:=1+sin(x-0,5)*sin(x-0,5)*sin(x-0,5);
    End;

    Writeln(x:5:2, y:10:4);
    X:=x+h;
    End;
    Writeln('konec tablitsy');

    End.

    Program four(input,output);
    Const N=10;
    Var x,a,S:real;
    I:integer;
    Begin
    Writln('vvedite x');
    Readline(x);
    A:= sin((I+1)*x)*i/((I+1)*(I+1)*sin(I*x));
    S:=a;
    For k:=2 to N do
    Begin
    A;=a+sin(2*x)/(4*sin(I*x));
    S:=S+a;
    End;
    Writeln('Summa',N:2,'slagaemyx',S:7:4)
    End.

    Program five(input,output);
    Var x,a,eps,y,S:real;
    K:integer;
    Begin
    Writln('vvedite x, eps');
    Readln(x,eps);
    K:=0;
    A:=1;
    S:=0;
    Repeat S:=S+a;
    K:=k+1;
    A:=a+((-1)*(2*k+3)cos((2*k+3)*x)/((2k+3)*cos((2*k+1)*x));
    Until abs(a/y)<eps;
    Writeln('S(',x:4:2,')=',S)
    End.
    Zigzy Имеет
    Паладин+ Учла, спасибо.
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

  14. #14
    Писатель
    "Серебряный миниатюрист. Осень 2006"
      "Сумеречный эльф"
    Аватар для Zigzy
    Регистрация
    16.09.2001
    Адрес
    Саратов
    Сообщений
    2,332
    Записей в блоге
    1
    Спасибо
    я - 0; мне - 6
    Argo
    Имеет
    приведи хоть один пример. А то начну цитировать первое правило арифметики...
    Паладин+
    хм... когда я учил TP7 препод, утверждал, что обнулять всё равно необходимо.
    и это далеко не с лучшей стороны характеризует твоего препода Потому что я даю 100%-ую гарантию того, что в 7-ом паскале все переменные изначально равны нулю

  15. #15
    Поэт
      Золотой художник-романтик
    Аватар для Arrgot
    Регистрация
    02.06.2003
    Адрес
    Castlevania
    Сообщений
    1,197
    Спасибо
    я - 0; мне - 0

    Информатика

    Уважаемые специалисты по информатике! Помогите пожалуйста. Надо на Паскале составить несколько программ. До пятницы включительно.

    1.Проверить, является ли исходная матрица, состоящая из целых чисел, нижней треугольной. Напечатать соответствующее сообщение.

    2.Составить процедуру, которая определяет мах по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.
    снежинки, вернувшись от королевы, обглодали труп героя, и легли спать. была уже зима. (с) .brandy

Страница 1 из 3 123 ПоследняяПоследняя

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •