С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.04.2016
Сообщений: 3
1

Массивы: Составить алгоритм распечатки всех своих оценок по информатике за текущее полугодие

19.04.2016, 20:00. Показов 668. Ответов 3

Author24 — интернет-сервис помощи студентам
Составить алгоритм распечатки всех своих оценок по информатике за текущее полугодие. Программу следует организовать так, чтобы компьютер запрашивал номер темы и после его ввода выдавал оценку.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.04.2016, 20:00
Ответы с готовыми решениями:

Do-while: определить количество пятерок среди оценок по информатике
Известны оценки по информатике каждого ученика класса, состоящего из n человек. Неоходимо...

Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок двойки
3. Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок двойки?

Известны оценки по информатике 28 учеников класса. Выяснить есть ли среди оценок двойки
Известны оценки по информатике 28 учеников класса. Выяснить есть ли среди оценок двойки?

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

3
D1973
19.04.2016, 20:24
  #2

Не по теме:

Цитата Сообщение от Svitoi Посмотреть сообщение
всех своих оценок по информатике за текущее полугодие
Твои - это точно одни двойки :D :D :D

0
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
19.04.2016, 20:49 3
Svitoi,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Create1Click(Sender: TObject);
VAR
i,m:Integer;
begin
StringGrid1.Cells[0,0] := 'Название темы';
StringGrid1.Cells[1,0] := 'Оценка';
repeat until (TryStrToInt(InputBox('Окно ввода','Сколько тем?','5'),m));
if m < 1 then exit;
StringGrid1.RowCount := m + 1;
randomize;
for i := 1 to m do begin
    StringGrid1.Cells[0,i] := 'Тема №' + IntToStr(i);
    StringGrid1.Cells[1,i] := IntToStr(Random(5)+1);
    End;
end;
 
procedure TForm1.List1Click(Sender: TObject);
VAR
i,k:Integer;
begin
repeat until (TryStrToInt(InputBox('Окно ввода','Номер темы','5'),k));
if (not (k in [1..StringGrid1.RowCount-1])) then
    ShowMessage('Нет такой темы')
    else 
    ShowMessage('Оценка по этой теме ' + StringGrid1.Cells[1,k]);
 
end;
Вложения
Тип файла: zip informatika.zip (232.3 Кб, 0 просмотров)
0
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
19.04.2016, 21:13 4
Delphi
1
2
3
4
if (not (k < 1) or (k > StringGrid1.RowCount-1) then
    ShowMessage('Нет такой темы')
    else
    ShowMessage('Оценка по этой теме ' + StringGrid1.Cells[1,k]);
0
19.04.2016, 21:13
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.04.2016, 21:13
Помогаю со студенческими работами здесь

Составить алгоритм и программу для замены в заданном массиве Е (18) всех нулевых элементов средним геометрическим значением всех положительных элемент
Ребят помогите пожалусто сделать несколько задач. 1) Составить алгоритм и программу для замены в...

Составить алгоритм (массивы)
Составить блок схему. 1)Дан 2 мерный массив B найти max главной диагонали. 2)Дан 2 мерный массив...

Определить средний бал оценок по физике, количество студентов с оценкой 5 по информатике, математике и вывести
Поля структуры: Фамилия Группа Физика Информатика История Условие задачи: Определить...

Определить средний балл оценок по физике, количество студентов с оценкой 5 по информатике, математике и вывести сведения
Поля структуры: Фамилия Группа Физика Информатика История Условие задачи: Определить...

Массивы. Описать алгоритм на естественном языке и составить блок-схему
Даны две задачи, для которых нужно описать алгоритм на естественном языке,составить блок схему и...

Написать программу распечатки всех возможных сочетаний из двух цифр
2. Разработайте алгоритм программы и напишите программу распечатки всех возможных сочетаний из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как написать микросервис на Go/Golang
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на 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
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru