• Страница 1 из 1
  • 1
Модератор форума: No_MaTTeR, Dimitro, LightInDarkness  
Форум » Полезное » Флудилка » Delphi Помощь (решение задач)
Delphi Помощь
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098

сообственно, нужны коды этих задач, отблагодарю, договоримся думаю.
Прошу вашей помощи.
Отвечаю сразу на вопросы которые могут возникнуть:
Почему я сам не решаю?
- Потому что, я решаю свой вариант,эти задания дали одногруппнику который живет в общаге, и нет возможности их сделать.
Почему я сам ему не помогу?
- Потому что , как я уже говорил, я решаю свой вариант.
Большое спасибо тем кто будет помогать
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 1 написано 24.11.2011 в 05:38
Зазор
Зазор
Избранный всея форум
Репутация: 1109
slash74, hello

(0)__(0)
Сообщение # 2 написано 24.11.2011 в 05:56
Headline
Headline
Magic.Kasper
Репутация: 2000
вот
Прикрепления: 3122267.gif (5.1 Kb)
Сообщение # 3 написано 24.11.2011 в 12:45
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098
Зазор, hello
Malder063, ты не понял что нужно
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 4 написано 24.11.2011 в 12:49
Стивин
Стивин
Скаут
Репутация: 642
slash74,
program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (c,d);
b:=Sqrt(Sqrt(sqr©-sqr(d)));
read;
end.
где ошибка(
Сообщение # 5 отредактировано Стивин - Четверг, 24.11.2011, 12:59
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098
Стивин, хоть Паскаль и делфи почти одно и тоже, но для меня они разные
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 6 написано 24.11.2011 в 13:10
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098
ап
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 7 написано 24.11.2011 в 17:29
dekamarulol
dekamarulol
Скаут
Репутация: 17
slash74, смотря как договормся
Сообщение # 8 написано 24.11.2011 в 18:18
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098
dekamarulol, в скайп
PS ап
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 9 написано 24.11.2011 в 19:20
vladis777
vladis777
Игрок
Репутация: 2107
ап
Сообщение # 10 написано 24.11.2011 в 19:54
slash74
Класс:
Фракция:
Реалм:
slash74
We Will ROX You ツ
Репутация: 3098
ап
Модератор Твитч каналов:

VIRTUSPRO1DOTA
LIGHTOFHEAVEN
KINGR
Сообщение # 11 написано 25.11.2011 в 19:00
iky
iky
Скаут
Репутация: 5
На Делфи писать не умею, но на Паскале умею.
Могу подсказать всего-лишь некоторые алгоритмы:
N3 же фигня... Не знаю как там у вас Дельфиевцев...
Берешь тип данных на подобии Longint;
program z3;
var s:longint; i:byte;
begin
s:=0;
For i:=1 to 29 do
s:=s+(i*i);
end.
N4
For i:=1 to 10 do
A[i]:=Random(134)-89;
номер наименьшего находишь так...
1-ый элемент принимаешь за минимум и сравниваешь с остальными, если находится элемент меньше 1-ого, то он становится минимумом.
Если A[i] mod 2=0 then s:=s+A[i];
как записывать в файл на Делфи я не знаю =\
N5
Если дана квадратная 5 на 5, то сразу можно написать:
x:=1;
For i:=1 to 5 do
begin
For j:=1 to 5-x do
a[i,j]:=5;
x:=x+1
end;
Для заполнения 3-йками практически тоже самое( просто тороплюсь, поэтому и не могу написать сча ).
а чтобы по главной диагонали заменить, надо прописать условие if i=j then ....

Добавлено (26.11.2011, 14:14)
---------------------------------------------
Хотя даже не надо рассписывать заполнение в несколько циклов:
Вот полностью заполнит тебе как надо:
For i:=1 to 5 do
For j:=1 to 5 do
begin
if i+j<=( меньше либо равно )5 then A[i,j]:=5 else A[i,j]:=-1;
а чтобы заменить элементы главной диагонали на 3 пишешь:
For i:=1 to 5 do
For j:=1 to 5 do
if i=j then A[i,j]:=3;
вот и все

Сообщение # 12 написано 26.11.2011 в 14:14
Форум » Полезное » Флудилка » Delphi Помощь (решение задач)
  • Страница 1 из 1
  • 1
Поиск: