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

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

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

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,507
    Сказал(а) спасибо
    123
    Поблагодарили 402 раз(а) в 272 сообщениях
    Записей в блоге
    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 (Вчера)

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

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

    >Quiet Snow< (13.01.2018), Free Admin (Вчера)

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

  7. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,507
    Сказал(а) спасибо
    123
    Поблагодарили 402 раз(а) в 272 сообщениях
    Записей в блоге
    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.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

Эту тему просматривают: 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, 14:49
  4. Ответов: 1
    Последнее сообщение: 19.02.2014, 07:49
  5. строки в с++
    от stupidstudent в разделе C/C++
    Ответов: 2
    Последнее сообщение: 17.12.2011, 15:45
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •