ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу turbo PASCAL помогите з масивами
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

turbo PASCAL помогите з масивами
  #1  
Старый 25.11.2009, 21:28
Hunter123
Новичок
Регистрация: 03.11.2009
Сообщений: 25
Провел на форуме:
136837

Репутация: 0
По умолчанию turbo PASCAL помогите з масивами
помогите з програмкой з однивимерними массивами.
не могу понять ни как.
Знаю што програмка простенькая.....

Підрахувати кількість та вивести індекси нульових елементів


начало прграмми. (точно не знаю ли правильное начало)

Program hfafajh;
var i:integer P:real;
begin
for:=1 to 10 do begin
writeln ('xc'.i.'y') Readln(x[i];
end;
i:=1 , R:=1
while i <=1
begin if
 
Ответить с цитированием

  #2  
Старый 25.11.2009, 22:42
Hunter123
Новичок
Регистрация: 03.11.2009
Сообщений: 25
Провел на форуме:
136837

Репутация: 0
По умолчанию
HELP
 
Ответить с цитированием

  #3  
Старый 25.11.2009, 23:31
banana
Участник форума
Регистрация: 04.03.2009
Сообщений: 298
Провел на форуме:
1241030

Репутация: 229
Отправить сообщение для banana с помощью ICQ
По умолчанию
Скажи чо надо сделать только по-русски. Ибо не понимаю украинский
 
Ответить с цитированием

  #4  
Старый 25.11.2009, 23:41
Hunter123
Новичок
Регистрация: 03.11.2009
Сообщений: 25
Провел на форуме:
136837

Репутация: 0
По умолчанию
Цитата:
Сообщение от banana  
Скажи чо надо сделать только по-русски. Ибо не понимаю украинский

Подсчитать количество и вывести индексы нулевых элементов
 
Ответить с цитированием

  #5  
Старый 25.11.2009, 23:44
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию
Program array;
var i:integer; nulls:string;
begin
for:=1 to 10 do begin
writeln ('xc' + i + 'y') Readln(x[i]);
if x[i]=0 then nulls:=nulls+' 'intostr(x[i]);
writeln('Nell elevents:');
writeln(nulls);
end;
end.
 
Ответить с цитированием

  #6  
Старый 25.11.2009, 23:46
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию
Не забудь массив заполнить.

И кста форум находится в доменной зоне .ru не мог бы ты впредь писать на русском, а то затруднительно читать, надеюсь ты понимаешь меня..
 
Ответить с цитированием

  #7  
Старый 26.11.2009, 00:06
KentPol
Участник форума
Регистрация: 03.06.2008
Сообщений: 111
Провел на форуме:
911872

Репутация: 36
Отправить сообщение для KentPol с помощью ICQ
По умолчанию
program z1;
var A:array[1..100] of integer;
i,n:byte;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
for i:=1 to n do
if A[i]=0
then write(i:3);
end.
 
Ответить с цитированием

  #8  
Старый 26.11.2009, 00:20
Hunter123
Новичок
Регистрация: 03.11.2009
Сообщений: 25
Провел на форуме:
136837

Репутация: 0
По умолчанию
Цитата:
Сообщение от 0ldbi4  
Program array;
var i:integer; nulls:string;
begin
for:=1 to 10 do begin
writeln ('xc' + i + 'y') Readln(x[i]);
if x[i]=0 then nulls:=nulls+' 'intostr(x[i]);
writeln('Nell elevents:');
writeln(nulls);
end;
end.

спасибо.
у меня штото

"for:=1" to 10 do begin - здесь ерор в чем может бить проблема ?


да и на следуйщую неделю ну нужна будет исчо помощ в програмках таких простеньких
я попожже виложу задание. И за робучую прогу будет вознаграждение. в розмере 0.50 вмз (или простенький дедик). Мало но всеже....

пс. извините меня за Русский.
Последний раз редактировалось Hunter123; 26.11.2009 в 00:25..
 
Ответить с цитированием

  #9  
Старый 26.11.2009, 00:27
h(f)ucker
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808

Репутация: 185
По умолчанию
Элементу какому нибудь присвой его
Например так
for z:=1 to 10 do begin

И в var не забуть z описать
 
Ответить с цитированием

  #10  
Старый 26.11.2009, 00:27
banana
Участник форума
Регистрация: 04.03.2009
Сообщений: 298
Провел на форуме:
1241030

Репутация: 229
Отправить сообщение для banana с помощью ICQ
По умолчанию
Цитата:
Сообщение от Hunter123  
спасибо.
у меня штото

"for:=1" to 10 do begin - здесь ерор в чем может бить проблема ?


да и на следуйщую неделю ну нужна будет исчо помощ в програмках таких простеньких
я попожже виложу задание. И за робучую прогу будет вознаграждение. в розмере 0.50 вмз (или простенький дедик). Мало но всеже....

пс. извините меня за Русский.
for i:=1

Так трудно почитать строение циклов? =/ . А насчет 0.5 WMZ - забей
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal...Need help.... eworld.uz С/С++, C#, Delphi, .NET, Asm 2 13.11.2009 20:44
Задачи. Turbo Pascal Richard С/С++, C#, Delphi, .NET, Asm 13 18.05.2009 21:13
turbo pascal sadfeel С/С++, C#, Delphi, .NET, Asm 0 28.02.2009 19:37
TURBO PASCAL 7 1.0 Daemond С/С++, C#, Delphi, .NET, Asm 1 03.12.2008 22:32



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