Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        ЗАДАЧИ ПО ПАСКАЛЮ,ПОМОГИТЕ!!!!
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

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
VF



Administrator

Все вопросы по Pascal теперь только в теме:
http://exir.ru/cgi-bin/ikonboard/topic.cgi?forum=3&topic=8

Всего сообщений: 3109 | Присоединился: май 2002 | Отправлено: 27 дек. 2005 14:57 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com