Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Linkez
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 26
#1

Нужна блок-схема для программы - Pascal ABC

22.03.2013, 21:46. Просмотров 379. Ответов 1
Метки нет (Все метки)

program z4;
uses crt;
type mn=set of 'a'..'z';
var
mn1,mn2:mn;
b,d:char;
s:string;
n,m,i,j:integer;
begin
clrscr;
mn1:=[];mn2:=[];
n:=0;
WRITE('введите текст ');
read(s);
for i:=1 to length(s) do begin
b:=s[i];
if b in mn1 then mn2:=mn2+[b];
mn1:=mn1+[b];
end;
for d:='a' to 'z' do
if d in mn2 then begin write (d:3);n:=n+1;end;
if n=0 then writeln('нет');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2013, 21:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужна блок-схема для программы (Pascal ABC):

Блок-схема для программы - Pascal ABC
Необходимо составить блок-схему к такой программе Const n=20; Var A,B:array of byte; i,k,imax,imin:byte; sr:real; Begin ...

Блок-схема для программы - Pascal ABC
Очень срочно нужна блок-схема для данной программы. program lab4; var x,xn,xk,dx,z:real; i:integer; begin writeln ('Введите...

Блок схема для программы - Pascal ABC
program Babur4iK; var x,A,b,c : real; begin write('Enter please x='); readln(x); A:=sin(x); B:=cos(x);

Блок-схема для программы с модулем - Pascal ABC
Нужна блок-схема по этой программе. Модуль: Unit GTA; interface type massiv=array of real; procedure Theft(var...

Блок-схема для этой программы - Pascal ABC
const m = 10; var arr: array of integer; i, j, k: integer; begin randomize; write ('Исходный массив: '); ...

Вычислить значение n! для введенного с клавиатуры с циклом с параметром. мне нужна блок-схема алгоритма - Pascal ABC
помогите пожалуйста

1
Findoss
1 / 1 / 1
Регистрация: 26.12.2012
Сообщений: 5
22.03.2013, 22:55 #2
Делал в визио 2013 , залил в формате PDF и JPG.
0
Миниатюры
Нужна блок-схема для программы  
Вложения
Тип файла: pdf pascalabc-thread815903.pdf (115.6 Кб, 7 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2013, 22:55
Привет! Вот еще темы с ответами:

Блок-схема для программы пересчета из миль в километры - Pascal ABC
Написать программу для пересчета из миль в километры (1 миля=1.609344 км). Расстояние в километрах K вводится из программы. program...

Перестановки (нужна блок схема) - Pascal ABC
var a:array of integer; c,i,n:integer; begin cls; readln(n); for i:=1 to n do begin a:=random(10)-5; write(a:5); end; for...

Нужна блок схема по коду - Pascal ABC
Очень нужно сделать блок-схему Program Zadanie3; uses crt; var xa,ya,xb,yb,xc,yc,yd,xd,ye,xe: integer; a,b,c,d,e,p: real; ...

Нужна блок-схема по готовому коду - Pascal ABC
Дан массив целых чисел Найти сумму нечетных положительных элементов массива . program lr91; type t=array of integer; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru