Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.06.2010, 01:53   #1 (permalink)
Милен
Новичок
 
Регистрация: 07.06.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите составить блок-схему

кто может сделать блок схему к этой проге:
Код:

Program chisla_propisyu;
uses crt;
function convert(Num: string): string;
const
s100: array[0..9] of string = ('', 'сто', 'двести', 'триста', 'четыреста',
'пятьсот', 'шестьсот', 'семьсот', 'восемьсот',
'девятьсот');
s10: array[0..9] of string = ('', '', 'двадцать', 'тридцать', 'сорок',
'пятьдесят', 'шестьдесят', 'семьдесят',
'восемьдесят', 'девяносто');
s11: array[0..9] of string = ('десять', 'одиннадцать', 'двенадцать', 'тринадцать',
'четырнадцать', 'пятнадцать', 'шестнадцать',
'семнадцать', 'восемнадцать', 'девятнадцать');
s1: array[0..9, 0..1] of string = (('', ''), ('один', 'одна'), ('два', 'две'),
('три', 'три'), ('четыре', 'четыре'),
('пять', 'пять'), ('шесть', 'шесть'),
('семь', 'семь'),('восемь', 'восемь'),
('девять', 'девять'));
s1000: array[0..4, 0..2] of string = (('','',''),
('миллиардов', 'миллиард', 'миллиарда'),
('миллионов', 'миллион', 'миллиона'),
('тысяч', 'тысяча', 'тысячи'),
('', '', ''));
var r: string; i: integer;
procedure ins(sr: string);
begin
if sr <> '' then r := r + ' ' + sr; end;
function chtoint(ch: char): byte;
var result_ch: byte;
begin chtoint := 0;
if (ch >= '0') and (ch <= '9') then chtoint := ord(ch) - ord('0')
else chtoint := 0; end;
begin
for i:=1 to Length(num) do if not (num[i] in ['0'..'9']) then begin
convert := 'Ошибка! переданная строка не является числом!';
Exit; end;
r := '';
for i := 1 to 15 - length(num) do insert('0', num, 1);
for i := 0 to 4 do begin
if copy(num, i * 3 + 1, 3) = '000' then continue;
ins(s100[chtoint(num[i * 3 + 1])]);
if num[i * 3 + 2] = '1' then begin ins(s11[chtoint(num[i * 3 + 3])]);
ins(s1000[i, 0]);
continue; end;
ins(s10[chtoint(num[i * 3 + 2])]);
if i = 3 then ins(s1[chtoint(num[i * 3 + 3]), 1]) else ins(s1[chtoint(num[i * 3 + 3]), 0]);
case num[i * 3 + 3] of '0', '5', '6', '7', '8', '9': ins(s1000[i, 0]);
'1': ins(s1000[i, 1]);
'2', '3', '4': ins(s1000[i, 2]); end; end;
if r <> '' then if r[1] = ' ' then delete(r, 1, 1);
Convert := r; end;
var s: string;
begin WriteLn;
Write('Введите число: ');
Readln(s);
if length(s)>13 then
Writeln('Извините, но программа понимает только числа до 13 знаков')
else
WriteLn(convert(s));
end.
плизз...
Милен вне форума   Ответить с цитированием

Старый 07.06.2010, 01:53
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Посмотрите обсуждаемые темы, пока вам дают ответы

Составить блок-схему
Помогите пожалуйста составить блок-схему!
Помогите написать программу и блок схему в Паскале

Старый 07.06.2010, 16:52   #2 (permalink)
KiD2
Member
 
Аватар для KiD2
 
Регистрация: 07.06.2010
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Обленились совсем уже не могут скачать прогу для составления блок схем
Вот Схема http://content.foto.mail.ru/inbox/k3d/Klava/s-19.bmp, если не подходит ищем прогу для составления блок-схем и делаем нужную)
KiD2 вне форума   Ответить с цитированием
Старый 01.02.2011, 20:02   #3 (permalink)
Наталя
Новичок
 
Регистрация: 01.02.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите составить блок-схему к программе

program z1v27;
uses crt;
var d,i,max,x,cod,m:integer; t:string;
a:array[1..30] of string;
st,k,c,s:string;
begin
textbackground(0);
textbackground(13);
window(1,1,90,70);
clrscr;
gotoxy(2,1);write(#201);
for i:=3 to 79 do begin
gotoxy (i,1);write(#176);
d:=d+0;
end;
gotoxy (79,1);write(#187);
for i:=2 to 24 do begin
gotoxy (2,i); write (#177);
end;
gotoxy(2,25);write(#200);
for i:=3 to 79 do begin
gotoxy(i,30);write(#176);
d:=d+0;
end;
gotoxy(79,25);write(#188);
for i:=2 to 24 do begin
gotoxy(79,i);write(#177);
end;
textcolor(14);
gotoxy(17,2);
write('Министерство Образования и науки Российской Федерации');
gotoxy(23,3);
write('Федеральное агенство по образованию');
gotoxy(22,5);
write('Государственное образовательное учреждение');
gotoxy(21,6);
write('"Оренбургский государственный университет"');
gotoxy(25,8);
write('КОЛЛЕДЖ ЭЛЕКТРОНИКИ И БИЗНЕСА');
gotoxy(19,9);
write('Кафедра вычислительной техники и математики');
gotoxy(35,11);
write('ПРАКТИКА');
gotoxy(24,12);
write('для получения первичных навыков');
gotoxy(50,18);
write('Руководитель работы Герцог В.Г.');
gotoxy(50,19);
write('Исполнитель');
gotoxy(50,20);
write('Студентка группы 52П2');
gotoxy(50,21);
write('Альянова Н.А.');
gotoxy(35,24);
write('Оренбург 2011');
gotoxy(35,23);
textcolor(15);
write('Для продолжения нажмите Enter');
readln;
textbackground(14);
clrscr;
textbackground(10);
window(2,2,40,12);
clrscr;
textcolor(4);
gotoxy(2,1);write(#6);
for i:=3 to 37 do begin
gotoxy (i,1);write(#3);
end;
gotoxy(2,1);
for i:=3 to 37 do begin
gotoxy(38,1);write(#6);
end;
for i:=2 to 10 do begin
gotoxy (2,i);write(#3);
end;
gotoxy (2,11);write(#6);
for i:=3 to 37 do begin
gotoxy (i,11);write(#3);
end;
gotoxy(38,11);write(#6);
for i:=2 to 10 do begin
gotoxy (38,i);write(#3);
end;
textcolor(15);
gotoxy(7,2);
writeln(' Постановка задачи ');
textcolor(14);
writeln;
gotoxy(5,4);
writeln('Задан список областных ');
gotoxy(5,5);
writeln('центров России. Присвойте');
gotoxy(5,6);
writeln('переменной "t" название');
gotoxy(5,6);
writeln('города с максимальным');
gotoxy(5,7);
writeln('числом букв.');
gotoxy(7,8);
writeln('Для продолжения нажмите Enter..');
gotoxy (40,7);
readln;
textbackground(11);
window(42,2,80,12);
clrscr;
textcolor(14);
gotoxy(41,2);
gotoxy(2,1);write(#6);
for i:=3 to 37 do begin
gotoxy (i,1);write(#3);
end;
gotoxy(2,1);
for i:=3 to 37 do begin
gotoxy(38,1);write(#6)
end;
for i:=2 to 10 do begin
gotoxy (2,i);write(#3);
end;
gotoxy (2,11);write(#6);
for i:=3 to 37 do begin
gotoxy (i,11);write(#3);
end;
gotoxy(38,11);write(#6);
for i:=2 to 10 do begin
gotoxy (38,i);write(#3);
end;
gotoxy(7,7);
writeln('Введите количество городов');
gotoxy(7,8);
readln(m);
repeat
if(m>30) or (m<=0) then
begin
gotoxy(7,9);
writeln('Ошибка при вводе числа!');
gotoxy(7,10);
writeln('Повторите ввод!!!');
gotoxy(7,11);
writeln;
gotoxy(7,12);
writeln('Для продолжения нажмите Enter..');
readln;
end;
until(m<30) and (m>0);
for d:=1 to m do
begin
repeat
gotoxy(2,15);
textbackground(11);
window(2,15,38,24);
clrscr;
writeln;
gotoxy(3,5);
writeln('Введите название ', d, ' города ');
gotoxy(3,6);
readln(a[d]);val(a[d],x,cod);
if cod=0 then
begin
gotoxy(3,7);
writeln('Ошибка!!!');
gotoxy(3,8);
writeln('для продолжения Enter..');
readln;
end;
until cod<>0;
end;
max:=length(a[1]);
for d:=2 to m do
begin
if length(a[d])>max then
begin
max:=length(a[d]);
t:=a[d];
end;
end;
gotoxy(3,9);
writeln;
gotoxy(3,10);
writeln('Для продолжения нажмите Enter..');
readln;
textbackground(10);
window(42,15,79,24);
clrscr;
gotoxy(3,20);
writeln;
gotoxy(3,21);
writeln(' список городов');
gotoxy(3,22);
writeln;
gotoxy(3,23);
writeln(' _______________');
for d:=1 to m do
gotoxy(3,24);
writeln(' ',a[d]);
gotoxy(3,25);
writeln(' _______________');
writeln('Для продолжения нажмите Enter..');
readln;
clrscr;
textbackground(128);
window(1,1,80,25);
clrscr;
textbackground(10);
window(2,2,79,25);
clrscr;
textcolor(15);
gotoxy(10,10);
writeln(' город с наибольшим числом букв это-');
writeln;
writeln;
textcolor(128);
gotoxy(9,12);
writeln(' ',t);
readln;
end.
Наталя вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 02:50.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.