Программирование, т. 3

подписался на новую тему

В одномерном массиве, состоящем из n вещественных элементов, вычислить:1) Количество элементов массива, меньших С. 2) сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.

Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом - все остальныею

 

Если не ошибся, то первые 2 пункта примерно такие

 

 

var

a:array[1..100] of real;

n,i,k,c,iotr,S:integer;

begin

readln(N);

//пункт 1

readln©;

for i:=1 to n do

readln(a);

for i:=1 to n do

write(a, ' ');

writeln;

for i:=1 to n do

if a<c then

k:=k+1;

writeln(k); // kol-vo elementov massiva, men'shih C

//пункт 2

iotr:=0; S:=0;

for i:=1 to n do

if (a<0) and (i>iotr) then

iotr:=i;

for i:=iotr to n do

S:=S+trunc(a);

writeln(s); //summa

readln;

end.

Изменено 27 декабря 2012 пользователем ArByZz

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

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

как бы структура программы, что в паскале, что в си не сильно отличается

чо еще расскажешь?

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

 

я это не вам писал

 

а чтобы тема попала в список тем где я отписывался

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

 

я это не вам писал

 

а чтобы тема попала в список тем где я отписывался

написал бы что двапой няша, или что джус не молодец

а то как-то банально

 

даже уныло

на жс ему реши, а не обсирай всех

да там нечего решать

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

 

я это не вам писал

 

а чтобы тема попала в список тем где я отписывался

написал бы что двапой няша, или что джус не молодец

а то как-то банально

 

даже уныло

 

держи нас в курсе

нет проблем

пшел нахуй с паскалем их топика

 

подписался на новую тему

держи нас в кусре

 

я это не вам писал

 

а чтобы тема попала в список тем где я отписывался

тут есть кнопка подписки на топан

ппц флудерасы

а задание на плюсях так никто и не сделал

Изменено 27 декабря 2012 пользователем Hed-kun

ппц флудерасы

а задание на плюсях так никто и не сделал

 

Ну раз на плюсях то ок

 

 

 

#include "stdafx.h"

#include <vector>

#include <iostream>

#include <algorithm>

#include <functional>

#include <math.h>

 

struct comparerfunc {

const double& CVAL;

comparerfunc(const double& CVAL_) : CVAL(CVAL_) {}

 

bool operator() (const double& val){

return val < CVAL;

}

};

 

struct myretardefunctor {

const double left;

const double right;

 

myretardefunctor(const double _left, const double _right) : left(_left), right(_right) {}

 

bool operator() (const double& val){

return (val >= left && val <= right);

}

};

 

int _tmain(int argc, _TCHAR* argv[])

{

std::vector<double> myvector;

for (int i=0; i<70; i++) myvector.push_back(i-30);

 

std::random_shuffle(myvector.begin(),myvector.end());

 

//1) Количество элементов массива, меньших С.

double mC = 5.44 ;

comparerfunc comp(mC);

 

const unsigned _less = (unsigned) std::count_if(myvector.begin(),myvector.end(), comp);

std::cout << _less << std::endl;

 

//2) сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.

const double zero = 0.0;

comparerfunc compzero(zero);

std::vector<double>::const_reverse_iterator last_negative = std::find_if(myvector.rbegin(),myvector.rend(),compzero);

 

double sum_counter = 0;

double int_part;

 

if (last_negative != myvector.rbegin()){

std::advance(last_negative,-1);

for (;last_negative >= myvector.rbegin(); std::advance(last_negative,-1)){

modf(*last_negative,&int_part);

sum_counter += int_part;

if (last_negative == myvector.rbegin()) break;

}

}

 

std::cout << sum_counter << std::endl;

 

/*Преобразовать массив таким образом, чтобы сначала располагались все элементы,

отличающиеся от максимального не более чем на 20%, а потом - все остальные*/

 

const std::vector<double>::const_iterator maxval = std::max_element(myvector.begin(),myvector.end());

const double percents = 0.2;

 

myretardefunctor yeaitsme(*maxval *(1.0-percents), *maxval *(1.0+percents));

 

std::partition(myvector.begin(),myvector.end(),yeaitsme);

 

return 0;

}

 

 

 

 

 

:trollface: :trollface: :trollface: :trollface: :trollface: :trollface:

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

И в чем же конкретно должна заключаться помощь?

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

И в чем же конкретно должна заключаться помощь?

Ну как бы , сделать эти задачки .
Изменено 27 декабря 2012 пользователем An1taFly

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

И в чем же конкретно должна заключаться помощь?

Ну как бы , сделать эти задачки .

Ну это как бы к одногруппникам-одноклассникам. Тебе здесь шныри что ли. Если что не понятно конкретное - то так и скажи... А то сделай ему сразу.

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

И в чем же конкретно должна заключаться помощь?

Ну как бы , сделать эти задачки .

Ну это как бы к одногруппникам-одноклассникам. Тебе здесь шныри что ли. Если что не понятно конкретное - то так и скажи... А то сделай ему сразу.

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

Эй ребят , мне тут нужна помощь вот пара задачек

 

1)Задан массив А в котором есть повторяющиеся числа. Напечатать все перестановки этих чисел без повторов. Чтобы ускорить вычисления, полезно завести таблицу найденных простых чисел и проверять делимость очередного кандидата только на числа из этой таблицы. Чётные числа, естественно, не рассматривать.

2)Дана последовательность из простых чисел, записанных подряд и целое число k. Определить цифру, которая стоит на k–м месте.

Буду ну просто пиздец как благодарен. Решать можно в паскале\делфи

И в чем же конкретно должна заключаться помощь?

Ну как бы , сделать эти задачки .

Ну это как бы к одногруппникам-одноклассникам. Тебе здесь шныри что ли. Если что не понятно конкретное - то так и скажи... А то сделай ему сразу.

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

К шарящему одногруппнику с ноутом. Сделает(переделает свою) минут за 10 за пиво два. Вопрос решен. Зачет сдан.