Сообщения: 8,137
Регистрация: 30.09.2008 | бля пацаны выручайте
написал программу вроде, а она не хочет работать
я хз уже что с ней делать дан одномерный массив.удалить из него все отрицательные элементы со сдвигом элементов.в конце, если остаются пустые элементы, придать им значение 0 Показать скрытый текст Код: const k=10;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0;
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=1 to k-1 do
a[o]:=a[o+1];
s:=s+1;
end;
end;
for i:=(k-s) to k do
begin
a[i]:=0;
end;
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.
| | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | Будь внимательней. Код: const k=5;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0;
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k-1 do a[o]:=a[o+1];
s:=s+1;
end
else o:=o+1;
end;
for i:=(k + 1 - s) to k do
begin
a[i]:=0;
end;
writeln('Вывод:');
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.
P.S. Много лишнего кода. Почитай что-нибудь об эффективном кодинге на паскале.
Например, лишние begin и end;
Да и оформление кода оставляет желать лучшего. | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от Hammer Будь внимательней. Код: const k=5;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0;
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k-1 do a[o]:=a[o+1];
s:=s+1;
end
else o:=o+1;
end;
for i:=(k + 1 - s) to k do
begin
a[i]:=0;
end;
writeln('Вывод:');
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.
P.S. Много лишнего кода. Почитай что-нибудь об эффективном кодинге на паскале.
Например, лишние begin и end;
Да и оформление кода оставляет желать лучшего.
нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Трэй
нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту Код: const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.
| | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от Hammer -Цитата от Трэй
нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту Код: const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.
у меня без for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
заработало
спасибо огромное | | | | ё, Сашечка Бух
Сообщения: 1,743
Регистрация: 26.12.2007 Откуда: картофельная афроамерика | -Цитата от Тедди -Цитата от зулусик просто -Цитата от Тедди ну как бы i и j местами поменять в 1ой выделенной строке надо в любом случае
а если у тебя массив динамический, надо наверно память под него выделить, не?
короче так
setlength(arr,strok,stolb); Окей. Про память был не в курсе. завтра попробую. спасибо Добавлено через 17 часов 11 секунд щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего. | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | -Цитата от зулусик просто -Цитата от Тедди -Цитата от зулусик просто
ну как бы i и j местами поменять в 1ой выделенной строке надо в любом случае
а если у тебя массив динамический, надо наверно память под него выделить, не?
короче так
setlength(arr,strok,stolb); Окей. Про память был не в курсе. завтра попробую. спасибо Добавлено через 17 часов 11 секунд щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего. Да вроде всё проверил. | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Тедди -Цитата от зулусик просто -Цитата от Тедди
Окей. Про память был не в курсе. завтра попробую. спасибо Добавлено через 17 часов 11 секунд щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего. Да вроде всё проверил. Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива. | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | -Цитата от Hammer -Цитата от Тедди -Цитата от зулусик просто
щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего. Да вроде всё проверил. Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива. нет, я не делю на ноль, но эту ситуацию я действительно не предусматривал. Я же скинул проект | | | | новенький
Сообщения: 23
Регистрация: 21.02.2011 Откуда: Донецк | Задача по С++ Помогите Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Delpix MC Помогите Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы Задача по жизни.
Помогите. Найти все трехзначные купюры.
Нужны деньги.
P.S. Здесь не каталог готовых программ. Свои попытки есть? | | | | активный пользователь
Сообщения: 5,309
Регистрация: 01.09.2009 | -Цитата от Hammer -Цитата от Delpix MC Помогите Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы Задача по жизни.
Помогите. Найти все трехзначные купюры.
Нужны деньги.
P.S. Здесь не каталог готовых программ. Свои попытки есть?
чотка | | | | новенький
Сообщения: 23
Регистрация: 21.02.2011 Откуда: Донецк | #include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i\10)+i\10))
k++;
cout;
}
Вот чет похожее но не работает | | | | ...
Сообщения: 392
Регистрация: 28.12.2010 Откуда: ни возьмись | кто в паскале шарит, можете объяснить чем отличаются операторы for, while? | | | | ты хотел меня в детстве
Сообщения: 286
Регистрация: 15.02.2008 Откуда: Курган | -Цитата от Delpix MC #include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i\10)+i\10))
k++;
cout;
}
Вот чет похожее но не работает так навскидку, мож неправильно... Код: int k,j=0;
for (int i=100;i<1000;i++)
{
k=i%11;
if (k==(i\100+(i\10)+i\10))
j++;
cout<<j;
}
| | | | активный пользователь
Сообщения: 2,797
Регистрация: 18.11.2009 Откуда: Минск | -Цитата от ExIzze кто в паскале шарит, можете объяснить чем отличаются операторы for, while? грубо говоря
while - цикл работает, пока не выполнится некое условие
for - цикл идёт определённое количество раз, каждый раз увеличивая счётчик на 1 | | | | ...
Сообщения: 392
Регистрация: 28.12.2010 Откуда: ни возьмись | -Цитата от Женя Йети -Цитата от ExIzze кто в паскале шарит, можете объяснить чем отличаются операторы for, while? грубо говоря
while - цикл работает, пока не выполнится некое условие
for - цикл идёт определённое количество раз, каждый раз увеличивая счётчик на 1 спасибо. | | | | Hin zur SONNE
Сообщения: 4,974
Регистрация: 30.12.2008 | Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку. | | | | новенький
Сообщения: 23
Регистрация: 21.02.2011 Откуда: Донецк | -Цитата от Sa[V]ior Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку. Могу на ucoz сделать | | | | Hin zur SONNE
Сообщения: 4,974
Регистрация: 30.12.2008 | -Цитата от Delpix MC -Цитата от Sa[V]ior Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку. Могу на ucoz сделать мне сайт не нужен онлайн, мне просто сама оболочка нужна.
То есть делаешь сайт, пересылаешь его мне и всё. | | | |
Сообщения: 9,544
Регистрация: 23.11.2007 | -Цитата от Delpix MC -Цитата от Sa[V]ior Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку. Могу на ucoz сделать | | | |
Сообщения: 10,214
Регистрация: 09.11.2008 | | | | | новенький
Сообщения: 23
Регистрация: 21.02.2011 Откуда: Донецк | Задание:
Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Код:
#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
{
k++;
cout<<k<<" ";
}
cout<<"\n"<<k;
} if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
В чем причина | Рап | | | новенький
Сообщения: 23
Регистрация: 21.02.2011 Откуда: Донецк | -Цитата от иксуй! -Цитата от Delpix MC -Цитата от Sa[V]ior Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку. Могу на ucoz сделать | | | |
Сообщения: 9,544
Регистрация: 23.11.2007 | -Цитата от Delpix MC Задание:
Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Код:
#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
{
k++;
cout<<k<<" ";
}
cout<<"\n"<<k;
} if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
В чем причина Ты в курсе что знак деления в другую сторону наклонён?
и что за if адский такой вообще... зачем точка с запятой после него сразу? | | | | |