ingintau: TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

ingintau: TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

program pilihan;

uses wincrt;
var penjumlahan,pengurangan,perkalian,pembagian :string;
pilih,jawab:char;
label menu;

begin
menu:
clrscr;
writeln('pilihan yang tersedia adalah: ');
writeln('1. penjumlahan');
writeln('2. pengurangan');
writeln('3. perkalian');
writeln('4. pembagian');
writeln;
write('pilih menu di atas [1..4]? ');readln(pilih);
clrscr;
case pilih of
'1' :
begin
writeln('penjumlahan')
end;

'2' :
begin
writeln('pengurangan')
end;
'3' :
begin
writeln('perkalian')
end;
'4' :
begin
writeln('pembagian')
end;
end;
end.

ingintau: ingintau: Tugas Struktur Data SI 08B1

ingintau: ingintau: Tugas Struktur Data SI 08B1

STRUKTUR DATA NILAI RATA-RATA

type
nilai1 = array [1..100] of integer;
var
nilai:nilai1;
jum,n,i:integer;
rata:real;
begin
write('Masukan banyaknya data : ');readln(n);
for i := 1 to n do
begin
write('Masukan data ke',i,' = ');readln(nilai[i]);
jum:jum+nilai[i];
end;
rata:=jum/n;
writeln('Jumlah keseluruhan data = ',jum);
writeln('Jumlah rata-ratanya = ',rata:2:2);
end.

ingintau: Tugas Struktur Data SI 08B1

ingintau: Tugas Struktur Data SI 08B1

Tugas Struktur Data SI 08B1

uses wincrt;

type
nilai1 = array[1..10] of integer;
nm1 = array[1..10] of string;
nama1 = array[1..10] of string;

var
nilai : nilai1;
i,n : integer;
nim : nim1;
nama : nama1;
begin
write('Masukan Banyaknya Mahasiswa =');
readln(n);
for i:= 1 to n do
begin
write('Masukan nim =');readln(nim[i]);
write('Masukan nama =');readln(nama[i]);
for i := 1 to n do
begin
write('Masukan nilai ',i,' =');
readln(nilai[i]);
end;
end;
for i := 1 to n do
begin
writeln(Nim[i],'',nama[i],'',nilai[i],''nilai[i+1]);
end;
end.