2 задачи на паскале, помогите решить Поделиться Опции

[Bogd@n]

Я тему пропустил и прошу помочь решить 2 задачи на паскале.Проходим тему массивы:
1)Найти сумму, кратных 3 ,елементов массива D[12]
2)Найти произвидение отрицательных елементов в массиве M[11]

Прошу помочь решить ,а не орать "ААааа...фу нуб-иди учись" и т.д.

Сообщение отредактировал Bogd@n - 28.4.2009, 13:22

[Genius of the Fall]

"ААааа...фу нуб-иди учись" и т.д.

Это во-первых ;-)

Я тему пропустил и прошу помочь решить 2 задачи на паскале.Проходим тему массивы:
1)Найти сумму кратных 3 елементов массива D[12]

Код не дам, так как уже не помню синтаксис этого недоязыка... В общем, так: раз длина массива фиксирована, делаем простейший цикл, который идет по массиву, проверяя каждое число на кратность 3(проверять так: делим на 3, остаток сравниваем с 0). Каждое число, соответствующее условию, прибавляем к переменной результата(инициализировать со значением 0, если что). Выхлоп этой переменной == ПРОФИТ.

2)Найти произвидение отрицательных елементов в массиве M[11]

Точно так же, но проверяем по условию <0. Переменную результата инициализировать со значения 0, очевидно.
//К элементу массива можно обращаться так: имя_массива[индекс_элемента], индекс может быть произвольной целочисленной и неотрицательной переменной(это понадобится в данной задаче).
З.Ы.: Массивы в паскале - исключительное УГ.

Сообщение отредактировал Genius of the Fall - 28.4.2009, 13:10

[A.Vas]

Эх, вспомню первый курс...

Код

program Program1;

var i:integer;
    result:integer;
    values: array [1..12] of integer;

BEGIN
    result := 0;
    for i := 1 to 12 do
    begin
        read(values[i]);
        if (values[i] mod 3) = 0 then
            result := result + values[i];
    end;
    writeln('Result: ', result);
    readln;
end.

Код

program Program2;

var i:integer;
    result:integer;
    values: array [1..11] of integer;

BEGIN
    result := 1;
    for i := 1 to 11 do
    begin
        read(values[i]);
        if values[i] < 0 then
            result := result * values[i];
    end;
    writeln('Result: ', result);
    readln;
end.

ЗЫ: каким же убогим кажется этот язык после плюсов и решетки...

Сообщение отредактировал A.Vas - 29.4.2009, 2:20

[fkcoder]

Помоему все просто.

s:=0;
for i=0 to 12 do
if D[i] mod 3 == 0 then s:=s+D[i];

Показал основной цикл. Как объявить переменные думаю сам догадаешся.

Ну и вторая задача также только цикл изменить надо чуть чуть

Добавлено позже (28.4.2009, 16:21):
A.Vas, действительно. После С этот язык действительно кажется убогим с его малыми возможностями

[Summe]

И хоть меня все и опередили, вот мой вариант, с выводом матрицы на дисплей

Сообщение отредактировал Summe - 28.4.2009, 13:25
Пользователю запрещено создавать сообщения до17-12-2668 05:37:34

[Bogd@n]

Не понял условие "3 кратных элемента массива", поэтому выкладываю текст только второй программы:

исправил первый пост чуток.

Помоему все просто.

s:=0;
for i=0 to 12 do
if D[i] mod 3 == 0 then s:=s+D[i];

спасибо огромное у меня ошибка была тут

if D[i] mod 3 == 0

у нас было в примерах mod k=0 ,ну я подумал что 0 это число на которое будет делиться и пожтому сделал так
if D[i] mod k=3 .... и тут ошибка.
Зачем ставить два знака ==?


Всем спасиба!

[Summe]

Зачем ставить два знака ==?

И в самом деле, непонятно, но с одним, гнида, ругается
Пользователю запрещено создавать сообщения до17-12-2668 05:37:34

[Fenja]

f D[i] mod 3 == 0 then s:=s+D[i];

lavmen,
== эт ты с С взял, в паскале просто = будет

После С этот язык действительно кажется убогим с его малыми возможностями

Ну все с чего то начинали.

[Genius of the Fall]

каким же убогим кажется этот язык после плюсов и решетки...

Кто-то признал решетку ЯП?

[T3D]

A.Vas, а почему массив от 1 до 12, а цикл от 0 до 11?

[Andrei449]

для меня непонятнейший язык

[syberside]

if D[i] mod k=3 .... и тут ошибка.

В скобки d[i] mod k возьми!
Не такой уж и убогий паскаль! Вот мы с бейсика в щколе начинали- вот это убогость!!

[A.Vas]

A.Vas, а почему массив от 1 до 12, а цикл от 0 до 11?

