ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
11.12.2009, 14:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от TPAXTOP
помогите плз....передо мной вот такое задание, а в Паскале - почти 0...(
"Обчислити суму квадратів елементів, значення яких більші, ніж 1."
рус
"Знайти суму квадратов элиментов, значение которых больше, чем 1."
Как я понял, сумма квадратов это n^2 + (n+1)^2 и так далее.
Код:
const
n=3;
var
a,i,k:integer; {если могут быть дробные, то integer меняй на real}
begin
k:=0;
for i:=1 to n do
begin
readln (a);
if a>1 then
k:=k+sqr (a);
end;
writeln ('Sum is ', k);
readln; //для ТурбоПаскаля
end.
P.S А вообще, примеров решения подобных задач полно в Googl'е. И я еще не говорю про учебники.
|
|
|
11.12.2009, 20:03
|
|
Новичок
Регистрация: 28.08.2009
Сообщений: 1
Провел на форуме:
4389
Репутация:
0
|
|
в паскале нужно удалить из массива (0,2,0,4,0,6...20) нули..
|
|
|
|
11.12.2009, 21:46
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Где метод для рисовки на канву TPanel ????
|
|
|
|
11.12.2009, 22:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от coltus
в паскале нужно удалить из массива (0,2,0,4,0,6...20) нули..
Код:
const n=5;
var
a,b:array[1..n] of integer;
i,index:integer;
begin
index:=1;
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
if a[i]<>0 then
begin
b[index]:=a[i];
index:=index+1;
end;
a:=b;
for i:=1 to index-1 do
write (a[i]);
end.
Люди, юзайте Google хоть для таких-то примеров, там ВСЕ это есть.
P.S Решение, приведенное выше, не самое мега-лучшее, но зато более наглядное, ибо без сильных заморочек.
|
|
|
|
11.12.2009, 22:34
|
|
Новичок
Регистрация: 22.09.2009
Сообщений: 3
Провел на форуме:
33996
Репутация:
0
|
|
Ну тут простенькая задача но я паскаль вабше не знаю )
на дискете свободного места 25процентов
Надо записать 3 файла весом 1.44 Мб
Смогут ли они поместиться?
|
|
|
|
11.12.2009, 22:46
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от balyuk
Ну тут простенькая задача но я паскаль вабше не знаю )
на дискете свободного места 25процентов
Надо записать 3 файла весом 1.44 Мб
Смогут ли они поместиться?
причем тут паскаль
объем дискеты - 1.44 Мб. Свободно 25%, значит три файла не поместятся))))
|
|
|
|
11.12.2009, 22:52
|
|
Новичок
Регистрация: 22.09.2009
Сообщений: 3
Провел на форуме:
33996
Репутация:
0
|
|
именно надо на паскале решение написать
и 1.44 Мб. это не обьем дискеты)
|
|
|
|
11.12.2009, 22:58
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
[20:50:54] <Ponchik> Я делаю tcpclnt1.Receiveln но если нечего читать, прога зависает, как узнать есть чо читать или нет
[20:51:01] <Ponchik> типа как feof в пыхе хотел нагулить, но гугл feof в какой-то eof переделывает 
|
|
|
|
11.12.2009, 23:06
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534
Репутация:
2731
|
|
eof в дельфи и есть аналог feof в пыхе
|
|
|
|
11.12.2009, 23:07
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от balyuk
именно надо на паскале решение написать
и 1.44 Мб. это не обьем дискеты)
Эм... А какой тогда объем если не секрет? Или для выполнения задания необходимо применить экстрасенсорные способности?
P.S обычные дискеты (3,5), насколько помню, как раз и были 1,44 МБ (или за ~8 лет мне память совершенно отшибло) -> программа имеет вид.
Код:
begin
writeln ('Не поместятся при всем желании несчастного юзера');
end;
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
