0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 59
1

Перевести код с Паскаля

08.06.2015, 16:43. Показов 830. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Uses crt; 
 Type 
 book=Record 
 fam: String; 
 pred: String; 
 st: Byte; 
 nagr: Byte; 
 end; 
 Var 
 x: Array [1..20] of book; 
 i,n: Integer; 
 BEGIN 
 Clrscr; 
 Writeln('Введите кол-во учителей: '); Readln(n); 
 For i:=1 to n do 
 begin 
    Write('Фамилия учителя: '); Readln(x[i].fam); 
    Write('Предмет: '); Readln(x[i].pred); 
    Write('Стаж: '); Readln(x[i].st); 
    Write('Нагрузка: '); Readln(x[i].nagr); 
 end; 
 Writeln('Список тех учителей школы, которые преподают математику и информатику:'); 
 For i:=1 to n do 
 If (x[i].pred='Математика') or (x[i].pred='Информатика') Then 
 begin 
    Writeln(x[i].fam); 
    Writeln(x[i].st); 
    Writeln(x[i].nagr); 
    Writeln('--------'); 
 end; 
 Readln 
 END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2015, 16:43
Ответы с готовыми решениями:

Перевести код с Паскаля на VBA
begin writeln(' ':4,m,u,h,a); writeln(' ':3,'*'); writeln(' ':4,s,l,o,n); writeln('...

Перевести код Паскаля в вба
program while14; var K: integer; A, Sum: real; begin write('A = '); readln(A); K...

Как перевести код с Паскаля
напишите эту программу в VBA program kr; uses crt; var i,n,m:integer; a:string; begin...

Перевести код из паскаля в vba
В заданной матрице A(N,M) найти количество строк, содержащих только отрицательные числа. const ...

4
466 / 123 / 61
Регистрация: 04.03.2015
Сообщений: 325
08.06.2015, 19:27 2
Абсолютно точно не получается. Все таки VBA и Паскаль отличаются.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Type Book
    fam As String
    pred As String
    st As Byte
    nagr As Byte
End Type
Sub Pr()
    Dim x(1 To 20) As Book
    Dim i As Integer, n As Integer
    Dim temp As String
    n = InputBox("Введите кол-во учителей")
    For i = 1 To n
        x(i).fam = InputBox("Фамилия учителя:")
        x(i).pred = InputBox("Предмет:")
        x(i).st = InputBox("Стаж:")
        x(i).nagr = InputBox("Нагрузка:")
    Next i
    For i = 1 To n
        If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then temp = temp & x(i).fam & vbCr & x(i).st & vbCr & x(i).nagr & vbCr & "--------" & vbCr
    Next i
    MsgBox (temp)
End Sub
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 59
09.06.2015, 15:38  [ТС] 3
Спасибо большое, сейчас будем пробовать

Добавлено через 42 минуты
после этого If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then...... что то не очень ясно почему, просто программа у меня не выводит результат
0
466 / 123 / 61
Регистрация: 04.03.2015
Сообщений: 325
10.06.2015, 01:17 4
Цитата Сообщение от Slava-kustov Посмотреть сообщение
что то не очень ясно почему, просто программа у меня не выводит результат
Программа сохраняет результаты в строку, а потом выводит все сразу.
Подозреваю, что просто условие не выполняется.
Попробуйте убрать If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then, и посмотрите что будет.
Должны выводится данные по всем учителям.
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 59
10.06.2015, 15:18  [ТС] 5
Я сделал проще, ведь мне оказывается надо было вывести результат для печати


Type Book
fam As String
pred As String
st As Byte
nagr As Byte
End Type
Sub Slava2()
Dim x() As Book
Dim i As Integer, n As Integer
Dim temp As String
n = InputBox("Введите кол-во учителей")
ReDim x(0 To 1)
'For i = 1 To n
With x(0)
.fam = "Иванов"
.pred = "Математика"
.st = 23
.nagr = 18
End With
With x(1)
.fam = InputBox("Фамилия учителя:")
.pred = InputBox("Предмет:")
.st = InputBox("Стаж:")
.nagr = InputBox("Нагрузка:")
End With
'Next i
MsgBox ("Список тех учителей школы, которые преподают математику и информатику:")
For i = 0 To 1
If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then MsgBox x(i).fam & Str((x(i).st)) & Str((x(i).nagr))
Next i
' MsgBox (temp)
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 15:18
Помогаю со студенческими работами здесь

перевести код в VBA с Паскаля
var s:string; i:integer; begin readln(s); for i:=1 to Length(s) div 2 do if s<>s...

2_Нужно перевести код с паскаля на VBA
2) найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент...

как этот код из паскаля перевести в VBA ?
program zadacha2; Type mas=array of integer; Var a:mas ; j, sum,k, fl: integer; function...

Перевести из паскаля в байсик
Нужно перевести на чистый бейсик, спасибо. type matrix= array of integer; procedure...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru