программа delphi 7
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
программа delphi 7 - 2009-03-03 18:40:44.093333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
помогите зделать эту программу
Написать любое число N<11, который будет высотой триугольника…например если N=4
должно получитса вот так:
*
**
***
****
***
**
*
и ешё 1 задачу:
Написать любое число N ,и из них показать самое большое которое делитса 2, 3 и 5.
1 ваше не могу понять,, 2 чё то вроде этого должно получитса думаю:
quote:
uses
SysUtils;
var n,s.integer;
begin
write('N= ');
readln(n);
for n:=1 to n do+
begin
s:=0;
if (n mod 2 =0) and (n mod 3 =0) and (n mod 5 =0)
then
s:=s+n;
end;
readln;
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 19:17:21.983333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: minihack
и ешё 1 задачу:
Написать любой номер N , показать на экране самый большой номер который разделяетса на 2 3 и 5.
наименьшее такое число (почему номер? что за номер?) это 2 * 3 * 5 = 30
наибольшего не существует
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 19:36:36.740000
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
quote:
ORIGINAL: Denaturat
quote:
ORIGINAL: minihack
и ешё 1 задачу:
Написать любой номер N , показать на экране самый большой номер который разделяетса на 2 3 и 5.
наименьшее такое число (почему номер? что за номер?) это 2 * 3 * 5 = 30
наибольшего не существует
отредактировал..просто перевожу по словам и не задумываюсь на деталях,,,,так как задача не на русском
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:00:47.183333
|
|
|
Tol.v
Сообщений: 23
Оценки: 0
Присоединился: 2008-12-19 20:42:03.330000
|
Чет я чуток не понял. (2ая задача). Вводиться N и надо найти наибольшее число кот-ое делится на 2,3,5? просто поменяй s:=s+n на s:=n)) хотя я ваще не понял, ты нигде данные не выводишь, нах ты вообще ввел переменную S)))
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:08:29.253333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
quote:
ORIGINAL: Tol.v
Чет я чуток не понял. (2ая задача). Вводиться N и надо найти наибольшее число кот-ое делится на 2,3,5? просто поменяй s:=s+n на s:=n)) хотя я ваще не понял, ты нигде данные не выводишь, нах ты вообще ввел переменную S)))
чё тут не понятного??… задаеш любое число программе например 61,,,она с командой for пишет числа с 1 до 61 потом проверяет если число делитса на 2 3 и 5 как например 30 и 60,,, потом просит чтобы на экране вышло самое большое число и т.к. 60 больше 30 должен выдилетса номер "30"..
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:15:28.800000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: minihack
отредактировал..просто перевожу по словам и не задумываюсь на деталях,,,,так как задача не на русском
напиши оригинал, ну. счас вообще херня какая-то получилась
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:17:10.696666
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
я понял, что мне твоя задача напоминает
http://projecteuler.net/index.php?section=problems&id=1
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:26:02.833333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
я не с английсково а с итальясково перевожу,,,
ну так кто нибудь может помочь?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:27:30.890000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: minihack
я не с английсково а с итальясково перевожу,,,
да хоть с иврита. оригинал дай
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:28:40.706666
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
ok
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:28:44.376666
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
150 тоже без проблем делится на 2, 3 и 5, без остатка. Может, тебе нужно найти наименьшее общее делимое?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:32:07.096666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Перевожу его иноземное условие: нужно максимальное из чисел в диапазоне от 1 до N ,делящееся на 2,3 и 5. )))
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:34:10.093333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
программа просит с начала написать любое число а потом в базе написанново числа определить самые большое число которое делитса на 2 3 и 5
например если я напишу 120 то мне даст числа которые делятса с 1 до 120 на 2 3 и 5..то есть 30 60 90 и 120,,, если бы я написал до 150 мне бы дал 30 60 90 120 и 150 и потом бы написал что самое большое число из перечисленных это 150…надеюсь шас понятно…
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:36:51.873333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Genco
Перевожу его иноземное условие: нужно максимальное из чисел в диапазоне от 1 до N ,делящееся на 2,3 и 5. )))
похоже на то. в таком случае оно равно N - (N % 30), где % - остаток от деления, т.е. ближайшее число меньше N, делящееся на 30. ммм?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:38:35.373333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
uses
SysUtils;
var n,s,i : integer;
begin
writeln('Enter N= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if ( (i mod 2) =0) and ( (i mod 3) =0) and ( (i mod 5) =0) then s:=i;
end;
Writeln('The answer is:');
Writeln(s);
readln;
З.Ы. Просто исправил твой собственный кошмар.
//Только по 5 бы прибавлять,конечно,но доведешь до ума сам.
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:38:35.890000
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
Да, как я понял, тут ключевая фраза "в диапазоне от 1 до N"
1-я..
var a,i,j,k,n:byte;
begin
writeln('Vvedite N');
readln(n);
writeln;
i:=1;
j:=n;
for a:=1 to n*2-1 do
if i<n then begin
for k:=1 to i do write('*');
writeln;
inc(i);
end
else begin
for k:=1 to j do write('*');
writeln;
dec(j);
end;
readln;
end.
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:42:38.140000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
не, нифига не глупая. искомые числа все имеют вид 30 * i (i є N), почему просто не перечислить их?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:43:28.486666
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
quote:
ORIGINAL: Genco
uses
SysUtils;
var n,s,i : integer;
begin
writeln('Enter N= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if ( (i mod 2) =0) and ( (i mod 3) =0) and ( (i mod 5) =0) then s:=i;
end;
Writeln('The answer is:');
Writeln(s);
readln;
З.Ы. Просто исправил твой собственный кошмар.
//Только по 5 бы прибавлять,конечно,но доведешь до ума сам.
спс большое….
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:45:15.770000
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
quote:
ORIGINAL: unconnected2
Да, как я понял, тут ключевая фраза "в диапазоне от 1 до N"
1-я..
var a,i,j,k,n:byte;
begin
writeln('Vvedite N');
readln(n);
writeln;
i:=1;
j:=n;
for a:=1 to n*2-1 do
if i<n then begin
for k:=1 to i do write('*');
writeln;
inc(i);
end
else begin
for k:=1 to j do write('*');
writeln;
dec(j);
end;
readln;
end.
а во спс
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:46:00.100000
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
Пост №16 для тебя не существует?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:48:39.176666
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
а что это за команды "inc" и "dec"в 1 программе??
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:50:10.340000
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
inc увеличивает значение переменной-параметра на единицу. dec - уменьшает.
|
|
|
|
|
RE: программа delphi 7 - 2009-03-03 20:53:03.403333
|
|
|
minihack
Сообщений: 53
Оценки: 0
Присоединился: 2008-10-27 23:46:56.603333
|
всем спс очень добрые и отзывчивые :):)
|
|
|
|
|
RE: программа delphi 7 - 2009-03-04 16:03:34.880000
|
|
|
Qb1024
Сообщений: 98
Оценки: 0
Присоединился: 2009-02-13 21:22:06.990000
|
помогите, где в реестре посмотреть имя текущего пользователя, и как в делфи узнать путь до файла программы?
|
|
|
|
|
RE: программа delphi 7 - 2009-03-04 18:14:22.656666
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
extractfilepath(paramstr(0)) так, кажется
|
|
|
|
|
RE: программа delphi 7 - 2009-03-05 00:06:39.200000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
GetCurrentDirectory() -текущая директория(может не совпадать с той где прога), './файл' - типо точка(или 2,чето туплю) это за текущую иногда сходит.
В реестре нету,это не там)) GetuserName() вроде….мм! смотри какой гугл умный:
ссыль
|
|
|
|
|
RE: программа delphi 7 - 2009-03-05 01:38:45.610000
|
|
|
HolyAnimal =^.^=
Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333
|
Application.ExeName - путь к файлу программы
ExtractFileDir(Application.ExeName) - путь к директории программы
Если что-то надо от реестра, то:
1..жми WIN+R
2..вводи regedit
3..жми ENTER
4..жми CTRL+F
5..исчи што те нада ^_^
Но лутше последуй совету Genco, и заюзай GetUserName();
The GetUserName function retrieves the user name of the current thread. This is the name of the user currently logged onto the system.
BOOL GetUserName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);
Parameters
lpBuffer
Points to the buffer to receive the null-terminated string containing the user's logon name. If this buffer is not large enough to contain the entire user name, the function fails.
nSize
Pointer to a DWORD that, on input, specifies the maximum size, in characters, of the buffer specified by the lpBuffer parameter. If this buffer is not large enough to contain the entire user name, the function fails. If the function succeeds, it will place the number of characters copied to the buffer into the DWORD that nSize points to. quote:
ORIGINAL: Genco
uses
SysUtils;
var n,s,i : integer;
begin
writeln('Enter N= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if ( (i mod 2) =0) and ( (i mod 3) =0) and ( (i mod 5) =0) then s:=i;
end;
Writeln('The answer is:');
Writeln(s);
readln;
З.Ы. Просто исправил твой собственный кошмар.
//Только по 5 бы прибавлять,конечно,но доведешь до ума сам.
переменную s можно и не обнулять -_^
|
|
|
|
|
|
