Подсчитать количество вхождений в последовательность больших и маленьких букв

@citrucc · Регистрация: 24.05.2011

Студворк — интернет-сервис помощи студентам

Добрый день

Нужна помощь в написание лаб работы на паскале.
У нс в институте предмет появился по сравнению разных языков с с/с++ мне достался паскаль.
На Си я написал вот на паскале как то не выходит помогите очень надо

1Предлагает ввести три целых числа; Считывает введенные числа; Проверяет и выводит сообщение о том, кратно или нет первое число третьему.

2.Предлагает пользователя ввести целое число и рисует квадрат из звездочек с заданной длинной стороны.

3. Считывает последовательность символов (0 – конец последователь¬ности). Подсчитывает количества вхождений в последовательность: больших и маленьких букв, соответствующим Вашим инициалам (например, К, к, О или о). Нарисовать частотную гистограмму с помощью звездочек. Использовать: операторы выбора switch (в языке C), case (в языке Ada 95), для рисования гистограмм использовать цикл while. Гистограмму представить в виде:
К,к 12 ************
О 2 **
о 5 *****

4 Написать программу, использующую оператор goto, которая выводит на экран последовательность звездочек. Которая должна иметь вид:

*.........*..........*
* *...* * *.....* *
* * * * * * * * *
**************

@3a9Ic · 08.04.2012, 21:50

1-е Задание.

Pascal
1
2
3
4
5
6
var a1,a2,a3:integer;
begin
     writeln('3 числа:');Readln(a1,a2,a3);
     if (a1 mod a3=0) then writeln('Число ',a1, ' кратно ',a3)
     else writeln('Число ',a1, ' не кратно ',a3);
end.

2-е. Задание. Глупо, конечно, но квадраты звездочками рисовать не приходилось.

Pascal
1
2
3
4
5
6
7
8
9
10
11
var i,n:integer;
x:real;
begin
     write('n=');Readln(n);
     for i:=1 to n do write('*');
     writeln('');
     n:=n-2;
     for i:=1 to n do writeln('*','':(n),'*');
     n:=n+2;
     for i:=1 to n do write('*');
end.

Добавлено через 15 минут
4-я. Задачка.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses CRT;
var i,j:integer;
begin
     gotoxy(j,i);
     writeln('*.........*.........*');
     gotoxy(j+5,i);
     writeln('* *....*  *  *.....* * ');
     gotoxy(j+10,i);
     writeln('* * * * * * * * * * * ');
     gotoxy(j+15,i);
     writeln('*********************');
end.

Попробовал сделать твой вариант, я понял, что подгонялось кол-во звездочек и точек, под форум, или ещё как. Ну, короче, суть есть. А какие будут звездочки, поставишь сам. gotoxy(j(+спуск по рамке вниз) ,i(+передвижение по рамке вправо)). Удачи.

@citrucc · 08.04.2012, 22:38 **[ТС]**

в 4 точки это пробелы но всё равно спасибо за помощь терь тока 3 задачку надо доковырять

))

@3a9Ic · 08.04.2012, 23:32

По-поводу 3-й, я просто не понимаю, что надо сделать... Особенно, по-поводу, "частотной гистограммы". Объяснишь по-проще, может пойму, хоть, что делать надо

@citrucc · 09.04.2012, 13:12 **[ТС]**

Я с клавы ввожу строку символов. 0 это конеч ввода строки
пример
ф ы в а п ро о л д л б к е п у к ы д в с о

Потом задаю 4 символа В,в и П.п которые будут считыватся с введённой строки после подсчёта вхождений прога выводит результат в виде звёздачек

вывод и есть гистокрамма
В - ***
в - ******
П-*
п- ***

Добавлено через 11 часов 22 минуты
во домучал училку там намного проще

во общем 4 цикла с запросом на ввод и счётчиком 4 символов и пока не введу символ '0' следующий цикл не начнётся
в кон це вывод количества введённых символов
вывод и есть гистокрамма
В - ***
в - ******
П-*
п- ***

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@citrucc 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 31

	Подсчитать количество вхождений в последовательность больших и маленьких букв 08.04.2012, 19:57. Показов 2454. Ответов 4 Метки нет (Все метки) Добрый день Нужна помощь в написание лаб работы на паскале. У нс в институте предмет появился по сравнению разных языков с с/с++ мне достался паскаль. На Си я написал вот на паскале как то не выходит помогите очень надо 1Предлагает ввести три целых числа; Считывает введенные числа; Проверяет и выводит сообщение о том, кратно или нет первое число третьему. 2.Предлагает пользователя ввести целое число и рисует квадрат из звездочек с заданной длинной стороны. 3. Считывает последовательность символов (0 – конец последователь¬ности). Подсчитывает количества вхождений в последовательность: больших и маленьких букв, соответствующим Вашим инициалам (например, К, к, О или о). Нарисовать частотную гистограмму с помощью звездочек. Использовать: операторы выбора switch (в языке C), case (в языке Ada 95), для рисования гистограмм использовать цикл while. Гистограмму представить в виде: К,к 12 ********** О 2 о 5 ***** 4 Написать программу, использующую оператор goto, которая выводит на экран последовательность звездочек. Которая должна иметь вид: ...................* * ... * ..... * * * * * * * * * * ************** 0

@citrucc 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 31
	08.04.2012, 22:38 [ТС]
	в 4 точки это пробелы но всё равно спасибо за помощь терь тока 3 задачку надо доковырять )) 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	08.04.2012, 23:32
	По-поводу 3-й, я просто не понимаю, что надо сделать... Особенно, по-поводу, "частотной гистограммы". Объяснишь по-проще, может пойму, хоть, что делать надо 0

@citrucc 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 31
	09.04.2012, 13:12 [ТС]
	Я с клавы ввожу строку символов. 0 это конеч ввода строки пример ф ы в а п ро о л д л б к е п у к ы д в с о Потом задаю 4 символа В,в и П.п которые будут считыватся с введённой строки после подсчёта вхождений прога выводит результат в виде звёздачек вывод и есть гистокрамма В - * в - **** П-* п- *** Добавлено через 11 часов 22 минуты во домучал училку там намного проще во общем 4 цикла с запросом на ввод и счётчиком 4 символов и пока не введу символ '0' следующий цикл не начнётся в кон це вывод количества введённых символов вывод и есть гистокрамма В - * в - **** П-* п- *** 0