Вычислить значение выражения

@DreMeR1 · Регистрация: 24.05.2015

Студворк — интернет-сервис помощи студентам

1) Составить схему алгоритма и программу для вычисления значения x: x=(ab+a-3)\div 2a при а>0 и x=(b+a+3)/(2+a) при a<0
2)Составить схему алгоритма и программу для вычисления значения z: z=(kn+k^2-3k)/5 при изменении переменной k от k начального до K - конечного с шагом h=1.7
3)Составить схему алгоритма и программу определения квадрата отрицательных элементов массива K[N]
4)Составить схему алгоритма и программу записи подряд положительных элементов массива Y[N] в массив B[K], а отрицательных - в массив C[L]. Подсчитать количество элементов в каждом массиве.

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

Каждому человек уделивший внимание в этой теме получает + к его положительной жизненной карме и благодарность от меня

Выручайте ребят.Пожалуйста.

P.S. Спасибо за внимание

@JokeR.BY · 24.05.2015, 21:59

одно задание - одна тема. разделите самостоятельно, пока модеры по шапке не настучали.

@artem2302 · 24.05.2015, 22:00

Например, задача 3.

Pascal
1
2
3
4
5
6
7
8
9
10
const n=10;
var k: array[1..n] of integer;
    i: byte;
begin
for i := 1 to n do readln(k[i]);
writeln('-----------------');
for i := 1 to n do
  if k[i]<0 then writeln(sqr(k[i]));
readln
end.

. А вообще, задачи элементарнейшие, стоит решать как минимум для общего развития. А на этом форуме бесплатно помогают только тем, кто хоть что-то пытается делать сам

@DreMeR1 · 24.05.2015, 22:08 **[ТС]**

JokeR.BY,
А как их разделить?

Добавлено через 1 минуту
artem2302,
Для общего развития я занимаюсь математикой.Информатика вообще не интересна,конечно это плохо так отзываться,но ни когда не тянуло к ней. Большое спасибо за 3 задание,но от куда вообще та же 10 взялась?

@artem2302 · 24.05.2015, 22:14

DreMeR1, длину массива можно указать динамически, но это изучается куда позже. В данном случае массив объявляется на 10 элементов, в случае необходимости можно изменить его размер

Добавлено через 1 минуту

Не по теме:

Сообщение от DreMeR1

занимаюсь математикой.Информатика вообще не интересна

а информатика -- это не что иное, как прикладная математика

@DreMeR1 · 24.05.2015, 22:18 **[ТС]**

artem2302, А просто я не понял что за длина массива ведь в 3 задание определения квадрата отрицательных элементов массива,но вам виднее.Большое спасибо

@artem2302 · 24.05.2015, 22:21

DreMeR1, длина массива - это всего-навсего количество элементов в нем. Выражаясь математическим языком, одномерный массив на 10 элементов - это вектор (кортеж) размерностью в 10

@DreMeR1 · 24.05.2015, 22:23 **[ТС]**

artem2302,
Я так и понял

Но не стоит меня считать слишком глупым.Я просто ноль в информатике.

@JokeR.BY · 24.05.2015, 22:56

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
    a, b: Single;
begin
    Write('a='); ReadLn(a);
    Write('b='); ReadLn(b);
    Write('x=');
    if (a >= 0)
    then
        WriteLn(Frac((a * b + a - 3) / 2 / a):0:0)
    else
        WriteLn(((b + a + 3) / (2 + a)):0:3);
end.

2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
    h = 1.7;
    eps = 0.0001;
    line = '-----------------------';
var
    k, kB, n: Single;
begin
    Write('n='); ReadLn(n);
    Write('a='); ReadLn(k);
    repeat
        Write('b='); ReadLn(kB);
    until (kB - k >= eps);
    WriteLn(line);
    WriteLn('|   k    |     z      |');
    WriteLn(line);
    while (kB - k >= eps) do
    begin
        WriteLn('| ',k:6:1, ' | ', (k * (n + k - 3) / 5):10:3, ' |');
        k := k + h;
    end;
    WriteLn(line);
end.

Сообщение от DreMeR1

определения квадрата отрицательных элементов

суммы квадратов или квадрат суммы или что вообще?
4.

Pascal
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
var
    vect, vectPos, vectNeg: Array[Byte] Of ShortInt;
    i, n, nP, nN: Byte;
begin
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    nP := 0; nN := 0;
    Randomize; Write('Y:');
    for i := 0 to n - 1 do
    begin
        vect[i] := Random(101) - 50;
        Write(vect[i]:4);
        if (vect[i] > 0)
        then
        begin
            vectPos[nP] := vect[i];
            Inc(nP);
        end
        else
            if (vect[i] < 0)
            then
            begin
                vectNeg[nN] := vect[i];
                Inc(nN);
            end;
    end;
    WriteLn; Write('B:');
    for i := 0 to nP - 1 do
        Write(vectPos[i]:4);
    WriteLn; Write('C:');
    for i := 0 to nN - 1 do
        Write(vectNeg[i]:4);
    WriteLn; WriteLn('K=', nP); WriteLn('L=', nN);
end.

@DreMeR1 · 24.05.2015, 23:56 **[ТС]**

JokeR.BY, УхХ. Ты и не представляешь,как же ты мне поднял сейчас настроение!)
Большущие тебе человеческое спасибо

@Cyborg Drone · 25.05.2015, 07:14

Не по теме:

DreMeR1, рекомендую Вам ознакомиться с правилами форума (или наверху любой страницы киберфорума). Проще общаться на форуме станет. По шапке начну стучать, если в плане нарушений форума случитесь быть злобным и упёртым рецидивистом.

И для общего развития.

Чего Вы без программирования собираетесь делать в математике, если в ней чуть ли не в любом разделе применяется программирование? Например, в вычислительной математике или в теории чисел. Ну и, насчёт информатики. Эта наука - не совсем то, я бы сказал, совсем не то, чему учат в школе на уроках информатики. Вот, почитайте ту же Википедию: Информатика. Только повнимательнее и до конца статьи.

@DreMeR1 · 25.05.2015, 11:17 **[ТС]**

Не по теме:

Cyborg Drone,
Что бы изучать информатику самому в свободное время,так сказать для саморазвития-информатика мне не очень интересна,а вот за то в универе такие задания задают,но и в это же время не преподают, если бы специалисты нормально преподносили знания, то может что-либо у меня и вышло бы.
Спасибо вашему сайту,он мне действительно помог :)

@Cyborg Drone · 26.05.2015, 00:10

Не по теме:

DreMeR1, да не важно, как называется область знаний. Знания главное. Насчёт универа, согласен. Казус из-за попытки постепенного введения европейской модели обучения: техник, инженер, теперь - бакалвр, магистр, зачем - понятно, грубо - чтобы наши кадры имели возможность линять за границу. Ладно бы только разница в терминах, разница и в подходах обучения. Пример на пальцах: допустим, есть специальность: "забивальщик семигранных гвоздей". В американском колледже эту специальность преподадут так, что получится отличный специалист, который гарантированно и качественно забъёт любой семигранный гвоздь. Только вот неувязочка, пятигранный гвоздь этот специалист забить не сумеет, и даже и не будет пытаться: менталитет не тот, и вообще, гордыня: не этому его учили, и, мало того, это ниже его достоинства. Напротив, во времена СССР эта специальность называлась бы "забивальщик гвоздей с со специализацией "семигранные гвозди"". Семигранные гвозди наш специалист забивал бы не хухе, ну или немножко похуже, чем американский, однако, мог бы забить любой гвоздь, допустим, трёхгранный спиральной формы, потому что он тут же вспомнил бы, что такие гвозди забиваются, к примеру, с помощью специальной оправки и молотка со свободно поворачивающимся параболическим бойком. Я не считаю, что раньше было лучше или хуже, есть свои достоинства и там, и тут. Держитесь, сейчас приходится учиться самостоятельно, чтобы хоть чем-то отличаться от догматика. Меня пичкали знаниями выше ватерлинии, правда, когда я всё это учил, даже не представлял, зачем мне это может понадобиться. Это тяжело и неправильно. Правильнее знать, куда приложатся твои знания. Только опять же менталитет: у нас само сабой разумелось спросить у преподавателя неясность какую-нибудь. Сейчас это почему-то не принято, как-то: если спросил, значит, не знаешь. Не понимаю, что в этом зазорного, тем более, что и правда не знаешь, учишься же ещё. Ну и - не умеют преподносить знания, что же делать. Придётся, следовательно, без преподношения их брать. Чем больше учишь - тем больше усваиваешь побочно. Пытайтесь всегда понять основной принцип. Причём так, чтобы быть способным объяснить этот принцип на пальцах любому плохо обученному академику, и так, чтобы он его понял. Не надо излишней зубрёжки. Принцип - сильное оружие, позволяющее понять, что же ещё хочется узнать, а частности - их можно выяснить в любой момент. И неплохо принципы эти знать не только по своей специальности. Другими словами, иметь представление обо всём. Для примера, если Вы так уж обожаете математику, неплохо бы иметь представление обо всех разделах этой науки. И не только. К примеру, неплохо бы знать, как происходит принятие решения в человеческом мозге, а это уже больше биология, а не логика. Никак не смог выразить точно, что я хотел сказать. Может, поняли Вы меня, может, нет. Надеюсь, поняли.

