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  +


var
i: integer;
begin
for i:=1 to 255 do writeln(chr(i));
- вторая....
(по первой показывай что делала,все за тебя сделать? dry.gif )

const n=8;
var
i,s: integer;
a: array [1..n] of integer;
begin
s:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if not odd(i) then begin s:=s+a[i];
write(i,' '); end;
writeln(s);
- третья
Цитата

4 Написать процедуру обнуления массива.

Может будем точнее и скажем какого именно массива?


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





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

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


Цитата(Артемий @ 16.05.2007 21:57) *

var
i: integer;
begin
for i:=1 to 255 do writeln(chr(i));
- вторая....
(по первой показывай что делала,все за тебя сделать? dry.gif )

const n=8;
var
i,s: integer;
a: array [1..n] of integer;
begin
s:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if not odd(i) then begin s:=s+a[i];
write(i,' '); end;
writeln(s);
- третья

Может будем точнее и скажем какого именно массива?

wub.gif ну не шарю я в паскале,дуреха-я, ребятки добренькие ну помогите,напишите все по порядку, буду очень благодарна) rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


Цитата
ну не шарю я в паскале,дуреха-я, ребятки добренькие ну помогите,напишите все по порядку, буду очень благодарна)

пррикол!Все по порядку это как итересно?или каждое решение в отдельном сообщении надо было! blink.gif я ясно написал - по второй и по третьей задачи решения!


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





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

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


Цитата(Артемий @ 16.05.2007 22:08) *

пррикол!Все по порядку это как итересно?или каждое решение в отдельном сообщении надо было! blink.gif я ясно написал - по второй и по третьей задачи решения!

ну не стебись rolleyes.gif , просто я не знаю...так и переписать в паскаль? ,четвертое все перепечатала задание....и первое.... rolleyes.gif rolleyes.gif wub.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


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

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

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


Так и переписать. smile.gif только не забудь таки две страшные строчки - program в начале и end. в конце - их я не писал. cool.gif


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





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

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


Цитата(Артемий @ 16.05.2007 22:18) *

Так и переписать. smile.gif только не забудь таки две страшные строчки - program в начале и end. в конце - их я не писал. cool.gif

спасибо огромное,тьмафф, ты мне очень помог give_rose.gif ....а первую и последнюю.... rolleyes.gif wub.gif ....пожалуйста...... wub.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


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

Группа: Пользователи
Сообщений: 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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





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

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


Цитата(Артемий @ 16.05.2007 22:28) *

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

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


думаю одномерный потому что третий заголовок задачи наверна и к четвертой относиться..... smile.gif

Добавлено через 4 мин.
Цитата(Артемий @ 16.05.2007 22:28) *

По последней задаче - понимаешь есть два вида массивов: одномерные и двумерные! 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;


я тя обажаю!!!) good.gif и всего лишь первая осталась) rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





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

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


А, может ,вы, мне тоже поможите ? курсовая сгорaeт!!!!!!!
в автомагозине продают М видов авто по А[i,j] y.e. за авто. За каждый i-тый месяц продано B [i,j] авто j-tого типа. Продажа осужествляется N дней .
Определить :
-матрицу -на какую сумму продано авто каждого типа за месяц
-средний доход магазина за месяц
-средний доход магазина по каждому типу авто за месяц
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11





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

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


Цитата(Артемий @ 16.05.2007 22:28) *

По последней задаче - понимаешь есть два вида массивов: одномерные и двумерные! 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;


ну помоги всего одна осталась( mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


Цитата
По последней задаче - понимаешь есть два вида массивов: одномерные и двумерные!

Всего-то? smile.gif
а трехмерные, четырехмерные, пятимерные...?
а еще динамические и статические

 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...


Исправляй, иначе тема будет закрыта.

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Пионер
**

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

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


Последняя, тоесть первая
Var
A, B, C : Integer;
Begin
Write('Please, enter length A -> ');
ReadLn(A);
Write('Please, enter length B -> ');
ReadLn(B);
Write('Please, enter length C -> ');
ReadLn©;
If (A + B > C) And (A + C > B) And (B + C > A) Then
Begin
If (A = B) And (B = C) Then Write('Ravnostonniy');
If ((A = B) And (B <> C)) Or ((C = A) And (C <> B)) Or ((C = B) And (A <> B)) Then Write('Ravnobedrenniy');
If (A*A = B*B + C*C) Or (B*B = A*A + C*C) Or (C*C = A*A + B*B) Then Write('Prjamoygolniy');
End
Else Write('Treygolnika net');
ReadLn;
End.

Если есть еще какието виды треугольников говорите добавлю.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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