Вторник, 07.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Просто Ж...
baradaДата: Четверг, 15.11.2007, 01:46 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 5
Репутация: 1
Замечания: 0%
Статус: Offline
Помогите решить следующие задачи:
1. Имеется четыре произвольных числа a,b,c,d, которые вводятся с клавиатуры. программа должна давать ответ на вопрос :"правда ли что: Первое число самое большое, а последнее самое маленькое?". Ответ выводится в виде текста.
2. Составить программу вычисления суммы/произведения N элементов бесконечного числового ряда. Y=3-9+27-81+243-...
3. Дана функция y=A-(X-C)в квадрате/B+1
Программа должна вычислить значения этой функции для последовательных значений X=C, C+(B+1),C+2(B+1),C+3(B+1)и т.д. до тех пор, пока сумма Y+A+5 не станет отрицательной. Здесь A,B,C – цифры студенческого шифра.
Указания. Условие задачи надо предварительно преобразовать, подставив в него значения цифр шифра A,B,C. Например, A=7, B=8, C=2. Тогда программа должна производить вычисления функции y=7-(X-2)в квадрате/9 до тех пор, пока Y+12 не станет отрицательным для Х=2,11,20,29 и т.д. Как видим, здесь шаг изменения Х равен 9.
4. Имеется массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу. Найти номер последнего положительного элемента в массиве.
Например, если А={2,4,-3,0,2,5,-2}, результат: 6 (последнее число 5).
 
SeqularДата: Четверг, 15.11.2007, 06:53 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
barada,
Code
Program Task1;
Uses CRT;
Var a,b,c,d: Integer;
Begin
Write('Введите числа a,b,c,d: '); Readln(a,b,c,d);
If (a > b) and (a > c) and (d < c) and (d < b) then  
Writeln('A - самое большое, а D - самое маленькое')
else Writeln('A - не самое большое или D - не самое маленькое');
Readkey;
End.

По-моему можно так сделать. Сравнивать A можно только с B, C, потому что D мы будем с ними же сравнивать и можно 2 условия просто убрать.

Code
Program Task2;
Uses CRT;
Var i, y, s: Integer;
     n: Byte;
Begin
ClrScr;
Write('Сколько элементов ряда суммировать/перемножать: '); Readln(n);
s := 3; {Первый элемент}
Write('Y = 3');
For i := 2 to n do
     Begin
     s := (-1) * s * 3;
     y := s + y;
     Write(' + ',s,' ');
     End;
