Технический форум - Помогите решить задачи в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите решить задачи в Паскале

1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0
2)Составить программу вичисления сумми всех парних чисел от 1 до 50 (без масивов, через цикл "while:tehnari_ru_837:")

знаю что задачек легче нет но я в информатике и тем более в програмировании нечего почти не знаю

А что такое "парные числа"?

Четние числа

Цитата:

Сообщение от VLAD!@$@$%$% (Сообщение 919320)

Четние числа

Ну тогда-то что!

Цитата:

Сообщение от VLAD!@$@$%$% (Сообщение 919101)

1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0

Код:

Var

 A,B,X:real;

Begin

 Write('A= ');

 Readln(A);

 Write('B= ');

 Readln(B);

 Writeln('Result:');

 If (A=0) and (B=0) then Writeln('Any value')

 else

 If (A=0) and (B<>0) then Writeln('No solution')

 else Write ('X= ',B/A:0:5);

 Readln

End.

Цитата:

Сообщение от VLAD!@$@$%$% (Сообщение 919101)

2)Составить программу вичисления сумми всех парних чисел от 1 до 50

Код:

Var

 i:Byte;

 Sum:Word;

Begin

 Sum:=0;

 For i:=1 to 25 do

  Sum:=Sum+2*i;

 Writeln('Sum= ',Sum);

 Readln

End.

а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно

Цитата:

Сообщение от VLAD!@$@$%$% (Сообщение 919346)

а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно

А где Вы там массивы узрели? Ладно, через While, так через While:

Код:

Var

 i:Byte;

 Sum:Word;

Begin

 Sum:=0;

 i:=0;

 While i<50 do

  begin

   i:=i+2;

   Sum:=Sum+i;

  end;

 Writeln('Sum= ',Sum);

 Readln

End.

а можете еще написать что каждая строчка означает только в 2 программе

Цитата:

Сообщение от VLAD!@$@$%$% (Сообщение 919403)

а можете еще написать что каждая строчка означает только в 2 программе

Извольте:

Код:

Var {заголовок раздела объявления переменных}

 i:Byte; {счетчик цикла}     

 Sum:Word; {искомая сумма}

Begin {начало тела программы}

 Sum:=0; {задание исходного нулевого значения сумме}

 i:=0; {задание исходного нулевого значения счетчику}

 While i<50 do {объявление цикла; он прервется, когда значение счетчика станет равным 50}

  begin {начало цикла}

   i:=i+2; {увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50}

   Sum:=Sum+i; {к сумме прибавляются вышеуказанные значения счетчика}

  end; {конец цикла}

 Writeln('Sum= ',Sum); {вывод результата (значения суммы) на экран}

 Readln {приостановка работы программы, чтобы можно было полученный результат рассмотреть}

End. {конец тела программы}

а поч в строчках
i:Byte;
Sum:Word;
нета там типа real или integer а именно byte и word?