Да ещё, и не мой это сайт, но ведь и правда на энциклопедию тянет, может, с небольшими купюрами. Часто пользуюсь. И не по теме рассуждения не забывайте писать в оффтопе (кнопочка OFF в шапке редактора).

Новые блоги и статьи Все статьи Все блоги /
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .

@DreMeR1 0 / 0 / 0 Регистрация: 24.05.2015 Сообщений: 8

	Вычислить значение выражения 24.05.2015, 21:49. Показов 1820. Ответов 12 Метки нет (Все метки) 1) Составить схему алгоритма и программу для вычисления значения x: x=(ab+a-3)\div 2a при а>0 и x=(b+a+3)/(2+a) при a<0 2)Составить схему алгоритма и программу для вычисления значения z: z=(kn+k^2-3k)/5 при изменении переменной k от k начального до K - конечного с шагом h=1.7 3)Составить схему алгоритма и программу определения квадрата отрицательных элементов массива K[N] 4)Составить схему алгоритма и программу записи подряд положительных элементов массива Y[N] в массив B[K], а отрицательных - в массив C[L]. Подсчитать количество элементов в каждом массиве. Ребят,я понимаю 4 задания очень много,но может одно не поймёте как решать,а другое поймёте.Я к примеру нереальный чайник в этих темах.Искал в гугле подобие,но не нашёл,а если хоть чем то отличается,то уже ни чего не понятно Каждому человек уделивший внимание в этой теме получает + к его положительной жизненной карме и благодарность от меня Выручайте ребят.Пожалуйста. P.S. Спасибо за внимание 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	24.05.2015, 21:59
	одно задание - одна тема. разделите самостоятельно, пока модеры по шапке не настучали. 0

@DreMeR1 0 / 0 / 0 Регистрация: 24.05.2015 Сообщений: 8
	24.05.2015, 22:08 [ТС]
	JokeR.BY, А как их разделить? Добавлено через 1 минуту artem2302, Для общего развития я занимаюсь математикой.Информатика вообще не интересна,конечно это плохо так отзываться,но ни когда не тянуло к ней. Большое спасибо за 3 задание,но от куда вообще та же 10 взялась? 0

@DreMeR1 0 / 0 / 0 Регистрация: 24.05.2015 Сообщений: 8
	24.05.2015, 22:18 [ТС]
	artem2302, А просто я не понял что за длина массива ведь в 3 задание определения квадрата отрицательных элементов массива,но вам виднее.Большое спасибо 0

@artem2302 39 / 26 / 18 Регистрация: 30.09.2014 Сообщений: 142
	24.05.2015, 22:21
	DreMeR1, длина массива - это всего-навсего количество элементов в нем. Выражаясь математическим языком, одномерный массив на 10 элементов - это вектор (кортеж) размерностью в 10 0

@DreMeR1 0 / 0 / 0 Регистрация: 24.05.2015 Сообщений: 8
	24.05.2015, 22:23 [ТС]
	artem2302, Я так и понял Но не стоит меня считать слишком глупым.Я просто ноль в информатике. 0

@DreMeR1 0 / 0 / 0 Регистрация: 24.05.2015 Сообщений: 8
	24.05.2015, 23:56 [ТС]
	JokeR.BY, УхХ. Ты и не представляешь,как же ты мне поднял сейчас настроение!) Большущие тебе человеческое спасибо 0

