Задачи на Pascal/Delphi (РЕШЕНИЕ)

[Sheogorath]

Помогите решить задачу на паскале:

"Даны три целых числа А, В, С. Определить, делителем каких из

них является целое число К."

[Lakers]

if A mod K = 0 then writeln(A);
if B mod K = 0 then writeln(;
if C mod K = 0 then writeln(C);

[flyman]

Люди, помогите пожалуйста сделать программу. Буду очень благодарен.

[Lakers]

О!народ попёр в форум программистов - значит скоро сессия!

flyman

что именно непонятно?спрашивай.

[flyman]

Lakers

Как строить график и как вообще будет выглядеть программа?

[flyman]

Товарищи-программисты помогите пожалуйста.

[Андрюха]

Помогите пожалуйста! Турбо Паскаль

1)

Даны действительные числа а1, b1, с1, a2, b2, c2. Выяснить, верно

ли, что |a1b2 – a2b1|≥ 0,0001 и если верно, то найти решение систе-

мы линейных уравнений

a1x + b1y + c1 = 0

а2х + b2у + c2 = 0

Нужен текст программы.

2)

program prim4(input, output);

VAR a, b: INTEGER;

procedure swap(VAR x: INTEGER;

y: INTEGER);

VAR a: INTEGER;

BEGIN

a := x;

x := y;

y := a

END;

BEGIN

READ(a, ;

swap(a, ;

WRITELN(a,

END.

Здесь нужна трассировка.

[Fiba]

поиск min числа в масиве через select в Delphi 7

[Mouse_rocker]

будте добры напишите решение задачи , нужна программа которая вычисляет сумму диагональных элементов матрицы (квадратная матрица)

Ну ооочень нужно. Заранее спасибо!

В Pascal

[Lakers]

Mouse_rocker

sum:=0;
в цикли по i от 1 до количество размерность массива
sum:=sum+a[i][i]; 

[Mouse_rocker]

Lakers

Благодарствую, но увы в паскале ноль, не напишу я её. Да уже и не надо )

[Bags]

Дан массив из 100 целых чисел.

1) найти сумму S элементов, расположенных между min и max элементами.

2) Поменять местами 1ый отрицательный элемент с последним отрицательным элементом.

Дана матрица из 3х столбцов и 3х строк.

1) найти произведение ненулевых эл-тов всей матрицы

2) найти сумму в нечётных столбцах.

[Алексей 2014]

помогите ответить на вопрос, в паскале

Что будет если х будет отрицательным? Как можно это исправить?

1.program prim9

2.var: x,s:real;

3.i:integer;

4.a:array[1...5]of real;

5.function ct(y,z,t:real):real;

6.begin

7.ct:=z*exp(t*ln(y));

8.end

9.begin

10.readln(x);

11.for i:=0 to 4 do begin

12.write("a=");

13.readln(a);

14.end

15.for i:=0 to 4 do

16.s:=s+ct(x:a);

17.writeln("s=",s:10:2);

18.end

[olegbat]

помогите ответить на вопрос, в паскале

Что будет если х будет отрицательным? Как можно это исправить?

1.program prim9

2.var: x,s:real;

3.i:integer;

4.a:array[1...5]of real;

5.function ct(y,z,t:real):real;

6.begin

7.ct:=z*exp(t*ln(y));

8.end

9.begin

10.readln(x);

11.for i:=0 to 4 do begin

12.write("a=");

13.readln(a);

14.end

15.for i:=0 to 4 do

16.s:=s+ct(x:a);

17.writeln("s=",s:10:2);

18.end

Ошибки:

В строке 4: массив задан от 1 до 5, а в инициализации массива (строка 11) от 0 до 4

В строке 5: Функция ct имеет 3 аргумента, а вызов (строка 16) идет с одним.

[Vsadnik665]

Совсем подзабыл все. Что означает

16.s:=s+ct(x:a);

[Clerick]

Сортировка методом распределения (выборка в пределах 1000) ааа

[Алексей 2014]

program prim9;

var x,s:real;

i:integer;

a:array[1..4]of real;

function ct(y,z,t:real):real;

begin

ct:=z*exp(t*ln(y));

end;

begin

readln(x);

for i:=0 to 4 do begin

write('a=');

readln(a);

end;

for i:=0 to 4 do

s:=s+ct(x,a,i);

writeln('s=',s:10:2);

end.

Так будет? Или...?

[martinges]

в твоём массиве не существует индекса 0. у тебя элементы с 1 по 4, а цикл с 0 по 4.

Примечание.... я бы сделал защиту от дурака на x, т.к. ОДЗ x несколько ограничен

// repeat

// readln(x);

// until x<=0;

помойму как то так

[Алексей 2014]

А в чем "опасность" вложенныъ циклов? Нигде найти не могу

И какие особенности оператора for?

[Ups]

Помогите пожалуйста.

1.Вычислите площадь трапеции,если заданы основания и высота.

2.Найдите площадь треугольника если известны две стороны и угол между ними.

3.Вычислите площадь ромба,если известны его диагонали.

4.Даны два любых целых положительных числа.Найдите максимальное из них.

5.Даны два любых числа х и у.Найдите частное от деления х на у если отличен от нуля.

6.Вычислите стоимость покупки в магазине со скидкой, если скидка предоставляется только при покупке на сумму от 1000 рублей.

7.Задано любое число.Если оно положительное определить его натуральный логарифм,если отрицательно найти квадрат числа.

[haha]

1. S = (osn1 + osn2)/2*vys

2. S = stor1*sin(ugol)*sotr2/2

3. S = diag1*diag2

4. if a>b then write(a) else write(

5. if y<>0 then write(x/y)

6. if (cena>=1000) then Summa=skidka*cena

7. if a>0 then write(ln(a)) else write(a*a)

Если же нужен полный текст программ, то это небесплатно.

[Ups]

спс большое)))

[Clerick]

в Delphi - как отобразить данные из нескольких таблиц в компоненте DBGrid ? каков порядок назначения связей у компонент связующих БД. пробовал через TQuery.

[TolkienDRR]

отобразить данные из нескольких таблиц

   Если не можешь решить проблему с помощью LookUp'а - то

datasource.dataset - query

dbgrid.datasource - datasource

[AIPY]

проблема! есть код программы, надо набросать на форму все, не знаю как, помогите, то что набросал не работает

вот что есть

ghjtrn.rar

и задание, как должно выглядеть там есть

6969696.doc

выручайте, оч срочно надо