Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды https://www.cyberforum.ru/ turbo-pascal/ thread595467.html В массиве записаны результаты 20 игр футбольной команды(если игра окончилась выигрышем данной команды,то записано число 3, проигрышем-2,если игра окончилась вничью-1.)Определить количество выигрышей,количество ничьих и количество проигрышей данной команды.	Массив. Определить количество четных элементов и количество элементов,оканчивающих на 5 Turbo Pascal Дан массив целых чисел.Определить количество четных элементов и количество элементов,оканчивающих на 5.
Turbo Pascal Определить количество положительных и количество отрицательных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread595457.html Определить количество положительных и количество отрицательных элементов массива	Turbo Pascal Линейные связанные списки Составить программу обработки списка .Вид списка :Линейный дважды связанный, Вид обработки: Добавить новый элемент после заданного, Элемент задан ссылочной переменной. В программе предусмотреть подпрограммы формирования списка, вывода, поиска компонента (если требуется) , обработки и уничтожения списка. Входные и выходные данные должны передаваться через заголовок. Конец ввода списка задается... https://www.cyberforum.ru/ turbo-pascal/ thread595426.html
Turbo Pascal Подпрограммы.Вычислить сумму 1!+2!+3!+…+n!, используя подпрограмму вычисления факториала числа Помогите пожалуйста решить задачу. Вычислить сумму 1!+2!+3!+…+n!, используя подпрограмму вычисления факториала числа .	Turbo Pascal Склеивание нетипизированых файлов https://www.cyberforum.ru/ turbo-pascal/ thread595399.html Даны два нетипизированных файла file1.dat и file2.dat. Напишите программу "склеивания" двух файлов в файл file1.dat, используя функции create, readblock, writeblock, reset и close.
Turbo Pascal Дана строка символов, удалить из нее все слова, начинающиеся с заданной буквы 2. Дана строка символов, удалить из нее все слова, начинающиеся с заданной буквы. https://www.cyberforum.ru/ turbo-pascal/ thread595398.html	Turbo Pascal График функции с касательной Ребят, помогите пожалуйста еще раз там глухо, а надо очень срочно=((( Исследовать функцию y:=x/(sqr(x)-2*x+1) . Построить график функции и построить касательную в указанной точке (если это возможно).
Turbo Pascal Действия с координатами точек. Даны координаты вершин четырехугольника. Является ли этот четырехугольник прямоугольником https://www.cyberforum.ru/ turbo-pascal/ thread595391.html Пожалуйста помогите решить две задачи. 3.3 Путь даны координаты вершин четырехугольника. Составьте программу, которая определяла бы, является ли этот четырехугольник прямоугольником.	Turbo Pascal Множества. Осуществить ввод элементов двух множеств и проверить, принадлежат ли элементы их пересечению https://www.cyberforum.ru/ turbo-pascal/ thread595383.html осуществить ввод элементов двух заданных множеств с клавиатуры и проверить принадлежат ли элементы(так же вводимые с клавиатуры) их пересечению.
Turbo Pascal Найти сумму элементов массива, имеющих нечетное значение Исходный массив должен быть выведен на экран. Все преобразования производить с исходным массивом. После каждого преобразования на экране должно быть представлено название преобразования и преобразованный массив или значения указанных величин, или соответствующее сообщение. 1 Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: − сумму элементов, имеющих...	Turbo Pascal Заливка фигуры в соответствии с источником света https://www.cyberforum.ru/ turbo-pascal/ thread595361.html Задание состоит в том, чтобы нарисовать трехмерную фигуру (мой вариант - призма) и залить её в соответствии с точечным источником света, т.е. с тенями. Нарисовать призму я смогла, а вот залить её с тенями не получается. Помогите, пожалуста... uses graph; var Driver:integer; Razreshenie:integer; Put:string; xc,yc,r,h,a,i:integer; p1,p2:array of pointtype; m:real;

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

03.06.2012, 23:02

В массиве записаны оценки 22 учеников. Определить количество пятерок, четверок, троек и двоек - Turbo Pascal - Ответ 3121003

03.06.2012, 23:02. Показов 9950. Ответов 3

Метки (Все метки)

Ответ

Pascal

Const
n=22;
Var
x: Array[1..100] of Integer;
i,d,t,c,p: Integer;
BEGIN
For i:=1 to n do
begin
  Readln(x[i]);
  If x[i]=2 Then Inc(d);
  If x[i]=3 Then Inc(t);
  If x[i]=4 Then Inc(c);
  If x[i]=5 Then Inc(p);
end;
Writeln('Кол-во двоек: ',d);
Writeln('Кол-во троек: ',t);
Writeln('Кол-во четверок: ',c);
Writeln('Кол-во пятерок: ',p);
Readln
END.

Вернуться к обсуждению:
В массиве записаны оценки 22 учеников. Определить количество пятерок, четверок, троек и двоек Turbo Pascal

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

03.06.2012, 23:02

Готовые ответы и решения:

В массиве записаны оценки. Определить общее количество четверок и пятерок
В массиве записаны оценки ученика по 10 предметам. Определить общее количество четверок и пятерок.

Определить количество пятерок, четверок, троек и двоек по каждой дисциплине
Имеется экзаменационная ведомость студенческой группы из 20 человек по 5 дисциплинам. Определить...

В массиве записаны оценки, найти количество пятерок, количество четверок, количество троек и количество двоек
В массиве записаны оценки по иностранному языку каждого из 22 учеников класса. Определить...

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

	03.06.2012, 23:02

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

03.06.2012, 23:02

Помогаю со студенческими работами здесь

В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C -троек. Найти процент троек, четверок и пятерок
В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C -троек. Найти...

Подсчитать количество двоек, троек, четверок и пятерок, полученных за диктант
Добрый день, сын запутался в задаче. Ученик 9 "а" класса. Возможно, вы бы могли ему помочь? Если...

Массивы: подсчитать количество двоек, троек, четверок и пятерок, полученных за диктант
Задача: в классе 25 учеников писали диктант по русскому языку. Напишите программу, подсчитывающую...

7. Отчет по аттестации содержит название группы, предмет, общее количество учащихся, количество пятерок, четверок, троек, двоек, проценты успеваемости
program otcht; type otch=record grupp:string; pred:string; kol:integer; pt:integer; ...

Новые блоги и статьи
Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .

Наверх