Важная информация
Показано с 1 по 6 из 6

Тема: Строки/массивы - ABC Pascal

  1. #1 Строки/массивы - ABC Pascal 
    Новичок
    Регистрация
    11.01.2018
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Задание на тему строки:
    Входные данные: 5a;
    Суть задания: каких гласных букв (английских:маленьких и заглавных) нет в заданным данных ( может вводится любой набор символов) .Написать код программы.
    Задание на тему массивы:
    Суть задания: Поменять местами диагональ над главной и диагональ под побочной диагоналями заданного случайным образом целочисленного массива A nn .
    Буду очень благодарна
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,518
    Сказал(а) спасибо
    126
    Поблагодарили 420 раз(а) в 284 сообщениях
    Записей в блоге
    6
    Вот вторая программа
    Код pascal:
    program aka;
    var a:array[1..100,1..100]of integer;
    n,i,j,t:integer;
    begin
     Writeln('Введите N'); 
     Readln(n);
     for j:=1 to n do
      for i:=1 to n do
       a[i,j]:=random(1000);
     writeln('До');
     for j:=1 to n do
     begin
      for i:=1 to n do
       write(a[i,j],' ');
      writeln;
     end;
     
     for i:=1 to n-1 do
     begin
      t:=a[i+1,i];
      a[i+1,i]:=a[i+1,i];
      a[i+1,n-i+1]:=t;
     end;
     writeln('После');
     for j:=1 to n do
     begin
      for i:=1 to n do
       write(a[i,j],' ');
      writeln;
     end;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (13.01.2018), Free Admin (15.01.2018)

  4. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,518
    Сказал(а) спасибо
    126
    Поблагодарили 420 раз(а) в 284 сообщениях
    Записей в блоге
    6
    По поводу первого задания: Его можно решить несколькими способами, хорошо б знать какие темы вы изучали, а какие нет.
    Можно решить через множества, можно через ASCII-коды. А можно большим CASE.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (13.01.2018), Free Admin (15.01.2018)

  6. #4  
    Новичок
    Регистрация
    11.01.2018
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Kakos_nonos Посмотреть сообщение
    По поводу первого задания: Его можно решить несколькими способами, хорошо б знать какие темы вы изучали, а какие нет.
    Можно решить через множества, можно через ASCII-коды. А можно большим CASE.
    Множества или CASE
    Ответить с цитированием  
     

  7. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,518
    Сказал(а) спасибо
    126
    Поблагодарили 420 раз(а) в 284 сообщениях
    Записей в блоге
    6
    Извиняюсь за задержку, если актуально еще.
    Код pascal:
    program uuu;
    var s,s1:string;
    i,j:integer;
    begin
     Writeln('Введите строку'); 
     readln(s);
     s1:='aeiouAEIOU';
     for i:=1 to length(s) do
      for j:=1 to 10 do 
       if s[i]=s1[j] then s1[j]:=#0;
     Writeln('В строке нет следующих английских гласных: ');
     for i:=1 to 10 do
      if s1[i]<>#0 then write(s1[i]+', ');
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  8. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (17.01.2018), Free Admin (17.01.2018)

  9. #6  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    115
    Сказал(а) спасибо
    17
    Поблагодарили 53 раз(а) в 33 сообщениях
    PascalABC.NET - удивительный язык...
    Pascal Code:
    1. begin
    2.     var alpha : set of Char := ['a','e','i','o','u','A','E','I','O','U'];
    3.     var catch : set of Char := [];
    4.     var ch : char :=  ReadChar();
    5.     while ch <> '.' do
    6.         begin
    7.             Include (catch, ch);
    8.             ch :=  ReadChar();
    9.         end;
    10.      WriteLn(alpha - catch);
    11. end.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 5
    Последнее сообщение: 04.05.2017, 18:05
  2. Разбор командной строки
    от TonyR в разделе Java
    Ответов: 2
    Последнее сообщение: 08.05.2015, 16:51
  3. Добавление строки в таблицу DataGrid
    от pastperfect в разделе .NET
    Ответов: 0
    Последнее сообщение: 15.06.2014, 15:49
  4. Ответов: 1
    Последнее сообщение: 19.02.2014, 08:49
  5. строки в с++
    от stupidstudent в разделе C/C++
    Ответов: 2
    Последнее сообщение: 17.12.2011, 16:45
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •