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

Страница 2 из 3

Показывать 40 сообщений этой темы на одной странице

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

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

- - Три задачи на Паскале (http://www.tehnari.ru/f41/t32494/)

GrandLeon

27.01.2010 17:39

Сори обделил вниманием ^.^
DDS и вам большое спасибо!!! ))))

DDS	27.01.2010 17:42

Long Cat
Просмотрел программу - вродк работает правильно...
Сдаюсь, не знаю где ошибка...

Long Cat

27.01.2010 17:46

Переменная k не инициализируется после запуска программы. Это означает, что есть ненулевая вероятность того, что в ней сразу после запуска программы будет не 0, а неизвестно что.
Так что нужно добавить строчку k:=1 и убрать добавление 1 после подсчета.

DDS	27.01.2010 17:49

Long Cat
Спасибо за подсказку!

GrandLeon

27.01.2010 18:15

Спасибо всем большое!!! =)

Если вам не сложно, могли бы еще пару заданий сделать. Я сделал но мало ли, может у меня есть ошибки, хотелось бы для сравнения еще примеров... пожалуйста ))

GrandLeon

27.01.2010 18:18

Линейные
Вычислите периметр и площадь прямоугольного треугольника по длинам двух его катетов.

Цикл
Программа выводит квадраты всех натуральных чисел от 1 до заданного N

AlexZir

27.01.2010 18:28

Код:

program triang;

var a, b, c, p, s: real;

begin

writeln('Input a >');

readln(a);

writeln('Input b >');

readln(b);

c:=sqrt(sqr(a)+sqr(b));

p:=a+b+c;

s:=(a*b)/2;

writeln('S=',s);

writeln('P=',p);

readln

end.

AlexZir

27.01.2010 18:28

Код:

program kvadr_nat;

var i, n: integer;

begin

write('Input N >');

readln(n);

for i:=1 to n do

writeln(i,'^2=',sqr(i));

readln

end.

GrandLeon

27.01.2010 18:49

AlexZir клёва )) спасибо...

Всем большое спасибо! Выручили! ^.^

GrandLeon

27.01.2010 19:06

Что то программа №2 не работает =(
долго мучился так и не понял почемуСсылка удалена
подскажите в чем проблема ((

Часовой пояс GMT +4, время: 23:26.

Страница 2 из 3

Показывать 40 сообщений этой темы на одной странице