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

**Dizers** · 11.01.2018, 17:28

Задание на тему строки:
Входные данные: 5a;
Суть задания: каких гласных букв (английских:маленьких и заглавных) нет в заданным данных ( может вводится любой набор символов) .Написать код программы.
Задание на тему массивы:
Суть задания: Поменять местами диагональ над главной и диагональ под побочной диагоналями заданного случайным образом целочисленного массива A nn .
Буду очень благодарна

**Kakos_nonos** · 12.01.2018, 19:33

Вот вторая программа

Код 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.

**Kakos_nonos** · 12.01.2018, 19:46

По поводу первого задания: Его можно решить несколькими способами, хорошо б знать какие темы вы изучали, а какие нет.
Можно решить через множества, можно через ASCII-коды. А можно большим CASE.

**Dizers** · 12.01.2018, 20:05

Сообщение от Kakos_nonos

По поводу первого задания: Его можно решить несколькими способами, хорошо б знать какие темы вы изучали, а какие нет.
Можно решить через множества, можно через ASCII-коды. А можно большим CASE.

Множества или CASE

**Kakos_nonos** · 16.01.2018, 18:50

Извиняюсь за задержку, если актуально еще.

Код 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.

**ur_naz** · 09.09.2018, 01:48

PascalABC.NET - удивительный язык...

Pascal Code:

begin
    var alpha : set of Char := ['a','e','i','o','u','A','E','I','O','U'];
    var catch : set of Char := [];
    var ch : char :=  ReadChar();
    while ch <> '.' do
        begin 
            Include (catch, ch);
            ch :=  ReadChar();
        end;
     WriteLn(alpha - catch);
end.

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

Опции темы

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

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

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

Пользователи, просматривающие эту тему

Похожие темы

Перевод строки при использовании scanf() язык Си

Разбор командной строки

Добавление строки в таблицу DataGrid

Найти среднее арифметическое элементов каждой строки матрицы Q (l, m) и отнять его от элементов этой строки

строки в с++