Версия для печати темы

Автор: *svetochka* 17.05.2007 0:44

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

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

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

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

Автор: Артемий 17.05.2007 0:57

var
i: integer;
begin
for i:=1 to 255 do writeln(chr(i));

- вторая....
(по первой показывай что делала,все за тебя сделать? )

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);

- третья

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

Автор: *svetochka* 17.05.2007 1:05

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

Автор: Артемий 17.05.2007 1:08

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

Автор: *svetochka* 17.05.2007 1:13

ну не стебись , просто я не знаю...так и переписать в паскаль? ,четвертое все перепечатала задание....и первое....

Автор: Артемий 17.05.2007 1:18

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

Автор: *svetochka* 17.05.2007 1:26

спасибо огромное,тьмафф, ты мне очень помог ....а первую и последнюю.... ....пожалуйста......

Автор: Артемий 17.05.2007 1:28

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

Добавлено через 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;

Автор: *svetochka* 17.05.2007 1:32

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

Добавлено через 4 мин.

я тя обажаю!!!) и всего лишь первая осталась)

Автор: zvizdylj 17.05.2007 1:48

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

Автор: *svetochka* 17.05.2007 2:55

ну помоги всего одна осталась(

Автор: мисс_граффити 17.05.2007 3:31

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

!

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

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

Автор: Sto 17.05.2007 3:32

Последняя, тоесть первая

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.

Если есть еще какието виды треугольников говорите добавлю.