Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Напишите программу в паскаль,пожалуйста

5-9 класс

Введите с клавиатуры фамилию имя и отчество какого либо человека, как одну переменную строкового типа найдите самое длинное слово и определите количество букв "о" в нём.

маша2308 23 июля 2015 г., 11:52:34 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Osetia59
23 июля 2015 г., 13:22:47 (8 лет назад)

# 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';      }  }

Ответить

Другие вопросы из категории

Решила изучить информатику,но раньше в школе как-то не занималась ей особо(поверхностно так).Учусь в 11 классе.

На курсы запишусь,но хотела бы дома сама начать изучать в интернете темы самостоятельно.
Не знаю как и с чего начать.Не могли бы помочь с планом изучения информатики.Последовательность этих тем.
Дизайны,программирование и так далее

Бабушка выслала Ивану посылку с яблоками и грушами. Некоторые из этих плодов были большими, остальные - маленькими. По цвету плоды тоже различались: часть

плодов была желтого цвета, остальные - зеленого. Среди плодов не было ни маленьких, груш, ни зеленых яблок. Яблок было - 25, а груш - 17. Больших плодов было 32. Желтых плодов было 28. Зеленых яблок было на 2 больше, чем зеленых груш. Иван угостил этими плодами своих друзей. Больше всего ребятам понравились большие желтые яблоки. Сколько было таких яблок?

помогите пожалуста по информатике 6 класс Босова ФГОС: задание 63: рассмотрите каждый из следующих объектов как систему, взаимодействующую с окружающей

средой. опишите входы и выходы этой системы.
1. Лук, выращиваемый на грядке:
2. Легковой автомобиль:
3. Футбольная команда:

Читайте также

РЕШИТЕ ХОТЬ ЧТО-НИБУДЬ!!!:з 1.Линейные программы Напишите программу на ШАЯ.Вычислите значения следующих выражений: f=t*t/2+t

2.Условный оператор(ветвление)

Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?

3.Циклы

Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.

4.Одномерные массивы

Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].

5.Двумерные массивы

Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.

1)Напишите программу,которая запрашивает значения двух переменных и выводит их разность.Приглашение к вводу каждого числа произведите в отдельных

строках.Вывод результата сопроводите пояснениями
2)Напишите программу ввода трех величин( А,В,С) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: (А*В)/3,14 +3С.
3)Напишите программу вычисления длины окружности и площади круга одного и того же заданного радиуса R.
Решать на паскале...Помогите пожалуйста(((

Пожалуйста! Напишите программу для паскаля-

Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.

задача 1. Дано натуральное число n. Напишите программу выводящую на экран последовательность натуральных чисел от 1 до n. задача 2. Даны

натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.

Пожалуйста помогите !!!!!!!!

напишите программу в Паскаль чтобы нарисован был светофор)) небольшой, разрисован нужными цветами( жёлтый, зелёный, красный) и сам светофор

серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)



Вы находитесь на странице вопроса "Напишите программу в паскаль,пожалуйста", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.