Writeln(#13#10,'Сумма ряда равна: ',y,#13#10);
s := 3; {Первый элемент}
Write('Y = 3');
For i := 2 to n do
     Begin
     s := (-1) * s * 3;
     y := s * y;
     Write(' * ',s,' ');
     End;
Writeln(#13#10,'Произведение ряда равно: ',y);
ReadKey;
End.

А это вторая задачка. Остальные попозже решу smile


Поддерживаю также проект сообщество молодых сисадминов
 
PavelДата: Четверг, 15.11.2007, 11:24 | Сообщение # 3
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
А вот четвертая задача. Очень простой алгоритм. biggrin biggrin biggrin

Code
program massiv;
uses crt;
const
     n = 10;
var
     A: array[1..n] of integer;
     i: byte;
begin
clrscr;
randomize;
writeln('Massiv:');
for i := 1 to n do  {zapolnyaem massiv}
     begin
     a[i] := random(10) - 5;
     write(a[i]:4);
     end;
writeln;

for i := n downto 1 do
     if a[i] > 0 then break;

writeln('Poslednii polozhit. element: ', A[i], ' s nomerom: ', i);
readkey;
end.
 
PavelДата: Четверг, 15.11.2007, 12:27 | Сообщение # 4
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
Quote (barada)
3. Дана функция y=A-(X-C)в квадрате/B+1
Программа должна вычислить значения этой функции для последовательных значений X=C, C+(B+1),C+2(B+1),C+3(B+1)и т.д. до тех пор, пока сумма Y+A+5 не станет отрицательной. Здесь A,B,C – цифры студенческого шифра.
Указания. Условие задачи надо предварительно преобразовать, подставив в него значения цифр шифра A,B,C. Например, A=7, B=8, C=2. Тогда программа должна производить вычисления функции y=7-(X-2)в квадрате/9 до тех пор, пока Y+12 не станет отрицательным для Х=2,11,20,29 и т.д. Как видим, здесь шаг изменения Х равен 9.

Че та я понять не могу. Условия какие-то забабенные. Нельзя ли это человеческим языком? Объясните попроще условия!

 
PavelДата: Четверг, 15.11.2007, 12:51 | Сообщение # 5
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
Quote (barada)
Дана функция y=A-(X-C)в квадрате/B+1


Напиши правильно в формате записи математических выражений в TP хотя бы!
 
baradaДата: Понедельник, 26.11.2007, 05:55 | Сообщение # 6
Новичок
Группа: Пользователи
Сообщений: 5
Репутация: 1
Замечания: 0%
Статус: Offline
Не знаю как ещё можно ето записать в другом виде, но как описана в тексте задача №3 так я её из задачника и переписал. Пожалуйста помогите с 3-ей и 4-ой задачей. Заранее признателен, ваш поклонник.
 
PavelДата: Понедельник, 26.11.2007, 09:40 | Сообщение # 7
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
http://pascal-for-all.ucoz.ru/forum/11-22-131-16-1195089892 - вот четвертая задача.
 
baradaДата: Четверг, 29.11.2007, 02:29 | Сообщение # 8
Новичок
Группа: Пользователи
Сообщений: 5
Репутация: 1
Замечания: 0%
Статус: Offline
Извеняюсь 4-ая есть вот с 3-ей проблемы. cry
 
SeqularДата: Четверг, 29.11.2007, 11:11 | Сообщение # 9
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Вот третья задача:
Code
Program Num3;
Uses CRT;
Const a = 7;
       b = 8;
       c = 2;

Var x: Integer;
     i: Byte;
{Функция}
Function y(a,x,c,b: Integer):Real;
Begin
y := a - ((x-c) * (x-c))/ b + 1; {Y = a - (x-c)^2 / b + 1}
End;

Begin
ClrScr;
Repeat
x := c + i * (b + 1);
Inc(i);
Writeln('Значение функции при: ');
Writeln('A = ',a);
Writeln('B = ',b);
Writeln('C = ',c);
Writeln('X = ',x);
Writeln(равно ',y(a,x,c,b):0:4);
ReadKey;
Until (y(a,x,c,b) < 0);
Writeln('Значение функции меньше 0, программа завершена');
Readkey;
End.


Поддерживаю также проект сообщество молодых сисадминов
 
baradaДата: Среда, 05.12.2007, 17:24 | Сообщение # 10
Новичок
Группа: Пользователи
Сообщений: 5
Репутация: 1
Замечания: 0%
Статус: Offline
Спасибо огромное!
 
SeqularДата: Среда, 05.12.2007, 20:27 | Сообщение # 11
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
barada, Большое пожалуйста ;)... Эм.. А реально вот так в благодарность для сайта кой-чаво сделать? wink м?

Поддерживаю также проект сообщество молодых сисадминов
 
baradaДата: Пятница, 21.12.2007, 02:46 | Сообщение # 12
Новичок
Группа: Пользователи
Сообщений: 5
Репутация: 1
Замечания: 0%
Статус: Offline
Смотря что? А эти задачки кроме первой не подскажете как решить в Excel?
 
SeqularДата: Пятница, 21.12.2007, 07:00 | Сообщение # 13
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Quote (barada)
Смотря что?

Кликнуть на ссылку раз в сутки. И так, с недельку примерно smile Занимает 20 секунд в день. минуту в неделю, следовательно. =))) несложно? А для сайта - рейтинг повышается и на нас не будут давить хостеры.

Quote (barada)
А эти задачки кроме первой не подскажете как решить в Excel?

Подскажем, тока после понедельника. У нас курсовая... в Delphi проект пишем. От кода в глазах уже точечки прыгают... Модули по 60 килобайт чистого текста =)) у-у-ух! Сдадим и поможем


Поддерживаю также проект сообщество молодых сисадминов
 
PavelДата: Пятница, 21.12.2007, 09:00 | Сообщение # 14
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
Да полюбому. У нас времени хватает, тоько на то чтобы мыло посмотреть и форум!
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;