А это я просто ошибся - привык, что номера элементов в массивах/списках/коллекциях/... идут от нуля. Ошибка исправлена

Кто-то признал решетку ЯП?

Разве нет? Да, можно до сих пор кодить на ANSI C и добиваться отличных результатов, но некоторые вещи пишутся проще, быстрее и удобнее на C#. В любом случае, я не страдаю компл^Wпредрассудками по отношению к дотнету в целом и решетке в частности

Сообщение отредактировал A.Vas - 29.4.2009, 5:04

[Bogd@n]

нужно еще помочь решить одну задачу:
найти площадь двух равнобедренных триугольников по формуле Герона.
Тут нужно делать через процедуру,вот я сделал,но при вводе сторон,например 15 и основания 18,выдает ошибку 207.вот текст программы:

Код

program z1;
uses crt;
var q,e,z,c:real;
r,l,v,b:real;
procedure T(a,c,p:real;var S:real);
begin
p:=(a+b+c)/3;
s:=SQRT(P*(p-a)*(p-a)*(p-c));
end;
begin
writeln('vvedite bokovuu storonu i osnovanie');
readln(q,e,z,c);
T(q,e,r,l);
T(z,c,v,B);
writeln ('ploshd pervogo triugolnika=',l:3:3);
writeln('vtorogo=',b:3:3);
readln;
end.

все,ошибку арейметическую нашол,полупериметр не так считается p:=(a+b+c)/3; ,а так p:=(a+b+c)/2;
з.ы.,все там связано.

Сообщение отредактировал Bogd@n - 11.6.2009, 14:25

[alex208210]

Bogd@n такое чувство как будто ты туда просто так строчки кода накидал ничем и никем не связанные.. то что там написано. .не может считать, поправил код.. а правильность формулы герона твоя задача...

Код

program z1;
uses crt;
var a,b,c,p,s:real;
procedure T;
begin
p:=(a+b+c)/3;
s:=SQRT(P*(p-a)*(p-B)*(p-c));
end;
begin
writeln('vvedite bokovuu storonu i osnovanie');
readln(a,b,c);
T;
writeln('ploshad=',s:3:3);
readln;
end.

здесь считается площадь одного треугольника.. для второго надо вводить новые значения..

Сообщение отредактировал alex208210 - 11.6.2009, 14:28

[Bogd@n]

вот полностью рабочая прога,исправил
program z1;
uses crt;
var q,e,z,c:real;
r,l,v,b:real;
procedure T(a,c,p:real;var S:real);
begin
p:=(a+a+c)/2;
s:=SQRT(P*(p-a)*(p-a)*(p-c));
end;
begin
writeln('vvedite bokovuu storonu i osnovanie');
readln(q,e,z,c);
T(q,e,r,l);
T(z,c,v,;
writeln ('ploshd pervogo triugolnika=',l:3:3);
writeln('vtorogo=',b:3:3);
readln;
end.

[grs93]

var q,e,z,c:real;
r,l,v,b:real;

а для чего ты числа одного типа разбил на 2 группы? их же можно записать

var q,e,z,c, r,l,v,b:real;

[Bogd@n]

а для чего ты числа одного типа разбил на 2 группы? их же можно записать

ну первая группа ,типо, вводим с клавиатуры,а вторая-искомые.Нам так в примерах давали,вот я так теперь и делаю...

[A.Vas]

Bogd@n,
а зачем вообще давать переменным такие дикие односимвольные имена? Для Pascal, С и прочих структурных языков, насколько я помню, принята венгерская нотация, которая ставит вполне определенные правила именования переменных. Таким образом, код станет значительно читабельнее и понятнее

Сообщение отредактировал A.Vas - 24.6.2009, 14:33

[grs93]

Bogd@n,
ааа, понял. Эт типа чтобы отлаживать при случае было удобнее, и читалось проще.
A.Vas,
проще то проще, но вот каждый раз прописывать одно и тоже название..... сложновато как-то. Я тоже предпочитаю ввести односимвольное имя, и запомнить что оно значит

[motoprogger]

Представляю, я бы в проекте на 12000 строк (Delphi) давал переменным, классам и так далее одно- и двухсимвольные имена... и что бы я понял там, вернувшись через 2 месяца?
А так - название функции MakeMatWord говорит само за себя - сгенерировать слово, обозначающее материал )

[Bogd@n]

так,новый вопрос.Нужно начертить схему в Паскале и подписать элементы на схеме.Я это сделал.Но подписал только горизонтальным текстом .А нужно еще написать текст вертикальный(с верху в низ,буквы перевернуты на 90 градусов,думаю поняли)) ).Так вот вопрос,если обычный текст задается
OutTextXy (x,y,'text'); ,то как задать чтобы текст стал вертикальным?