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
|
|
|
Форум
Решение задач на Pascal. Форум 3.
