|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.01.2013, 09:17 | #21 | |
Пользователь
Регистрация: 24.01.2013
Сообщений: 65
|
Цитата:
|
|
27.01.2013, 23:14 | #22 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 65
|
|
28.01.2013, 08:20 | #23 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
inc(i) то же самое, что i:=i+1
inc(b,b) <-> b:=b+b
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
28.01.2013, 11:38 | #24 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 65
|
delphi 7
Добрый день!!!
Подскажите, как можно переделать задачу под Delphi 7??? Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, ...} uses crt; const n=15; var m:array[1..n]of integer; i:integer; begin m[1]:=2; for i:=2 to n do m[i]:=m[i-1]*2; for i:=1 to n do write(m[i]:8); end. |
28.01.2013, 11:42 | #25 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 65
|
delphi 7
Добрый день!!!Подскажите как можно переделать задачу под Delphi 7?
Последовательности (Series). Даны десять вещественных чисел. Найти их произведение. var i:integer; a,Pro:real; begin i:=0; Writeln('Введите десять вещественных чисел');{заголовок} Pro:=1; While (i<10) do begin Read(a); Pro:=Pro*a; inc(i); end; Write('Произведение введённых чисел = ',Pro); end. |
28.01.2013, 11:55 | #26 | |
Пользователь
Регистрация: 24.01.2013
Сообщений: 65
|
Цитата:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; a,p:real; begin i:=0; p:=1; While (i<10) do begin P:=P*a; inc(i); end; Label1.Caption:=P; end; end. |
|
28.01.2013, 14:50 | #27 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решение задач Delphi 7 | klara | Помощь студентам | 0 | 14.05.2012 15:37 |
Решение задач в Delphi | Njurca | Помощь студентам | 0 | 30.09.2010 04:39 |
решение задач в delphi | w0lf16 | Помощь студентам | 1 | 07.05.2010 20:01 |