IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Ребята помогите написать задачки!, пожаааалуйста)
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


1 Условные операторы.
Составьте программу, которая определяет вид треугольника по длинам его сторон(если данные длины позволяют построить треуголник). Значения длин сторон ввести по запросу.

2 Циклы
Операторы цикла с параметром
Написать программу для выводуна экран всех символов таблицы ASCII (256 символов).

3 Одномерные массивы
Найти сумму всех четных элементов массива, стоящих на четных местах, т.е.имеющих четные номера. Значения элементов и суммы вывести на экран.

4 Написать процедуру обнуления массива.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


По последней задаче - понимаешь есть два вида массивов: одномерные и двумерные! smile.gif Тебе какой?

Добавлено через 1 мин.
Если по одномерным - то так
const n=8;
type
TMassd = array [1..n] of integer;
procedure clean(a: TMassd);
var
i: integer;
begin
for i:=1 to n do a[i]:=0;
end;


Сообщение отредактировано: Артемий -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
*svetochka*   Ребята помогите написать задачки!   17.05.2007 0:44
Артемий   var i: integer; begin for i:=1 to 255 do writeln(c…   17.05.2007 0:57
*svetochka*   var i: integer; begin for i:=1 to 255 do writeln(…   17.05.2007 1:05
Артемий   пррикол!Все по порядку это как итересно?или …   17.05.2007 1:08
*svetochka*   пррикол!Все по порядку это как итересно?или к…   17.05.2007 1:13
Артемий   Так и переписать. :) только не забудь таки две стр…   17.05.2007 1:18
*svetochka*   Так и переписать. :) только не забудь таки две ст…   17.05.2007 1:26
Артемий   По последней задаче - понимаешь есть два вида масс…   17.05.2007 1:28
*svetochka*   По последней задаче - понимаешь есть два вида мас…   17.05.2007 1:32
*svetochka*   По последней задаче - понимаешь есть два вида мас…   17.05.2007 2:55
zvizdylj   А, может ,вы, мне тоже поможите ? курсовая сгорaeт…   17.05.2007 1:48
мисс_граффити   Всего-то? :) а трехмерные, четырехмерные, пятиме…   17.05.2007 3:31
Sto   Последняя, тоесть первая Var A, B, C : Integer;…   17.05.2007 3:32


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 14.04.2021 19:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name