Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 938 • Страница 41 из 47<  1 ... 38  39  40  41  42  43  44 ... 47  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Junior
Статус: Не в сети
Регистрация: 24.08.2008
помогите написать пару задачек пожалуйста.
На вход программе подается последовательность цифр. ВВод этих символов заканчивается точкой (другие символы, отличные от "." и цифр "0"..."9", во входных данных отсутствуют, в программе на языке бейсик символы можно вводить по одному в строке, пока не будет введена точка). Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например Borland Pascal 7.0), которая будет печатать цифры, встречающиеся во входной последовательности, в порядке уменьшения частоты их встречаемости. Каждая цифра при этом должна распечатываться один раз.
Если какие-то цифры встречаются одинаколвое число раз, то они выводятся по возрастанию. Например, пусть на вход подаются следующие символы: 1232432. Программа должна вывести: 2314.

№2.
На вход программы подаются сведения о номерах школ учащихся, участвующих в олимпиаде. В первой строке сообщается количество учащихся N, каждая из следующих N строк имеет формат: <фамилия><инициалы><номер школы>, где <фамилия>- строка, состоящая не более чем из 20 символов, <инициалы>- строка, состоящая из 4 символов (буква, точка, буква, точка), <номер школы>- не более чем двузначный номер. <фамилия> и <инициалы>, а также <инициалы> и <номер школы> разделены одним пробелом. Пример входной строки: Иванов П.С. 57
Требуется написать как можно белее эффективную программу (укажите используемую версию языка программирования, например Borland Pascal 7.0), которая будет выводить на экран информацию, из каких школ было меньше всего участников олимпиады ( но из этих школ был хотя бы один участник).



Партнер
 

Member
Статус: Не в сети
Регистрация: 11.02.2008
Откуда: Талдыкорган
Дали тут задачки решить,а сам в Pascal "е не силен.Объясните кто сможет? Нужно написать полностью решение (расписать ) от начала до конца.
№1
Дана точка .Лежит ли она в кольце.
№2
Подсчет кол-во часов,минут,секунд в данном числе суток. n
№3
Определить растояние от точки до прямой.
Буду очень благодарен!Зарание спасибо!

_________________
Шуруп забитый молотком,сидит крепче чем гвоздь закрученный отверткой.


 

Member
Статус: Не в сети
Регистрация: 15.02.2007
Вообще материться на Variable "y" might not have been initilizied
program lab4;
{$APPTYPE CONSOLE}
const a=2.8; b=0.45;
var x,x1,x2,dx:integer; y,s:real;
begin
writeln('Enter X1');
readln(x1);
writeln('Enter X2');
readln(x2);
writeln('Enter dx');
readln(dx);
x:=x1;
s:=0;
while x2>=x do
y:=(a+exp(1/4*ln(x)))/(cos(b*x)-2);
writeln(x,y);
x:=x+dx;
if (y>0.5) and (y<-3.5) then
s:=s+y;
writeln(S:5:2);
end.


 

Member
Статус: Не в сети
Регистрация: 11.02.2008
Откуда: Талдыкорган
ну кто сможет помочь?

_________________
Шуруп забитый молотком,сидит крепче чем гвоздь закрученный отверткой.


 

Есть 19 однотипных задач, их нужно решить на Паскале. Я, конечно же, не прошу решить все, но хотелось бы увидеть пример решения хотя бы одной из них, например, первой, чтобы понять, как решать остальные.
Условие:
1. Дано натурально число n, действительные числа а1,...,аn. В последовательности а1,..,an все отрицательные члены, которые не лежат на отрезке [1,2], заменить на 1. Кроме того, получить количество отрицательных членов и количество членов, которые принадлежат отрезку [1,2].

Еще интересует как получить max(a1,...,an).

Задачи из темы "Сочетание цикла и ветвления. Пошаговый ввод-вывод". Соответственно должны быть решены способом, который бы не выходил за рамки данной темы.


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
HiperV

задание немного невнятно. По логике написанного, диапазон должен быть не [1,2], а [-2,-1]

Код:
const
   n = 10;
var
   a : array [1..n] of integer;
   i, max, rgnCnt, negCnt : integer;
begin
   // ввод массива a1..an
   max := 1;
   rgnCnt := 0;
   negCnt := 0;
   for i:= 1 to n do
   begin
      if a[i] > a[max] then max := i;
      if a[i] < 0 then
      begin
         inc(negCnt);
         if (a[i] < -1) and (a[i] > -2 ) then
            inc(rgnCnt)
         else
            a[i] := 1;
      end;
   end;
   { на выходе:
      max - индекс максимального элемент массива (соответственно, a[max] - макс. эл-т)
      rgnCnt - количество отрицательных членов, которые принадлежат отрезку [1,2]
      negCnt - кол-во отрицательных членов
   }
end;


_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Задание взято из задачника.
Спасибо за решение, по нему разберусь и попробую решить остальные задачи.

Добавлено:
Решение через массив понятно, но сказали, что нужно решить только через циклы и ветвления. :(
Добавлено спустя 12 минут, 42 секунды
Добавлено спустя 4 часа, 33 минуты, 8 секунд
Вопрос закрыт - все решено.


 

Member
Статус: Не в сети
Регистрация: 26.09.2006
Откуда: Ташкент
Здравствуйте уважаемые форумчане. Помогите, пожалуйста в решении следующей задачи.
"Имеются сведения о росте N учеников одного класса ( данные вводятся в алфавитном порядке фамилий учеников). Определить средний рост учеников, чьи фамилии расположены в журнале между фамилиями учеников с минимальными и максимальными ростами ( рост этих учеников тоже учитывать), считая, что самый высокий и самый низкий ученики в классе единственные." Мне нужно составить блок-схему алгоритма решения задачи, и написать саму программу на языке Паскаль. Всем заранее огромное спасибо!


 

Member
Статус: Не в сети
Регистрация: 18.12.2006
destroyler писал(а):
Здравствуйте уважаемые форумчане. Помогите, пожалуйста в решении следующей задачи.
"Имеются сведения о росте N учеников одного класса ( данные вводятся в алфавитном порядке фамилий учеников). Определить средний рост учеников, чьи фамилии расположены в журнале между фамилиями учеников с минимальными и максимальными ростами ( рост этих учеников тоже учитывать), считая, что самый высокий и самый низкий ученики в классе единственные." Мне нужно составить блок-схему алгоритма решения задачи, и написать саму программу на языке Паскаль. Всем заранее огромное спасибо!

Вот псевдокод-алгоритм, на Паскаль сам перепишешь.
Код:
 
N = (input);
vector rost[N] = ( input );
min = rost[0]; nmin = 0; max = rost[0]; nmax = 0; //текущие минимальный и максимальный рост, и их номера в списке.
sum_after_min = min; sum_after_max = max;
sum = rost[0]; //для вычисления среднего - сумма ростов
for (  n = 1; n!= N; ++n )
{
sum_after_min += rost[n];
sum_after_max += rost[n];
if (rost [n] >max )
{
sum = sum_after_min;
max = rost[n]; nmax = n;
sum_after_max = max;
}
if (rost[n] <min )
{
sum = sum_after_max;
min = rost[n]; nmin = n;
sum_after_min = min;
}
}
output (sum / abs(nmax - nmin + 1);     


 

Member
Статус: Не в сети
Регистрация: 26.09.2006
Откуда: Ташкент
2SinsI Спасибо!


 

Ребята помогите, зачёт на носу, РГЗ сдавать нужно, ужас :(
Помогите отсортировать массив структур по полю int win!!!


Составить программу обработки итоговой таблицы шахматного турнира.
Игры проходили в один круг, каждый из участников встретился
с другими участниками по одному разу. Обработка должна включить:
- формирование итоговой таблицы турнира с расстановкой участников
согласно набранным очкам (за победу - 1, за ничью - 0,5, за поражение - 0);
- вывести фамилии 3-х участников: больше всего побед, поражений, ничьих.

Используемый файл "players.txt"

players_1 1 5 9
players_2 2 6 8
players_3 3 7 7
players_4 4 8 6
players_5 4 8 6

Код:
/*
* Код программы
*/

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <windows.h>
#include <iostream.h>

using namespace std;

void rusmsg(char *string) {
    char message[100];
    CharToOem(string, message);
    cout << message;
}
/*
 * Обьявляем переменные необходимые для работы
 */

int buffer;
char filename[64];
int ch, i = 0;
double w;

FILE *fp;

struct player {
    char name[32];
    int win, tie, spank;
    double point;
} pd[sizeof (i)];

void main() {
    rusmsg("Лабораторная работа №6\ncтудента гр. 7ВТ3Д-1\nВасильев А.Н.\n\n");

    if ((fp = fopen("players.txt", "r")) == NULL) {
        rusmsg("Файл не найден\n>");
        getch();
        exit(0);
    }
    /*
     * Вывод заголовка таблица учасников турнира
     */
    cout << " --------------------------------------------------" << endl;
    rusmsg("| # |  Игрок  | Побед | Ничьх | Поражений |  Очки  |\n");
    cout << " --------------------------------------------------" << endl;
    /*
     * Формирование таблицы участников турнира
     */
    while (ch != EOF) {
        fscanf(fp, "%s %i %i %i", &pd[i].name, &pd[i].win, &pd[i].tie, &pd[i].spank);
        pd[i].point = pd[i].win + (pd[i].tie * 0.5);
        ch = fgetc(fp);
        i++;
    }
    fclose(fp);
    getch();
}

Заранее благодарен!!!


 

Member
Статус: Не в сети
Регистрация: 01.08.2007
Откуда: Чехов, М. О.
Очень прошу, помогите пожалуйста с РГР по паскалю! Ничего не объясняли и на - пишите программу и алгоритм к ней.
Дана функция: f(a,x,b)=[tg(8x)-a^3+b]/[sqrt(b)+a].
Xn и Xk - начальное и конечное значения аргумента х.
An и Ak - начальное и конечное значение параметра а.
Dx и Da - шаги изменения аргумента и параметра.
N и M - числа значений аргумента и параметра.
M от N не зависит. Для этой функции надо вычислить таблицы значений функции при изменении параметра и аргумента.
При этом параметр b надо вычислить как определенный интеграл от значений а=1.31 до b=2.17 от функции f=1/(3x^2+6x+3)
Еще дана какая-то погрешность для интеграла эпсилон Е=10^(-3) до 10^(-6).
Как писать эту программу я решительно не знаю. Если кто может, помогите пожалуйста, не хочется вылетать из инстиута после первого семестра ((((

_________________
Легче учиться на чужих примерах, чем на своих ошибках.


 

Member
Статус: Не в сети
Регистрация: 26.09.2006
Откуда: Ташкент
Помогите пожалуйста написать код программы на Паскале этой лёгкой задачи..."В заданной последовательности чисел найти сумму всех чётных чисел"

_________________
Никакие шейдеры не нарисуют картинку так, как её нарисуют слова.


 

Member
Статус: Не в сети
Регистрация: 17.12.2004
Откуда: Сургут
Помогите пожалуйста создать БД в ACESS,а то из-за сессии не успеваю сделать в срок.
Вот само задание:
Вам необходимо разработать небольшую базу данных, так, чтобы можно было выполнить запросы. В отчете следует отразить логическую структуру БД и результаты выполнения запросов в виде таблиц.
Составьте нормализованный макет реляционной базы данных, отражающей деятельность предприятия «Товары почтой».
Любой человек может заказать в компании товар по каталогу. Заказ необходимого товара для клиента происходит следующим образом.
По почте поступает заявка от клиента. Она обрабатывается – группируется с другими заявками по производителям и товарам. В конце квартала торговая компания высылает заказ каждому производителю. При поступлении товаров в торговую компанию она отсылает заказ клиенту по почте.
Структура данных о работе с заявками клиентов отражена в табл.
#77

Или подскажите,какие нужно в БД создать таблицы?


 

Member
Статус: Не в сети
Регистрация: 13.10.2006
Откуда: Сургут
-----


Последний раз редактировалось RinPlus 18.12.2008 11:14, всего редактировалось 2 раз(а).

 

Пожалуйста помогите составить блок схему
даны след-е прог-мы

Код:
program lr41;
const n=15;
var a:array [1..n]of integer;
    i:integer;
begin
writeln ('massiv a:');
for i:=1 to n do
begin a[i]:=i*i*i;
write(a[i]:5);
end;
end.


Код:
program lr43;
const n=7;
var a:array [1..n, 1..n] of integer;i,j:integer;
begin
for j:=1 to n do
for i:=1 to n do
if j mod 2=0 then a[i,j]:=0
             else a[i,j]:=j;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.


Код:
program lr44;
const n=7;
var a:array [1..n, 1..n] of integer;i,j,x:integer;
begin
writeln ('ishodnuy massiv');
for i:=1 to n do
 begin
for j:=1 to n do begin
a[i,j]:= random (30);
write (a[i,j]:3);end;
writeln;
end;
For i:=1 to n div 2 do
for j:=1 to n do begin
x:=a[i,j]; a[i,j]:=a[n+1-i,j];a[n+1-i,j]:=x end;
writeln ('posle perestanovki');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.

пожалуйста выручайте!!!!!!!!!!!!!!!!!!!!!!!!!!
я в прог-ии очень плохо разбираюсь!!!!!!!!!
Добавлено спустя 25 минут, 2 секунды
оёёёёёёёёёёёёёёёёёё забыл самое основное!!!!!!!!!!!
Задания
4,1
Заполните одномерный массив из N элементов следующим образом

номера эл-в массива 1 2 3 4 5 6 7 ........
Значения эл-в массива 1 8 27 64 125 216 343 ........

4,3
Заполните двумерный массив размерности NxN следующим образом.

1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
1 0 3 0 5 ...
... ... ... ... ... ...

4,4 Заполните Случайным образом двумерный массив размерности n x n . Обменяйте местами элементы следующих строк:

1) 1-я строка - n-я строка
2) 2-я строка - (n-1)-я строка
3) 3-я строка - (n-2)-я строка
4) ...


Вы извените что если я так вам пишу, просто от волнения ошибок наделал кажись!!!!!!!!!!!


 

∑_(x=2)^6 ∑_(y=1)^5 y!/x+y
Помогите составить программу на турбо паскале
x и y с шагом 1
использовать нужно оператор цикла - while
кто не понял эту формулу. x=2 и y=1 стоят внизу - ∑, а 6 и 5 наверху. y!/x+y - дробь.
Помогите пожалуйста, буду очень благодарен.


 

Member
Статус: Не в сети
Регистрация: 04.05.2008
Откуда: Турист
Помогите пожалуйсто составить програмку: В матрице удалить столбцы с элементами над главной диогональю равными заданному, вставить первыми столбец из веденных элементов. Сам я не смог разобраться с удалением строк...


 

Member
Статус: Не в сети
Регистрация: 20.12.2005
Откуда: Волгоград
Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прошу помочь с решением пары задач, в связи со сложившейся ситуацией на работе сделать это самостоятельно не в состоянии :weep::
#77
#77

Необходимо написать программу и блок схему к ней. Буду весьма благодарен за помощь!

_________________
Все в этом Мире имеет какой то смысл. В нем нет ничего бесполезного или случайного...


 

Junior
Статус: Не в сети
Регистрация: 04.12.2008
Получил такое задание.с чего начать
Задание 52
Имеется группа из 15 студентов,которые обучаются по 7 предметам.
Написать программу на языке VBA,которая вводит данные,выполняет расчеты
и выводит на экран:
1)исходные данные в виде таблицы,где перечислены фамилии и инициалы
студентов,оценки по всем предметам;
2)средний балл для каждого студента;
3)средний балл по каждому предмету всей группы;
4)средний балл по всем предметам всей группы;
5)фамилию студента с наивысшим средним баллом.


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 938 • Страница 41 из 47<  1 ... 38  39  40  41  42  43  44 ... 47  >
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan