Помогите решить следующие задачи: 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).
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.
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;
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.
Че та я понять не могу. Условия какие-то забабенные. Нельзя ли это человеческим языком? Объясните попроще условия!
Не знаю как ещё можно ето записать в другом виде, но как описана в тексте задача №3 так я её из задачника и переписал. Пожалуйста помогите с 3-ей и 4-ой задачей. Заранее признателен, ваш поклонник.
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, Большое пожалуйста ;)... Эм.. А реально вот так в благодарность для сайта кой-чаво сделать? м? Поддерживаю также проект сообщество молодых сисадминов
Кликнуть на ссылку раз в сутки. И так, с недельку примерно Занимает 20 секунд в день. минуту в неделю, следовательно. =))) несложно? А для сайта - рейтинг повышается и на нас не будут давить хостеры.
Quote (barada)
А эти задачки кроме первой не подскажете как решить в Excel?
Подскажем, тока после понедельника. У нас курсовая... в Delphi проект пишем. От кода в глазах уже точечки прыгают... Модули по 60 килобайт чистого текста =)) у-у-ух! Сдадим и поможем Поддерживаю также проект сообщество молодых сисадминов
м?