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

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

ane4ka semenovi4


Новичок

милые мои!!!!!помогите мне пожалуйста решить задачу по паскалю!!!!очень надо....совсем не понимаю как решить(((вот задача:ввести с клавиатуры произвольную последовательность целых чисел(количество вводимых чисел должно задаваться в ходе диалога с программой), используя для ввода цикл с постусловием(repeat-until). вычислить произведение нечетных чисел и сумму четных чисел. Полученные значения вывести на экран. Нечетные числа записать в файл с именем ODD_NUM.DAT, вывести содержимое файла.  

Всего сообщений: 1 | Присоединился: апрель 2010 | Отправлено: 24 апр. 2010 20:37 | IP
TOMMY1992



Новичок

помогите мне пожалуйста решить задачи па Pascal:
59(е). Даны действительные числа x, y. Определить, принадлежит ли
точка с координатами следующей области: треугольник с вершинами (-
2,  0),  (0,  1), (0, -1) в обьединении с полукругом  x*x+y*y=1  (
x>=0).
 67(г).  Дано  натуральное число n (n<=100). Найти  первую  цифру

пришлите сюда tommy12313@rambler.ru
числа n.




(Сообщение отредактировал TOMMY1992 29 апр. 2010 9:53)

Всего сообщений: 2 | Присоединился: апрель 2010 | Отправлено: 26 апр. 2010 10:46 | IP
JinZh


Новичок

Дан прямоугольный массив , состоящий из различных элементов. В каждой строке выбирается минимальный элемент, а среди них максимальный элемент. Напечатать номер строки и столбца , в которых расположено полученное число.

За решение данной задачи предлогаю 4$ + 1$ за пояснение .... задачу присылать на почтовый ящик jin.zh@yandex.ru с вашим эл. кошельком... Кто сможет сделать за Спасибо буду очень благодарен... задача будет оццениваца в течении суток...

И прошу выслать скрин выплаты для дальнейшей работы с пользователями... Кому интересно есть еще масса задач....

Всего сообщений: 2 | Присоединился: апрель 2010 | Отправлено: 27 апр. 2010 15:39 | IP
Korvet



Новичок


Цитата: JinZh написал 27 апр. 2010 15:39
Дан прямоугольный массив , состоящий из различных элементов. В каждой строке выбирается минимальный элемент, а среди них максимальный элемент. Напечатать номер строки и столбца , в которых расположено полученное число.



Program ZinZh;
var
a:array[1..100,1..100] of real;
mina:array[1..100] of Real;
maxa:Real;
jmin:array[1..100] of byte;
imax,jmax,m,n,i,j:byte;
begin
Write('Vvedite kolichestvo strok   ');
Readln(m);
Write('Vvedite kolichestvo stolbcov   ');
Readln(n);
for i:=1 to m do
 for j:=1 to n do
  begin
   Write('a[',i,',',j,']= ');
   readln(a[i,j]);
  end;

for i:=1 to m do
 begin
  mina[ i ]:=a[i,1];
  jmin[ i ]:=1;
  for j:=2 to n do
   if a[i,j]<mina[ i ] then
    begin
     mina[ i ]:=a[i,j];
     jmin[ i ]:=j;
    end;
 end;

imax:=1;
jmax:=jmin[1];
maxa:=mina[1];
for i:=2 to m do
 if mina[ i ]>maxa then
  begin
   maxa:=mina[ i ];
   imax:=i;
   jmax:=jmin[ i ];
  end;

Writeln('nomer stroki  ',imax);
Writeln('nomer stolbca  ',jmax);
Readln;
end.

P.S. Извини, что ник с ошибкой в название программы вписал!

(Сообщение отредактировал Korvet 13 мая 2010 0:15)

Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 13 мая 2010 0:13 | IP
kubancool



Новичок

Четыре задачки:
4.1  Задание по оператору  if
1. Даны координаты двух точек. Определить, какую из
осей пересекает отрезок, соединяющий две этих точки.
2. Найти квадратный корень из числа А (вводится с
клавиатуры). Проверить корректность ввода числа.

4.2  Задание по оператору варианта сase
1 Написать программу, которая ждет ввода буквы и, в зависимости от
введенного   значения,   сообщает,   является   ли   буква заглавной   или строчной.

5 Задание
 Вычислить сумму и произведение полученных значений  функции.
Составить три варианта программы – с операторами repeat, while, for.
Z = + |(ax2-c8+50)|   1<=x<=5; ∆x=0,2; a=2,22;
b=3; c=-14,2
р.s. вверху написано z=|+(ax во второй степени - с в восьмой степени+5 в нулевой степени.
Сестра не может сделать, помогите пожалуйста девушке.


Всего сообщений: 1 | Присоединился: май 2010 | Отправлено: 13 мая 2010 11:07 | IP
G1N


Новичок

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

Всего сообщений: 1 | Присоединился: май 2010 | Отправлено: 13 мая 2010 16:31 | IP
saneknext2


Новичок

Найти номер первой из строк, содержащих хотя бы один положительный элемент (оформить в виде функции). Помогите!!

Всего сообщений: 6 | Присоединился: май 2010 | Отправлено: 13 мая 2010 21:49 | IP
Anutoschka


Новичок

Здравствуйте! Помогите, пожалуйста!
А. Создайте программу, которая запрашивает данные и сохраняет их в файле.
Б. Создайте программу, которая считывает информацию из файла и выводит на экран записи, удовлетворяющие заданному условию.
Данные. 10 спортсменов-пятиборцев, для которых известны: фамилия, баллы, набран-ные спортсменом в каждом из пяти видов состязаний.
Условие. Вывести чемпиона.


Всего сообщений: 2 | Присоединился: май 2010 | Отправлено: 16 мая 2010 9:05 | IP
TimONoff


Новичок

Привет всем! Помогите пожалуйста!
надо составить программу, которая вычисляет сумму ряда для первых 10 членов
n+1/2n+1/4n+1/8n/.....
n-1/2n+1/4n-1/8n+1/16n....

Всего сообщений: 1 | Присоединился: май 2010 | Отправлено: 16 мая 2010 17:22 | IP
shura



Новичок

Утверждается что функция y=f(x) периодическая с периодом Т.проверить это численно вычислив эту функцию с постоянным шагом на отрезке[0;5Т].учесть погрешность вычислений и возможные точки разрыва функции.проверить на примере функций:
Y=sin2 x, y=tgx(t=пи);y=1/x*sinx(t=2пи)
не знаю как реализовать программу в pascal.

Всего сообщений: 3 | Присоединился: май 2010 | Отправлено: 20 мая 2010 22:09 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

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