Pascal. Помогите решить задачи

11 июня 2009

извиняюсь если не по теме,помогите написать в Pascale 3 задачи:
1)Дана последовательность натуральных чисел А1,А2,....,Аn.Создать массив из чётных чисел этой последовательности.Если таких чисел нет,то вывести сообщение об этом факте.


11 ответов в теме “Pascal. Помогите решить задачи”

    Страницы: [1] 2 »
  1. 1) Максим Закарлюка ответил:

    2)Последовательность А1,А2,….,Аn состоит из нулей и единиц.Поставить в начало этой последовательности нули,а затем единицы

  2. 2) Роман Холошенко ответил:

    Точность не гарантирую, но постараюсь помочь:
    Program massiv_chet;
    var n, m: integer;
    posl: array [1..n] of real;
    mas: array [1..m] of real;
    Begin
    writeln ('введите количество елементов масива!!!!!');
    readln (n);
    writeln ('введите елементы массива!!!!!!!');
    for i:=1 to n do
    Begin
    write ('posl[',i,']=');
    readln (posl[i]);
    end;
    m:=0;
    for i:=1 to n do
    if posl[i] mod2=0 then
    m:=m+1;
    end;
    if m=0 then
    writeln ('чётных чисел в последовательности нет');
    End.

    Вот… ну а нащёт выведения итогового массива ты не написал.

  3. 3) Максим Закарлюка ответил:

    3)В одномерном массиве с чётным количеством элементов (2N) находятся координаты N точек плоскости.Они располагаются в следующем порядке:x1,у1,х2,у2 и т.д.Определить 3 точки,которые являются вершинами треугольника,для которого разность количества точек вне

  4. 4) Максим Закарлюка ответил:

    и внутри него является минимальной.

  5. 5) Максим Закарлюка ответил:

    Роман,спасибо за задачу

  6. 6) Сергей Романов ответил:

    Первая задача
    var
    n,m,i,d:Integer;
    arr:array[0..29]of real;
    begin
    writeln('Количество элементов…');
    readln(n);
    writeln('Элементы…');
    for i := 1 to n do
    begin
    writeln('arr[i] =');
    readln(d);
    if d mod 2 = 0 then
    arr[i] := arr[i] + d;
    end;
    end.

    Вторая задача
    var
    mas:array[0..10]of Integer;
    i,a,z,b,sum,inc:Integer;
    begin
    writeln('Enter znach…');
    b:= 0;
    sum:= 0;
    inc:= 0;
    readln(z);
    repeat
    readln(a);
    if (a > 1) and (a < 0) then
    writeln('Error');
    b:= b + 1;
    mas[b]:= mas[b] + a;
    until z = b;

    for i := 0 to z – 1 do
    begin
    if mas[i] = sum then
    begin
    sum:= mas[i];
    writeln(sum);
    inc:= inc + 1;
    end;
    end;
    for i := 0 to (z – inc)-1 do
    writeln(1);

    Третья задача – непонятна формулировка:(

    Правильность, конечно не гарантирую, но суть наверное такая

  7. 7) Максим Закарлюка ответил:

    Сергей,большое спасибо,выручил

  8. 8) Ирина Полевая ответил:

    к посту 3 чуть подправила. вроде все точно, не мешало бы откомпилировать и глянуть нет ли очепяток

    Program massiv_chet;
    var n, m: integer;
    posl: array [1..10] of real;
    mas: array [1..10] of real;
    Begin
    writeln ('введите количество елементов последовательности');
    readln (n);
    writeln ('введите елементы последовательности');
    for i:=1 to n do
    Begin
    write ('posl[',i,']= ');
    readln (posl[i]);
    end;
    m:=0;
    for i:=1 to n do
    if posl[i] mod2=0 then
    begin
    m:=m+1;
    mas[m]:=posl[i];
    end;
    if m=0 then
    writeln ('чётных чисел в последовательности нет')
    else
    Begin
    write (' полученній масив: ');
    for i:=1 to m do
    write(mas[i], ' ');
    end;
    End.

    №2
    Program sort;
    var n, sum: integer;
    posl: array [1..10] of real;
    Begin
    writeln ('введите количество елементов последовательности');
    readln (n);
    writeln ('введите елементы последовательности');
    for i:=1 to n do
    Begin
    write ('posl[',i,']= ');
    readln (posl[i]);
    end;
    m:=0;
    for i:=1 to n do
    if posl[i] =0 then
    sum:= sum+1;
    for i:=1 to sum do
    posl[i]:=0 ;
    for i:=sum to n do
    write (' новая последовательность: ');
    for i:=1 to n do
    write(posl[i], ' ');
    End.
    Уточни ограничения по кол-ву єлементов последовательности, я приняла за максимум – 10 (posl: array [1..10]) если больше- поменяй в указаном месте в var

    по поводу третей- нужна грамотная мат модель… сорри но сейчас не думается

  9. 9) Сергей Шепель ответил:

    Школьники жгут. Мне бы кто помогал в детстве =)

  10. 10) Ирина Полевая ответил:

    пусть хоть так..
    мне не взападло, тем более, что все элементарно.. вот что он дальше будет делать?
    И вообще всеэто оч смахивает на медвежьи услуги, но вот э факин диверенс.. :) )

  11. Страницы: [1] 2 »

Добавить ответ

Оставить комментарий