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

@Slava-kustov · Регистрация: 08.06.2015

Pascal

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.

@Vovchikvsb · 08.06.2015, 19:27

Абсолютно точно не получается. Все таки VBA и Паскаль отличаются.

Visual Basic

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

@Slava-kustov · 09.06.2015, 15:38 **[ТС]**

Спасибо большое, сейчас будем пробовать

Добавлено через 42 минуты
после этого If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then...... что то не очень ясно почему, просто программа у меня не выводит результат

@Vovchikvsb · 10.06.2015, 01:17

Сообщение от Slava-kustov

что то не очень ясно почему, просто программа у меня не выводит результат

Программа сохраняет результаты в строку, а потом выводит все сразу.
Подозреваю, что просто условие не выполняется.
Попробуйте убрать If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then, и посмотрите что будет.
Должны выводится данные по всем учителям.

@Slava-kustov · 10.06.2015, 15:18 **[ТС]**

Я сделал проще, ведь мне оказывается надо было вывести результат для печати

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

@Slava-kustov 0 / 0 / 0 Регистрация: 08.06.2015 Сообщений: 59
	09.06.2015, 15:38 [ТС]	3
	Спасибо большое, сейчас будем пробовать Добавлено через 42 минуты после этого If (x(i).pred = "Математика") Or (x(i).pred = "Информатика") Then...... что то не очень ясно почему, просто программа у меня не выводит результат 0

@Vovchikvsb 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

@Slava-kustov 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

Опции темы