Перейти к содержанию

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


Рекомендуемые сообщения

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

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

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

Ссылка на комментарий

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

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, B);

swap(a, B);

WRITELN(a, B)

END.

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

Ссылка на комментарий

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

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

В Pascal

Ссылка на комментарий

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

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

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

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

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

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

Ссылка на комментарий
  • 4 недели спустя...

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

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

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

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

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

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) идет с одним.

Ссылка на комментарий
  • 2 недели спустя...

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.

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

Ссылка на комментарий

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

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

// repeat

// readln(x);

// until x<=0;

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

Ссылка на комментарий
  • 4 недели спустя...
  • 3 недели спустя...

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

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

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

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

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

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

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

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

Ссылка на комментарий

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(B)

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)

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

Ссылка на комментарий
  • 1 месяц спустя...

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

Ссылка на комментарий
отобразить данные из нескольких таблиц
   Если не можешь решить проблему с помощью LookUp'а - то

datasource.dataset - query

dbgrid.datasource - datasource

Ссылка на комментарий
  • 7 месяцев спустя...

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

вот что есть

ghjtrn.rar

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

6969696.doc

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

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...