@Cyborg Drone
	25.05.2015, 07:14
	Не по теме: DreMeR1, рекомендую Вам ознакомиться с правилами форума (или наверху любой страницы киберфорума). Проще общаться на форуме станет. По шапке начну стучать, если в плане нарушений форума случитесь быть злобным и упёртым рецидивистом. И для общего развития. Чего Вы без программирования собираетесь делать в математике, если в ней чуть ли не в любом разделе применяется программирование? Например, в вычислительной математике или в теории чисел. Ну и, насчёт информатики. Эта наука - не совсем то, я бы сказал, совсем не то, чему учат в школе на уроках информатики. Вот, почитайте ту же Википедию: Информатика. Только повнимательнее и до конца статьи. 0

@DreMeR1
	25.05.2015, 11:17 [ТС]
	Не по теме: Cyborg Drone, Что бы изучать информатику самому в свободное время,так сказать для саморазвития-информатика мне не очень интересна,а вот за то в универе такие задания задают,но и в это же время не преподают, если бы специалисты нормально преподносили знания, то может что-либо у меня и вышло бы. Спасибо вашему сайту,он мне действительно помог :) 0

@Cyborg Drone
	26.05.2015, 00:10
	Не по теме: DreMeR1, да не важно, как называется область знаний. Знания главное. Насчёт универа, согласен. Казус из-за попытки постепенного введения европейской модели обучения: техник, инженер, теперь - бакалвр, магистр, зачем - понятно, грубо - чтобы наши кадры имели возможность линять за границу. Ладно бы только разница в терминах, разница и в подходах обучения. Пример на пальцах: допустим, есть специальность: "забивальщик семигранных гвоздей". В американском колледже эту специальность преподадут так, что получится отличный специалист, который гарантированно и качественно забъёт любой семигранный гвоздь. Только вот неувязочка, пятигранный гвоздь этот специалист забить не сумеет, и даже и не будет пытаться: менталитет не тот, и вообще, гордыня: не этому его учили, и, мало того, это ниже его достоинства. Напротив, во времена СССР эта специальность называлась бы "забивальщик гвоздей с со специализацией "семигранные гвозди"". Семигранные гвозди наш специалист забивал бы не хухе, ну или немножко похуже, чем американский, однако, мог бы забить любой гвоздь, допустим, трёхгранный спиральной формы, потому что он тут же вспомнил бы, что такие гвозди забиваются, к примеру, с помощью специальной оправки и молотка со свободно поворачивающимся параболическим бойком. Я не считаю, что раньше было лучше или хуже, есть свои достоинства и там, и тут. Держитесь, сейчас приходится учиться самостоятельно, чтобы хоть чем-то отличаться от догматика. Меня пичкали знаниями выше ватерлинии, правда, когда я всё это учил, даже не представлял, зачем мне это может понадобиться. Это тяжело и неправильно. Правильнее знать, куда приложатся твои знания. Только опять же менталитет: у нас само сабой разумелось спросить у преподавателя неясность какую-нибудь. Сейчас это почему-то не принято, как-то: если спросил, значит, не знаешь. Не понимаю, что в этом зазорного, тем более, что и правда не знаешь, учишься же ещё. Ну и - не умеют преподносить знания, что же делать. Придётся, следовательно, без преподношения их брать. Чем больше учишь - тем больше усваиваешь побочно. Пытайтесь всегда понять основной принцип. Причём так, чтобы быть способным объяснить этот принцип на пальцах любому плохо обученному академику, и так, чтобы он его понял. Не надо излишней зубрёжки. Принцип - сильное оружие, позволяющее понять, что же ещё хочется узнать, а частности - их можно выяснить в любой момент. И неплохо принципы эти знать не только по своей специальности. Другими словами, иметь представление обо всём. Для примера, если Вы так уж обожаете математику, неплохо бы иметь представление обо всех разделах этой науки. И не только. К примеру, неплохо бы знать, как происходит принятие решения в человеческом мозге, а это уже больше биология, а не логика. Никак не смог выразить точно, что я хотел сказать. Может, поняли Вы меня, может, нет. Надеюсь, поняли. Да ещё, и не мой это сайт, но ведь и правда на энциклопедию тянет, может, с небольшими купюрами. Часто пользуюсь. И не по теме рассуждения не забывайте писать в оффтопе (кнопочка OFF в шапке редактора). 0

Опции темы

Вычислить значение выражения

Решение