М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Beleklera75
Beleklera75
03.02.2022 18:37 •  Информатика

Создать программу, которая будет принимать на вход текстовую строку в виде полного имени, отчества (при наличии) и фамилии на латинице, а в качестве результата выводить соответствующие инициалы. входные данные вводятся латиницей и считываются с функции scanf. инициалы выводятся в строку терминала, после каждого инициала ставится точка, пробела между инициалами нет. даже если пользователь ошибочно ввёл данные не с заглавной буквы, инициалы должны быть написаны заглавными буквами. например: входные данные: - sidorov ivan petrovich. результат - s.i.p. язык программирования c (не c++! ) заранее

👇
Ответ:
Tara2017
Tara2017
03.02.2022
#include <stdio.h>

int main()

char c, FIO[10];
int i=0, f=0;
printf("name: ");
scanf("%c",&c);
if (c>'Z') FIO[i]=c-32; else FIO[i]=c;
FIO[++i]='.';
while (c != '\n'){
  scanf("%c",&c);
  if (f) {
    if (c>'Z') FIO[++i]=c-32; else FIO[++i]=c;
    FIO[++i]='.';
  }
  f = c==' ';
}
printf("%s", FIO);
return 0;
}

Пример:
name: sidorov ivan petrovich
S.I.P.
4,5(72 оценок)
Открыть все ответы
Ответ:
Kottenok2005
Kottenok2005
03.02.2022
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.
4,6(56 оценок)
Ответ:
AlinaVoronova
AlinaVoronova
03.02.2022
В состав алфавита языка Паскаль входит:
  Символы для составления переменных-
                                                                латинские(строчные, прописные)
                                                                символ "_"
                                                                цифры (0..9)
  Символы разделители (пробельные символы)
  Составные символы - особенная группа символов, которая  
                                           воспринимаются компилятором как     
                                           один символ "<=", ":=",">=", "..", "//" "<>" "(*" "*)"
  Зарезервированные слова- слова, несущие определенное     
                                                    смысловое значение для компилятора
  Спец-символы- символы, которые предназначены для построения 
                               конструкций языка, в Паскале это:
                                                                             ' - + / * : ; = { } [ ] ( ) $ и т.п

  На самом деле их больше, но это основные.
4,6(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