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

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

  prostoYaKrytoy написал 27.12.2012 в 11:25:

В одномерном массиве, состоящем из 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

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

  2poy_nyasha написал 27.12.2012 в 17:35:

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

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

  ArByZz написал 27.12.2012 в 18:38:

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

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

  2poy_nyasha написал 27.12.2012 в 17:35:

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

 

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

 

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

  Vizakenjack написал 27.12.2012 в 19:06:

  2poy_nyasha написал 27.12.2012 в 17:35:

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

 

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

 

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

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

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

 

даже уныло

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

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

  2poy_nyasha написал 27.12.2012 в 19:08:

  Vizakenjack написал 27.12.2012 в 19:06:

  2poy_nyasha написал 27.12.2012 в 17:35:

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

 

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

 

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

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

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

 

даже уныло

 

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

нет проблем

  Vizakenjack написал 27.12.2012 в 19:06:

  2poy_nyasha написал 27.12.2012 в 17:35:

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

 

  Vizakenjack написал 27.12.2012 в 14:44:

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

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

 

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

 

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

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

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

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

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

  Hed-kun написал 27.12.2012 в 20:44:

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

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

 

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

 

 

 

#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–м месте.

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

  An1taFly написал 27.12.2012 в 22:46:

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

 

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

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

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

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

  Tinplz написал 27.12.2012 в 22:57:

  An1taFly написал 27.12.2012 в 22:46:

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

 

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

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

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

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

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

  An1taFly написал 27.12.2012 в 23:00:

  Tinplz написал 27.12.2012 в 22:57:

  An1taFly написал 27.12.2012 в 22:46:

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

 

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

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

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

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

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

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

  Tinplz написал 27.12.2012 в 23:09:

  An1taFly написал 27.12.2012 в 23:00:

  Tinplz написал 27.12.2012 в 22:57:

  An1taFly написал 27.12.2012 в 22:46:

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

 

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

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

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

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

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

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

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

  An1taFly написал 27.12.2012 в 23:12:

  Tinplz написал 27.12.2012 в 23:09:

  An1taFly написал 27.12.2012 в 23:00:

  Tinplz написал 27.12.2012 в 22:57:

  An1taFly написал 27.12.2012 в 22:46:

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

 

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

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

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

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

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

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

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

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