27.05.2011, 00:50 | #1 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Глупая проблема - перевод с языка Паскаль на школьный алгоритмический.
1. Program Factorial; uses Crt; var a,b,c:real; N:Integer; i:integer; X:integer; begin clrscr; Write('Aaaaeoa cia?aiea X:'); Readln(x); Write('Aaaaeoa cia?aiea N:'); Readln(n); a:=1; For i:=1 to N do a:=a*x; Writeln('?acoeuoao:',a); b:=1; For i:=1 to N do b:=b*i; Writeln('?acoeuoao:',b); c:=a/b; writeln('?acoeuoao:',c); end. 2. program summa; const N =3; Type matrix = Array[1..n,1..n] of Integer; var A,B,C : matrix; i,j: Integer; procedure Fill(var M:Matrix); var i,j:integer; begin for i:=1 to N do for j:=1 to N do M[i,j]:=random(50); end; procedure vivod(M:matrix); var i,j:Integer; begin writeln; for i:=1 to n do begin for j:=1 to N do write(M[i,j]:4); writeln; end; end; begin randomize; Fill(A);vivod(a); Fill(B);vivod(b); for i:=1 to N do for j:=1 to N do C[i,j]:= A[i,j]+B[i,j]; vivod(c); end. 3. Program func; Const Sp=' '; VAR S:String; i:Byte; BEGIN WriteLn('Enter the string containing Tabs:'); ReadLn(S); i:=0; Repeat Inc(i); If Ord(S[i])=9 then begin Delete(S,i,1); Insert(Sp,S,i); Inc(i,2); end; Until i>=Length(S); WriteLn(S); ReadLn; END. 4. while (i<=Length(s)) and (s[i] in delim) do inc(i); i1:=i; i2:=i; while (i<=Length(s)) and (not(s[i] in delim)) do begin inc(i); inc(i2); end; If i2>i1 then begin str:=Copy(stmp,i1,i2-i1); Delete(stmp,i1,i2-i1); for j:=1 to Length(str) do for k:=1 to Length(str)-j do if Ord(str[k])>Ord(str[k+1]) then begin min:=str[k+1]; str[k+1]:=str[k]; str[k]:=min; end; Insert(str,stmp,i1); end; end; writeln('Result:'); writeln(stmp); readln; end. |
27.05.2011, 00:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Просмотр похожих постов всегда хорошо помогает в решении проблем Warcraft: Orcs & Humans Индикация языка Перевод в формат mp3 Обогащение языка |
27.05.2011, 09:13 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Подсказка вам:
типы переменных real=вещ, integer=цел циклические конструкции: for <> to <> do нц для <> от <> до <> шаг <> серия кц массив=таблица, например, вещ таб а[10] length()=длин() read() = ввод () write()=вывод()
__________________
Убить всех человеков! |
27.05.2011, 21:05 | #5 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
школьный язык= псевдокод) так что о псевдокоде ты не мог не слышать
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.05.2011, 07:18 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Что-то вы тут фигню-с сморозили
Псевдокод - представление алгоритма с использованием дискретных семантических конструкций на естественном (читай - разговорном) языке. Школьный алгоритмический язык основывается на алголоподобном алгоритмическом языке с русскими операторами, разработанном в середине 80-х командой Ершова. Изначально среда программирования на ШАЯ называлась E-86, реализация была включена в комплекс Роботландия, также существовала версия KUMIR для УКНЦ, она поставлялась в составе КУВТ в школы, после проект был надолго заброшен. В настоящее время поддерживается НИИСИ и доступен по ссылкам КУМир (комплекс учебных миров) и http://lpm.org.ru/wordpress/?page_id=5. В настоящее время язык относится к free-soft и существуют версии под наиболее распространенные операционные системы, в том числе и под Linux. Современная реализация написана на языке C++ и QT и имеет встроенные средства для перевода листинга с алгоритмического языка на C++ и компиляции программы. Насколько мне известно, про псевдокод такого сказать нельзя, потому как до сих пор ещё не написали систему, способную корректно переводить разговорную речь в реальный листинг Кстати, скачайте систему КУМир и справочку почитайте, там много полезного и очень даже развернуто все команды и конструкции описаны
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|