Напишите программу в паскаль,пожалуйста
5-9 класс
|
Введите с клавиатуры фамилию имя и отчество какого либо человека, как одну переменную строкового типа найдите самое длинное слово и определите количество букв "о" в нём.
# include <iostream># include <cstdio> using namespace std; struct point{ string name, surname, ochestvo; double ball; int ind; }arr[3400]; int main() { freopen("abc.txt","r",stdin); freopen("cba.txt","w",stdout); int n, i, a; i = 1; while(cin >> arr[i].name){ cin >> arr[i].surname >> arr[i].ochestvo>> arr[i].ball; i = i + 1; } n = i - 1; //cout << arr[n].name << '\n'; for(i = 1; i <= n - 1; i++){ for(a = 1; a <= n - 1; a++){ if(arr[a].ball < arr[a + 1].ball) swap(arr[a], arr[a + 1]); } } arr[1].ind = 1; for(i = 1; i <= n; i++){ while((arr[i].ball == arr[i + 1].ball)&&(i + 1 <= n)){ i = i + 1; arr[i].ind = arr[i - 1].ind; } ///cout << ":i = " <<i << '\n'; if(arr[i].ball != arr[i + 1].ball) arr[i + 1].ind = arr[i].ind + 1; } for(i = 1; i <= n; i++){ cout << arr[i].ind << " " << i << " " << arr[i].name << " " << arr[i].surname << " " << arr[i].ochestvo << " " << arr[i].ball << '\n'; } }
Другие вопросы из категории
На курсы запишусь,но хотела бы дома сама начать изучать в интернете темы самостоятельно.
Не знаю как и с чего начать.Не могли бы помочь с планом изучения информатики.Последовательность этих тем.
Дизайны,программирование и так далее
плодов была желтого цвета, остальные - зеленого. Среди плодов не было ни маленьких, груш, ни зеленых яблок. Яблок было - 25, а груш - 17. Больших плодов было 32. Желтых плодов было 28. Зеленых яблок было на 2 больше, чем зеленых груш. Иван угостил этими плодами своих друзей. Больше всего ребятам понравились большие желтые яблоки. Сколько было таких яблок?
средой. опишите входы и выходы этой системы.
1. Лук, выращиваемый на грядке:
2. Легковой автомобиль:
3. Футбольная команда:
Читайте также
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
строках.Вывод результата сопроводите пояснениями
2)Напишите программу ввода трех величин( А,В,С) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: (А*В)/3,14 +3С.
3)Напишите программу вычисления длины окружности и площади круга одного и того же заданного радиуса R.
Решать на паскале...Помогите пожалуйста(((
Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)