помогите написать пару задачек пожалуйста.
На вход программе подается последовательность цифр. ВВод этих символов заканчивается точкой (другие символы, отличные от "." и цифр "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
Определить растояние от точки до прямой.
Буду очень благодарен!Зарание спасибо!
_________________ Шуруп забитый молотком,сидит крепче чем гвоздь закрученный отверткой.
Вообще материться на 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.
Есть 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 учеников одного класса ( данные вводятся в алфавитном порядке фамилий учеников). Определить средний рост учеников, чьи фамилии расположены в журнале между фамилиями учеников с минимальными и максимальными ростами ( рост этих учеников тоже учитывать), считая, что самый высокий и самый низкий ученики в классе единственные." Мне нужно составить блок-схему алгоритма решения задачи, и написать саму программу на языке Паскаль. Всем заранее огромное спасибо!
Здравствуйте уважаемые форумчане. Помогите, пожалуйста в решении следующей задачи. "Имеются сведения о росте 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);
Ребята помогите, зачёт на носу, РГЗ сдавать нужно, ужас Помогите отсортировать массив структур по полю int win!!!
Составить программу обработки итоговой таблицы шахматного турнира.
Игры проходили в один круг, каждый из участников встретился
с другими участниками по одному разу. Обработка должна включить:
- формирование итоговой таблицы турнира с расстановкой участников
согласно набранным очкам (за победу - 1, за ничью - 0,5, за поражение - 0);
- вывести фамилии 3-х участников: больше всего побед, поражений, ничьих.
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
Статус: Не в сети Регистрация: 17.12.2004 Откуда: Сургут
Помогите пожалуйста создать БД в ACESS,а то из-за сессии не успеваю сделать в срок.
Вот само задание:
Вам необходимо разработать небольшую базу данных, так, чтобы можно было выполнить запросы. В отчете следует отразить логическую структуру БД и результаты выполнения запросов в виде таблиц.
Составьте нормализованный макет реляционной базы данных, отражающей деятельность предприятия «Товары почтой».
Любой человек может заказать в компании товар по каталогу. Заказ необходимого товара для клиента происходит следующим образом.
По почте поступает заявка от клиента. Она обрабатывается – группируется с другими заявками по производителям и товарам. В конце квартала торговая компания высылает заказ каждому производителю. При поступлении товаров в торговую компанию она отсылает заказ клиенту по почте.
Структура данных о работе с заявками клиентов отражена в табл.
#77
Пожалуйста помогите составить блок схему
даны след-е прог-мы
Код:
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 элементов следующим образом
∑_(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 Откуда: Турист
Помогите пожалуйсто составить програмку: В матрице удалить столбцы с элементами над главной диогональю равными заданному, вставить первыми столбец из веденных элементов. Сам я не смог разобраться с удалением строк...
Получил такое задание.с чего начать
Задание 52
Имеется группа из 15 студентов,которые обучаются по 7 предметам.
Написать программу на языке VBA,которая вводит данные,выполняет расчеты
и выводит на экран:
1)исходные данные в виде таблицы,где перечислены фамилии и инициалы
студентов,оценки по всем предметам;
2)средний балл для каждого студента;
3)средний балл по каждому предмету всей группы;
4)средний балл по всем предметам всей группы;
5)фамилию студента с наивысшим средним баллом.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения