Программа PascalABC.NET: PascalABC.NET
Скачиваем и устанавливаем версию:
PascalABC.NET MiniPack (Setup, 10 Mb) Задания на 6.04.2020
Данные задачи мы прорешивали, ваша задача вспомнить и написать программы.
1 вариант: Бакирова Л., Баженова К., Дадабаева М., Макаревич Н., Найдёнкова И.,
Федотов И., Пересько Д..
2 вариант: Буховец А., Любичев В., Суприн М., Филиппов Е..
1 ВАРИАНТ (повторение)
1. Написать программу, определяющую размер строки в битах.
2. Дана строка символов, состоящая только из цифр. Определить сумму всех цифр этой строки. {val (a[i],n,k} преобразует символ цифры в число}
3. Написать программу, которая выдает по названию дня недели его
порядковый номер.
2 ВАРИАНТ (повторение)
1. Написать программу, определяющую размер строки в битах.
2. Дана строка символов, состоящая только из цифр. Определить , сколько раз среди них встречается цифра 5. 3. Написать программу, которая выдает по названию месяца название соответствующего времени года.
Задания на 10.04.2020
1 вариант: Бакирова Л., Баженова К., Дадабаева М., Макаревич Н., Найдёнкова И.,
Федотов И., Пересько Д..
2 вариант: Буховец А., Любичев В., Суприн М., Филиппов Е..
1 ВАРИАНТ
1. Определить сумму кодов символов, составляющих заданное слово.
{Функция Ord преобразовывает букву в ее числовой код. Например, ord(a[i] }
2. Написать программу, подсчитывающую количество слогов по
введённому с клавиатуры слову.
{Функция length(a) определяет длину строки. Подсказка: количество слогов
подсчитывается по количеству гласных в слове}
3. Оценки школьника за четверть даны в виде строки символов. Подсчитать
количество троек, четверок, пятерок.
2 ВАРИАНТ
1. Написать программу, подсчитывающую количество знаков препинания
в заданном предложении.
2. Написать программу, определяющую размер строки в битах самого
короткого из N вводимых с клавиатуры слов. {length(l)*8 - перевод в биты}
3. Оценки школьника за четверть даны в виде строки символов. Подсчитать
средний балл школьника. Если символ - цифра от 1 до 5, то переводим
его в число, суммируем и считаем их количество {.... if (a[i]>='1') and (a[i]<='5') then begin k:=k+1: val (a[i],n,l); .......} {val (a[i],n,k} преобразует символ цифры в число} |
Комментариев нет:
Отправить комментарий