Кому порешать задачи - пишите сюда

[dreamer]

Создал тему, ибо задолбало читать такие просьбы в неподходящих местах.

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

Спасибо что не засоряете остальные ветки.
И не забываем что весь этот форум читают ваши преподаватели

Ключивые слова для поиска: помогите решить, нужно решить задачу, сделать программу, решить задания, Pascal, C++, Java, C#, PHP, программирование

 

[Hitman]

Ответ: Кому порешать задачи - пишите сюда

Язык: Паскаль.
Тема: "Розрахунок одно – двовимірних масивів."
Задания: "В одновимірному масиві А[1..10] обчислити добуток від'ємних елементів масиву, які мають непарні індекси."

P.S. Найти сумму, максимальный- минимальный- элемент в одно-двухмерном массиве - с этим я более менее разобрался, а с вышеупомянутым - нет.

 

[Пух]

Ответ: Кому порешать задачи - пишите сюда

Язык: Паскаль.
Тема: "Розрахунок одно – двовимірних масивів."
Задания: "В одновимірному масиві А[1..10] обчислити добуток від'ємних елементів масиву, які мають непарні індекси."

P.S. Найти сумму, максимальный- минимальный- элемент в одно-двухмерном массиве - с этим я более менее разобрался, а с вышеупомянутым - нет.

типа такого:

program gg;
uses crt;
var a:array[1..10] of integer;
i,dob:integer;

begin
clrscr; randomize;
for i:=1 to 10 do
 begin
  dob:=random(30);
  a[i]:=15-dob;
  write(a[i],' ');
 end;
dob:=1;
for i:=1 to 10 do
begin
if (a[i]<0) and (i mod 2<>0 ) then
dob:=dob*a[i];
end;
gotoxy(1,5);
writeln(dob);
readln;
end.

 

[Blazer]

Ответ: Кому порешать задачи - пишите сюда

Язык:Паскаль
Задача: нарисовать объемный круг (шар) с помощью команд ellipse и цикла for и т.д.

 

[Пух]

Ответ: Кому порешать задачи - пишите сюда

Язык:Паскаль
Задача: нарисовать объемный круг (шар) с помощью команд ellipse и цикла for и т.д.

пока так, может придумаю как красивей сделать.

program ell1pse;
uses graph;
Const StAngle=0; EndAngle=360;
var gd,gm,i,cx,cy:integer;
xr,yr:word;
begin
gd:=detect;
InitGraph(gd,gm,'');
cx:=GetMaxX div 2;cy:=GetMaxY div 2;
xr:=200; yr:=200;
for i:=1 to 360 do
begin
ellipse(cx,cy,StAngle,EndAngle,xr,yr);
cx:=cx-1;
yr:=yr-2;
xr:=xr-i;
end;
readln;
CloseGraph;
end.

 

[Ориген]

Ответ: Кому порешать задачи - пишите сюда

Срочно написать програмку на Делфе + база данных
Брать данные с одной таблицы и сравнивать с данными в другой, при совпадении выдать результат - ошибок нет, при ошибке вывести сообщение о ошибке.
За вознагродждение, срочно. если что пишите в личку.

 

[Meiji]

Re: Turbo Pascal

Народ кто поможет программу написать? А то вообще понятия не имею как ее сделать. Оч нужно помогите плиз. Заранее спасибо
Короче условие

Составить программу с использованием оператора выбора

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

Таблица кодов и стоимостей:
Города:
Киев,
Одесса,
Ровно,
Харьков
Соответствующие коды:
К,
О,
Р,
Х
Соответствующая стоимость провоза пассажира на 1 км, руб.:
2,2
1,0
1,2
1,4

Var
  lng:integer;
  amount:real;
  ch:char;
Begin
  Readln(ch,lng);

  case ch of
  'K': amount:=2.2;
  'O': amount:=1.0;
  'R': amount:=1.2;
  'H': amount:=1.4;
 end;

  writeln(lng*amount:0:1);
End.

 

[Cooper]

Re: Turbo Pascal

Спасибо за то что помогли составить прошлую программу.
Не могли бы вы ещё программу составить? Заранее спасибо.
Вобщем в прикрепленном файле условие.

 

[Пух]

Re: Turbo Pascal

Спасибо за то что помогли составить прошлую программу.
Не могли бы вы ещё программу составить? Заранее спасибо.
Вобщем в прикрепленном файле условие.

program sistema;
uses crt;
var x,y:real;
begin
clrscr;
write('Введите x=');
readln(x);
if x<1.3
then
begin
y:={тут записываем 1е выражение системы(впадла писать его самому)}
end
else
if x=1.3
then begin
y:={тут записываем 2е выражение системы}
end
else
begin
y:={тут записываем 3е выражение системы}
end;
writeln('y=',y:2:2);
readln;
end.

чы и не задача...

 

[rizo]

Язык: Си
Задача: Написать игру "Ханойские башни", с графикой и управлением с клавиатуры(тоесть что бы можно было перемещать диски). Помогите пожалуйста!