FILOSOF
Удален
|
   
НАрод ПОМОгите решить задачи по паскалю, вчера сидел четыре часа, 2 решил, осталось еще 2.
1. Вычислить сумму тех чисел из заданного отрезка [a;b] (a и b - натуральные ), в запись которых входит цифра k.
2. Натуральные числа а,б,с называются числами Пифагора, если выполняется условие а*а+b*b=с*с.
Напечатать все числа Пифагора меньше N.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 8 янв. 2005 1:51 | IP
|
|
xryundel
Удален
|
2-я задача:
program pif(input,output);
var n:integer;
procedure write_pif(n:integer);
var i,j,k:integer;
begin
for i:=1 to n-2 do
for j:=i to n-1 do
for k:=j to n do begin
if sqr(i)+sqr(j)=sqr(k) then begin
write(i,' ',j,' ',k,' ');
writeln;
end;
end;
end;
begin
read(n);
write_pif(n);
readln;
readln;
end.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 8 янв. 2005 19:52 | IP
|
|
xryundel
Удален
|
1-я задача:
program p1(input,output);
var a,b,k:integer;
function summ(a,b,k:integer):integer;
var i:integer; s:integer;
function in_k(c,k:integer):boolean;
label 99;
var p:integer;
begin
while c<>0 do begin
p:=c;
c:=c mod 10;
if c=k then begin in_k:=true; goto 99 end
else c:=p div 10;
end;
in_k:=false;
99: end;
begin
s:=0;
for i:=a to b do
if in_k(i,k) then s:=s+i;
summ:=s;
end;
begin write('interval>');
readln(a,b);
write('k>');
readln(k);
write(summ(a,b,k));
readln;
readln;
end.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 8 янв. 2005 20:11 | IP
|
|
www
Новичок
|
Люди добрые помогите мне написать программу на Turbo Pascal
Мне надо её здать до понедельника (31.01.2005 г.)
Вычислить значение выражения:
x-(x^3/3!)+(x^5/5!)-(x^7/7!)+(x^9/9!)-(x^11/11!)+(x^13/13!)
{x^3 это Х в третей степени,x^5 это Х в пятой степени, и т.д.}
{3!,5!,7!,9!,11!,13! это факториалы}. Задачу нужно решить с помощью любого цикла
кто решит скинте мне на мыло rn3qdm@box.vsi.ru
Заранее благодарен...
|
Всего сообщений: 1 | Присоединился: май 2013 | Отправлено: 25 янв. 2005 22:00 | IP
|
|
Guest
Новичок
|
Приветик! Всем очент прошу вашей помощи! Сама финансистка, а задачу дали по Паскалю написать, а я внём не шарю!Срок ограничен! Очень надеюсь на взаимопонимание!
Задача:Сформировать файл f, компонентами которого являются натуральные числа. Количество чисел кратно 4. Первые 2 числа из каждой четвёрки задают положение на экране левого верхнего угла прямоугольника, следующие 2числа-положение правого его нижнего угла. Построить прямоугольники, попадающие в верхнюю половину экрана.
e-mail:semmi_ine#rambler.ru
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 26 мая 2005 21:43 | IP
|
|
Guest
Новичок
|
Люди добрые помогите, пожалуйста! Две задачи на паскале написать:
1. В заданном тексте встречаются строки типа:
фамилия – Иванов имя – Иван отчество – Иванович.
Выбрать их и распечатать на каждой строке в виде:
Иванов Иван Иванович.
2. В заданном тексте, содержащем наряду с другой информацией целые числа,
определить самое большое и самое маленькое целое число.
Заранее большое спасибо!
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 9 июня 2005 21:06 | IP
|
|
Guest
Новичок
|
Здраствуйте.
Ребят учусь на эклномиста, а задачами по Паскалю задолбали уже.
Помогите решлить. Очень срочно!!!
Чуть ли не к сегодняшнему дню.
Задача: Посторить два треугольника. Причем задавая вручную координаты каждой точки (x,y) у каждого треугольника.
Потом у каждого треугольника вычислить площадь. По теореме косинусовю И сравнить эти две площади. Если совпадают-чтобы ответ писался ДА, если нет совпадают то НЕТ.
НУ и площади надо чтобы также указывались в числах. У какого треугольника какая.
ПЛИЗ ВЫРУЧАЙТЕ!!!
Спасибо заранее
Ещё просьба пришлите ответ на def_c@pisem.net
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 1 июля 2005 9:37 | IP
|
|
Diamond666
Удален
|
помогите пожалуйста !!!
Дана целочисленная матрица: Определить :
1. Сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент (оформить в виде функции)
2. Номера строк т столбцов все седловых точек матрицы(в виде процедуры)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 27 дек. 2005 14:19 | IP
|
|
|
|
|
Форум
ЗАДАЧИ ПО ПАСКАЛЮ,ПОМОГИТЕ!!!!
