|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
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
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите обсуждаемые темы, пока вам дают ответы Составить блок-схему Помогите пожалуйста составить блок-схему! Помогите написать программу и блок схему в Паскале |
07.06.2010, 16:52 | #2 (permalink) |
Member
Регистрация: 07.06.2010
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Обленились совсем уже не могут скачать прогу для составления блок схем
Вот Схема http://content.foto.mail.ru/inbox/k3d/Klava/s-19.bmp, если не подходит ищем прогу для составления блок-схем и делаем нужную) |
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
|
Опции темы | |
Опции просмотра | |
|
|