Различия между изменённой записью 2375 оставленной clara 21.02.2017 в 20:20 и
оригинальной записью 4 оставленной OCTAGRAM 12.02.2017 в 07:38
Показать старую версию | новую версию | обе версии
1 | - | { Вы ведь заметили кнопку "запустить" сверху ? } | |
1 | + | Program P1; | |
2 | + | var a,b,s:real; | |
3 | - | program Welcome; | |
3 | + | function F(a1,b1:real):real; | |
4 | - | uses Crt; { Это нужно из-за особенностей JS-DOS } | |
4 | + | var s1:real; | |
6 | - | var | |
7 | - | Name: string; | |
9 | 5 | begin | |
10 | - | WriteLn; | |
6 | + | s1:=a1*b1; | |
11 | - | WriteLn('Переключение на русский -- правый Ctrl'); | |
7 | + | F:=s1; | |
12 | - | WriteLn; | |
8 | + | end; | |
13 | - | Write('Как вас зовут, путник? -- '); | |
9 | + | begin | |
14 | - | ReadLn(Name); { Если не добавить uses Crt, из-за особенностей JS-DOS здесь зависнет } | |
10 | + | writeln('Dati valori lui a si b:'); | |
15 | - | WriteLn('Добро пожаловать на наш сайт, ', Name); | |
11 | + | write('a=')readln(a); | |
16 | - | WriteLn; | |
12 | + | write('b=')readln(b); | |
17 | - | end. | |
13 | + | s:=F(a,b); | |
14 | + | writeln('s=',s:8:4); | |
15 | + | readln; | |
16 | + | end. |