Hip-Hop.Ru - Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка]

Страница 46 из 136: « Первая ← 26 36 39 40 41 42 43 44 454647 48 49 50 51 52 53 56 66 96 → Последняя »

Показывать 50 сообщений этой темы на одной странице

Hip-Hop.Ru (https://www.hip-hop.ru/forum/)

- Компьютеры и Интернет (https://www.hip-hop.ru/forum/kompyutery-i-internet-f186)

- - Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка] (https://www.hip-hop.ru/forum/programmisty-kompyuternye-tehniki-kotorye-nikogda-ne-spyat-besedka-252443/)

Трэй	11 марта 2011 22:21

бля пацаны выручайте
написал программу вроде, а она не хочет работать
я хз уже что с ней делать

дан одномерный массив.удалить из него все отрицательные элементы со сдвигом элементов.в конце, если остаются пустые элементы, придать им значение 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.

Hammer

11 марта 2011 22:35

Будь внимательней.

Код:

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;
Да и оформление кода оставляет желать лучшего. ;)

Трэй	11 марта 2011 22:40

Вложений: 1

Цитата:

Цитата от Hammer (Сообщение 1072664437)

Будь внимательней.

Код:

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.

:(
нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту

Hammer

11 марта 2011 23:02

Цитата:

Цитата от Трэй (Сообщение 1072664511)

:(
нас просто учили, что если 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.

Трэй	11 марта 2011 23:11

Цитата:

Цитата от Hammer (Сообщение 1072664805)

Цитата:

Цитата от Трэй (Сообщение 1072664511)

:(
нас просто учили, что если 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;
заработало

спасибо огромное :horosho:

зулусик просто

13 марта 2011 04:29

Цитата:

Цитата от Тедди (Сообщение 1072655339)

Цитата:

Цитата от зулусик просто (Сообщение 1072654913)

Цитата:

Цитата от Тедди (Сообщение 1072649851)

Да, это приведение к ступенчатому виду.Форум уничтожает отступы. Программа должна считать ранг матрицы.
Вот весь проект в архиве
http://file.qip.ru/file/tZB2Uiuj/Хрень.html ( 207,25 Кб )

У меня массив динамический

ну как бы i и j местами поменять в 1ой выделенной строке надо в любом случае;)
а если у тебя массив динамический, надо наверно память под него выделить, не?:krik:
короче так
setlength(arr,strok,stolb);
:king:

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего.

Тедди

13 марта 2011 11:49

Цитата:

Цитата от зулусик просто (Сообщение 1072676936)

Цитата:

Цитата от Тедди (Сообщение 1072655339)

Цитата:

Цитата от зулусик просто (Сообщение 1072654913)

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

Да вроде всё проверил.

Hammer

13 марта 2011 13:34

Цитата:

Цитата от Тедди (Сообщение 1072678445)

Цитата:

Цитата от зулусик просто (Сообщение 1072676936)

Цитата:

Цитата от Тедди (Сообщение 1072655339)

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

Да вроде всё проверил.

Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива.

Тедди

13 марта 2011 14:12

Цитата:

Цитата от Hammer (Сообщение 1072679673)

Цитата:

Цитата от Тедди (Сообщение 1072678445)

Цитата:

Цитата от зулусик просто (Сообщение 1072676936)

Да вроде всё проверил.

Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива.

нет, я не делю на ноль, но эту ситуацию я действительно не предусматривал. Я же скинул проект

Delpix

16 марта 2011 18:31

Задача по С++

Помогите

Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы

Hammer

16 марта 2011 18:41

Цитата:

Цитата от Delpix MC (Сообщение 1072717578)

Задача по жизни.

Помогите.

Найти все трехзначные купюры.
Нужны деньги.

P.S. Здесь не каталог готовых программ. Свои попытки есть?

disa zakon

16 марта 2011 18:48

Цитата:

Цитата от Hammer (Сообщение 1072717712)

Цитата:

Цитата от Delpix MC (Сообщение 1072717578)

:guinda::guinda::guinda:
чотка

Delpix

16 марта 2011 18:49

#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;
}
Вот чет похожее но не работает

bombom

16 марта 2011 22:15

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

Турбо Гаечка

16 марта 2011 22:29

Цитата:

Цитата от Delpix MC (Сообщение 1072717783)

так навскидку, мож неправильно...

Код:

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;

}

Безмятежность

16 марта 2011 23:23

Цитата:

Цитата от ExIzze (Сообщение 1072720395)

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

грубо говоря
while - цикл работает, пока не выполнится некое условие
for - цикл идёт определённое количество раз, каждый раз увеличивая счётчик на 1

bombom

16 марта 2011 23:41

Цитата:

Цитата от Женя Йети (Сообщение 1072721090)

Цитата:

Цитата от ExIzze (Сообщение 1072720395)

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

спасибо.

SaVior

16 марта 2011 23:42

Блин, какой-то мудлан снёс мою тему. :tomato:
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

Delpix

17 марта 2011 00:40

Цитата:

Цитата от Sa[V]ior (Сообщение 1072721301)

Могу на ucoz сделать

SaVior

17 марта 2011 09:09

Цитата:

Цитата от Delpix MC (Сообщение 1072721864)

Цитата:

Цитата от Sa[V]ior (Сообщение 1072721301)

Могу на ucoz сделать

мне сайт не нужен онлайн, мне просто сама оболочка нужна.
То есть делаешь сайт, пересылаешь его мне и всё.

иксуй!

17 марта 2011 09:14

Цитата:

Цитата от Delpix MC (Сообщение 1072721864)

Цитата:

Цитата от Sa[V]ior (Сообщение 1072721301)

Могу на ucoz сделать

:facepalm:

Nugget

17 марта 2011 11:02

:morj:

Delpix

17 марта 2011 18:07

Задание:
Найти все трехзначные натуральные числа,остаток от деления которых на 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 бесперебойно выдает - синтаксическая ошибка: )
В чем причина

Delpix

17 марта 2011 18:17

Цитата:

Цитата от иксуй! (Сообщение 1072723445)

Цитата:

Цитата от Delpix MC (Сообщение 1072721864)

Цитата:

Цитата от Sa[V]ior (Сообщение 1072721301)

Могу на ucoz сделать

:facepalm:

:confused:

иксуй!

17 марта 2011 22:53

Цитата:

Цитата от Delpix MC (Сообщение 1072727558)

Ты в курсе что знак деления в другую сторону наклонён?:D
и что за if адский такой вообще... зачем точка с запятой после него сразу?

Часовой пояс GMT +3, время: 04:33.

Страница 46 из 136: « Первая ← 26 36 39 40 41 42 43 44 454647 48 49 50 51 52 53 56 66 96 → Последняя »

Показывать 50 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.

vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.